Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne niz, povezan s spremenljivko okolja operacijskega sistema. Ni na voljo v računalniku Macintosh.
Sintaksa
Environ( { envstring | števlka } )
Sintaksa funkcije Environ ima te argumente:
|
Argument |
Opis |
|
envstring |
Izbirno. Izraz niza, ki vsebuje ime spremenljivke okolja. |
|
številka |
Izbirno. Številski izraz, ki ustreza številskemu vrstnem redu niza okolja v tabeli nizov okolja. V argument številka je lahko poljuben številski izraz, vendar se pred vrednotenjem zaokroži na celo število. |
Opombe
Če argumenta envstring ni mogoče najti v tabeli nizov okolja, bo vrnjen niz ničelne dolžine (""). V nasprotnem primeru funkcija Environ vrne besedilo, dodeljeno določenemu argumentu envstring; tj. besedilo, ki sledi enačaju (=) v tabeli nizov okolja za to spremenljivko okolja.
Če navedete argument številka, bo vrnjen niz, ki je na tem številskem položaju v tabeli nizov okolja. V tem primeru funkcija Environ vrne celotno besedilo, vključno z argumentom envstring. Če na določenem položaju ni niza okolja, funkcija Environ vrne niz ničelne dolžine.
Primer
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru se funkcija Environ uporablja za podajanje številke vnosa in dolžine izjave PATH iz tabele nizov okolja. Ni na voljo v računalniku 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
