Poznámka
Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.
Vráti reťazec priradený k premennej prostredia operačného systému. Nie je k dispozícii v počítačoch Macintosh
Syntax
Environ( { envstring | number } )
Syntax funkcie Environ má tieto argumenty:
| Argument | Popis |
|---|---|
| reťazecprostredia | Voliteľný argument. Reťazcový výraz obsahujúci názov premennej prostredia. |
| číslo | Voliteľný argument. Numerický výraz zodpovedajúci číselnému poradiu reťazca prostredia v tabuľke Reťazec prostredia. Číselný argument môže byť ľubovoľný numerický výraz, ale pred vyhodnotením sa zaokrúhli na celé číslo. |
Poznámky:
Ak reťazec envstring nie je možné nájsť v tabuľke reťazcov prostredia, vráti sa reťazec s nulovou dĺžkou (""). V opačnom prípade funkcia Environ vráti text priradený k zadanému envstringu. to znamená text, ktorý nasleduje za znamienkom rovnosti (=) v tabuľke reťazcov prostredia pre danú premennú prostredia.
Ak zadáte číslo, vráti sa reťazec, ktorý zaberá túto číselnú pozíciu v tabuľke reťazcov prostredia. V tomto prípade vráti environ celý text vrátane reťazca. Ak v zadanej pozícii neexistuje žiadny reťazec prostredia, funkcia Environ vráti reťazec nulovej dĺžky.
Príklad
Poznámka
Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia Environ použitá na zadanie čísla položky a dĺžky PATH príkazu z tabuľky reťazcov prostredia. Nie je k dispozícii v počítačoch 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