Prijavite se pomoću Microsofta
Prijavite se ili stvorite račun.
Zdravo,
Odaberite drugi račun.
Imate više računa
Odaberite račun pomoću kojeg se želite prijaviti.

Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća niz povezan s varijablom okruženja operacijskog sustava. Nije dostupno na Macintoshu

Sintaksa

Environ ( { envstring | broj } )

Sintaksa funkcije Environ sadrži sljedeće argumente:

Argument

Opis

envstring

Dodatno. Nizovni izraz koji sadrži naziv varijable okruženja.

broj

Dodatno. Numerički izraz koji odgovara brojčanom redoslijedu niza okruženja u tablici niza okruženja. Argument Number može biti bilo koji numerički izraz, ali je zaokružen na cijeli broj prije vrednovanja.


Napomene

Ako se envstring ne može pronaći u tablici niz okruženja za okoliš, vraća se niz nulte duljine (""). U suprotnom, Environ vraća tekst dodijeljen navedenom envstring-u; To jest, tekst koji slijedi znak jednakosti (=) u tablici niza okruženja za tu varijablu okruženja.

Ako navedete broj, vraća se niz koji zauzima taj numerički položaj u tablici – string (okolina). U ovom slučaju, environ vraća sav tekst, uključujući envstring. Ako u navedenom položaju nema niza okruženja, Environment vraća niz nulte duljine .

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru koristi funkcija Environ za isporuku broja unosa i dužine PATH izvatka iz tablice niza okruženja. Nije dostupno na Macintoshu.

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

Potrebna vam je dodatna pomoć?

Proširite svoje vještine
Istražite osposobljavanje
Prvi koristite nove značajke
Pridružite se Microsoft Office Insiderima

Jesu li vam ove informacije bile korisne?

Koliko ste zadovoljni jezičnom kvalitetom?
Što je utjecalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×