Opis okolja
Vrne vrednost spremenljivke okolja operacijskega sistema.
Preprosti primeri okolja
123 | Podokoli_primer ()MsgBox Environment ("Uporabniško ime")End Sub |
S tem se vrne prijavljeno trenutno uporabniško ime.
123 | Podokoli_primer ()MsgBox Environment ("ComputerName")End Sub |
To vrne ime računalnika.
Okoljska sintaksa
V urejevalniku VBA lahko vnesete »Environ («), če si želite ogledati skladnjo za funkcijo Environ:
Funkcija Environ vsebuje argument:
Izraz: Ime spremenljivke okolja (niz) ali številski izraz (1 do 255), ki ustreza številčnemu vrstnemu redu niza okolja v tabeli nizov okolja.
Primeri funkcije okolja Excel VBA
1 | MsgBox okolje (1) |
Rezultat: »ALLUSERSPROFILE = C: \ ProgramData«
1 | MsgBox Environment (0) |
Rezultat: Napaka med izvajanjem '5'
1 | MsgBox okolje (256) |
Rezultat: Napaka med izvajanjem '5'
1 | MsgBox Environment ("AllUsersProfile") |
Rezultat: »C: \ ProgramData«
Če si želite ogledati vse spremenljivke okolja, ki so definirane v vašem računalniku, lahko uporabite naslednjo kodo.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnvironment kot nizZatemni VarSplit kot variantoDim i As Integer, nRow As IntegernRow = 1Razpon ("A1"). Vrednost = "Indeks"Obseg ("B1"). Vrednost = "Ime spremenljivke okolja"Razpon ("C1"). Vrednost = "Vrednost spremenljivke okolja"Razpon ("A: C"). Stolpci.AutoFitObseg ("A1: C1"). Font.Bold = TruenRow = 2Za i = 1 do 255strEnviron = Okolje (i)Če strEnviron "" PotemVarSplit = Razdeljeno (strEnviron, "=")Razpon ("A" & nRow). Vrednost = iRazpon ("B" & nRow). Vrednost = VarSplit (0)Razpon ("C" & nRow). Vrednost = VarSplit (1)nRow = nRow + 1Konec ČeNaslednjiEnd Sub |
Nato si lahko ogledate vse spremenljivke okolja, kot sledi.
Rezultat se lahko razlikuje glede na sistem. Ker poleg privzetih spremenljivk okolja obstaja še nekaj spremenljivk okolja.
Za vsak niz, ki ne obstaja na seznamu spremenljivk okolja, bo vrnil prazen niz (»«).
1 | MsgBox Environment ("MyEnviron") |
Rezultat: ""