Keskkond Kirjeldus
Tagastab operatsioonisüsteemi keskkonnamuutuja väärtuse.
Lihtsad keskkonna näited
123 | Alamkeskkond_näide ()MsgBox Environ ("Kasutajanimi")End Sub |
See tagastab praeguse sisselogitud kasutajanime.
123 | Alamkeskkond_näide ()MsgBox Environ ("Arvuti nimi")End Sub |
See tagastab arvuti nime.
Keskkonna süntaks
VBA redaktoris saate sisestada "Environ ("), et näha funktsiooni Environ süntaksi:
Funktsioon Environ sisaldab argumenti:
Väljend: Keskkonnamuutuja (string) või numbrilise avaldise (1 kuni 255) nimi, mis vastab keskkonnastringi tabeli keskkonnastringi numbrilisele järjekorrale.
Näited Excel VBA keskkonnafunktsioonist
1 | MsgBoxi keskkond (1) |
Tulemus: “ALLUSERSPROFILE = C: \ ProgramData”
1 | MsgBoxi keskkond (0) |
Tulemus: Käitusaja viga '5'
1 | MsgBox Environ (256) |
Tulemus: Käitusaja viga „5”
1 | MsgBox Environ ("AllUsersProfile") |
Tulemus: “C: \ ProgramData”
Kõigi teie arvutis määratletud keskkonnamuutujate vaatamiseks võite kasutada järgmist koodi.
123456789101112131415161718192021222324 | Alamloend Kõik keskkonnamuutujad ()Hämardage keskkond stringinaDim VarSplit VariantinaDim i täisarvuna, nRida täisarvunanRida = 1Vahemik ("A1"). Väärtus = "Indeks"Vahemik ("B1"). Väärtus = "Keskkonnamuutuja nimi"Vahemik ("C1"). Väärtus = "Keskkonnamuutuja väärtus"Vahemik ("A: C"). Veerud.AutoFitVahemik ("A1: C1"). Font.Bold = TruenRida = 2I = 1 kuni 255strEnviron = Keskkond (i)Kui strEnviron "" SiisVarSplit = Jagatud (strEnviron, "=")Vahemik ("A" & nRida) .Väärtus = iVahemik ("B" & nRow) .Väärtus = VarSplit (0)Vahemik ("C" & nRow) .Väärtus = VarSplit (1)nRida = nRida + 1Lõpp KuiEdasiEnd Sub |
Seejärel näete kõiki keskkonnamuutujaid järgmiselt.
Tulemus võib süsteemiti erineda. Kuna peale vaikekeskkonnamuutujate on ka mõned kohandatud keskkonnamuutujad.
Iga stringi puhul, mida keskkonnamuutujate loendis pole, tagastab see tühja stringi (“”).
1 | MsgBox Environ ("MyEnviron") |
Tulemus: ""