Opis okoliša
Vraća vrijednost varijable okruženja operacijskog sustava.
Primjeri jednostavnih okruženja
123 | Podokolo_primjer ()MsgBox Environment ("Korisničko ime")Kraj podm |
Ovo će vratiti trenutno prijavljeno korisničko ime.
123 | Podokolo_primjer ()MsgBox Environment ("ComputerName")Kraj podm |
Ovo će vratiti naziv računala.
Okolišna sintaksa
U VBA Editor -u možete upisati "Environ (" da vidite sintaksu za funkciju Environment:
Funkcija Environ sadrži argument:
Izraz: Naziv varijable okruženja (niz) ili Numerički izraz (1 do 255) koji odgovara numeričkom redoslijedu niza okoline u tablici nizova okoline.
Primjeri funkcije okruženja Excel VBA
1 | MsgBox Environment (1) |
Rezultat: “ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBox Environment (0) |
Rezultat: Greška tijekom izvođenja '5'
1 | MsgBox okruženje (256) |
Rezultat: Greška tijekom izvođenja '5'
1 | MsgBox Environment ("AllUsersProfile") |
Rezultat: "C: \ ProgramData"
Da biste vidjeli sve varijable okruženja koje su definirane na vašem računalu, možete upotrijebiti sljedeći kôd.
123456789101112131415161718192021222324 | PodpopisAllEnvironVariables ()Dim strEnviron As StringDim VarSplit kao varijantaDim i As Integer, nRow As IntegernRow = 1Raspon ("A1"). Vrijednost = "Indeks"Raspon ("B1"). Vrijednost = "Naziv varijable okruženja"Raspon ("C1"). Vrijednost = "Vrijednost varijable okruženja"Raspon ("A: C"). Stupci.AutoFitRaspon ("A1: C1"). Font.Bold = TruenRow = 2Za i = 1 do 255strEnviron = Okruženje (i)Ako strEnviron "" TadaVarSplit = Split (strEnviron, "=")Raspon ("A" & nRow) .Vrijednost = iRaspon ("B" & nRow) .Vrijednost = VarSplit (0)Raspon ("C" & nRow) .Vrijednost = VarSplit (1)nRow = nRow + 1Završi akoSljedećiKraj podm |
Zatim sve varijable okruženja možete vidjeti na sljedeći način.
Rezultat se može razlikovati ovisno o sustavu. Budući da osim zadanih varijabli okruženja postoje i neke prilagođene varijable okruženja.
Za bilo koji niz koji ne postoji na popisu varijabli okruženja vratit će prazan niz ("").
1 | MsgBox Environment ("MyEnviron") |
Rezultat: ""