Bemærk
Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.
Returnerer den streng , der er knyttet til en miljøvariabel for operativsystemet. Ikke tilgængelig på Macintosh
Syntaks
Environ( { envstring | number } )
Syntaksen for funktionen Miljø har disse argumenter:
| Argument | Beskrivelse |
|---|---|
| envstring | Valgfrit. Strengudtryk, der indeholder navnet på en miljøvariabel. |
| tal | Valgfrit. Numerisk udtryk, der svarer til den numeriske rækkefølge af miljøstrengen i tabellen med miljøstrengen. Talargumentet kan være et hvilket som helst numerisk udtryk, men det afrundes til et helt tal, før det evalueres. |
Bemærkninger
Hvis envstring ikke kan findes i tabellen miljøstreng, returneres en tom streng (""). Ellers returnerer Environ den tekst, der er tildelt den angivne envstring; Det vil sige teksten, der følger lighedstegnet (=) i tabellen environment-string for den pågældende miljøvariabel.
Hvis du angiver et tal, returneres den streng, der indtager den numeriske placering i tabellen med miljøstrengene. I dette tilfælde returnerer Environ hele teksten, inklusive envstring. Hvis der ikke er nogen miljøstreng i den angivne position, returnerer Environ en streng med en længde på nul.
Eksempel
Bemærk
Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen Environ til at angive indtastningsnummeret og længden af sætningen PATH fra miljøstrengtabellen. Ikke tilgængelig på Macintosh.
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