Environ, funktion

Obs!: Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar strängen som är associerad med en miljövariabel för operativsystemet. Inte tillgängligt på Mac-datorer

Syntax

Environ( { envstring | nummer } )

Syntaxen för funktionen Environ har följande argument:

Argument

Beskrivning

envstring

Valfritt. Stränguttryck som innehåller namnet på en miljövariabel.

tal

Valfritt. Ett numeriskt uttryck som motsvarar den numeriska ordningen för miljösträngen i tabellen miljösträng. Argumentet tal kan vara ett numeriskt uttryck, men avrundas till ett helt tal innan det utvärderas.


Kommentarer

Om envstring inte kan hittas i miljösträngstabellen returneras en sträng med längden noll (""). Annars returnerar Environ texten som tilldelats angiven envstring. det vill säga texten som följer likhetstecknet (=) i miljösträngtabellen för den miljövariabeln.

Om du anger ett talreturneras den sträng som tar upp den numeriska positionen i tabellen miljösträng. I det här fallet returnerar Environ all text, inklusive envstring. Om det inte finns någon miljösträng på den angivna positionen returnerar Environ en sträng med längden noll.

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

I det här exemplet används funktionen Environ för att ange inmatningsnumret och PATH datasatsen från environment-string-tabellen. Inte tillgängligt på Mac-datorer.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If

Behöver du mer hjälp?

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

×