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( { reťazecprostredia | číslo } )
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. Argument číslo môže byť akýkoľvek numerický výraz, ale pred výpočtom sa zaokrúhli na celé číslo. |
Poznámky
Ak sa argument reťazecprostredia nedá v tabuľke reťazcov prostredia nájsť, vráti sa reťazec s nulovou dĺžkou (""). V opačnom prípade vráti funkcia Environ text priradený ku konkrétnemu argumentu reťazecprostredia, teda text, za ktorým nasleduje znak rovnosti (=) nachádzajúci sa v tabuľke Reťazec prostredia určený pre premennú prostredia.
Ak zadáte argument číslo, vráti sa reťazec zaberajúci číselnú pozíciu v tabuľke reťazcov prostredia. V tomto prípade vráti funkcia Environ všetok text vrátane argumentu reťazecprostredia. 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 poskytnutie čísla položky a dĺžky príkazu PATH pochádzajúceho 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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
