Poznámka
Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".
Vrátí řetězec přidružený k proměnné prostředí operačního systému. Není k dispozici v systému Macintosh
Syntaxe
Environ( { envstring | number } )
Syntaxe funkce Environ má tyto argumenty:
| Argument | Popis |
|---|---|
| envstring | Nepovinný argument. Řetězcový výraz obsahující název proměnné prostředí. |
| Číslo | Nepovinný argument. Číselný výraz odpovídající číselnému pořadí řetězce prostředí v tabulce řetězců prostředí. Argumentem číslo může být libovolný číselný výraz, ale před vyhodnocením se zaokrouhlí na celé číslo. |
Poznámky
Pokud v tabulce řetězců prostředí nenajdete envstring , vrátí se řetězec nulové délky (""). V opačném případě environ vrátí text přiřazený k zadanému envstring; to znamená text následující za znaménkem rovná se (=) v tabulce řetězců prostředí pro danou proměnnou prostředí.
Pokud zadáte číslo, vrátí se řetězec zabírající tuto číselnou pozici v tabulce řetězců prostředí. V tomto případě funkce Environ vrátí veškerý text, včetně envstringu. Pokud na zadané pozici není žádný řetězec prostředí, vrátí funkce Environ řetězec nulové délky.
Příklad
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci Environ k zadání čísla položky a délky PATH příkazu z tabulky řetězců prostředí. Není k dispozici v systému 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