Aplinkos aprašymas
Grąžina operacinės sistemos aplinkos kintamojo reikšmę.
Paprasti aplinkos pavyzdžiai
| 123 | Papildoma aplinka_pavyzdys ()„MsgBox Environ“ („Vartotojo vardas“)Pabaiga Sub |
Tai grąžins dabartinį prisijungusį vartotojo vardą.
| 123 | Papildoma aplinka_pavyzdys ()„MsgBox Environ“ („Kompiuterio pavadinimas“)Pabaiga Sub |
Tai grąžins kompiuterio pavadinimą.
Aplinkos sintaksė
VBA redaktoriuje galite įvesti „Environ“, kad pamatytumėte „Environ“ funkcijos sintaksę:
Funkcijoje „Environ“ yra argumentas:
Išraiška: Aplinkos kintamojo (eilutės) arba skaitinės išraiškos (nuo 1 iki 255) pavadinimas, atitinkantis aplinkos eilutės lentelės aplinkos eilutę.
„Excel VBA“ aplinkos funkcijos pavyzdžiai
| 1 | „MsgBox Environ“ (1) |
Rezultatas: „ALLUSERSPROFILE = C: \ ProgramData“
| 1 | „MsgBox Environ“ (0) |
Rezultatas: vykdymo laiko klaida „5“
| 1 | „MsgBox Environ“ (256) |
Rezultatas: vykdymo laiko klaida „5“
| 1 | „MsgBox Environ“ („AllUsersProfile“) |
Rezultatas: „C: ProgramData“
Norėdami pamatyti visus kompiuterio kintamuosius, galite naudoti šį kodą.
| 123456789101112131415161718192021222324 | Antrinis sąrašasVisos aplinkos kintamieji ()Dim strEnviron kaip eilutėDim VarSplit As VariantDim i As Integer, nRow As IntegernEilė = 1Diapazonas („A1“). Reikšmė = „Indeksas“Diapazonas ("B1"). Reikšmė = "Aplinkos kintamojo pavadinimas"Diapazonas ("C1"). Vertė = "Aplinkos kintamoji vertė"Diapazonas („A: C“). Stulpeliai.AutoFitDiapazonas („A1: C1“). Šriftas. Paryškintas = tiesanEilė = 2Jei i = nuo 1 iki 255strEnviron = Aplinka (i)Jei strEnviron "" TadaVarSplit = padalintas (strEnviron, "=")Diapazonas („A“ & nRow) .Vertybė = iDiapazonas („B“ ir „nRow“). Vertė = „VarSplit“ (0)Diapazonas („C“ ir „nRow“). Vertė = „VarSplit“ (1)n eilutė = n eilutė + 1Pabaiga JeiKitasPabaiga Sub |
Tada visus aplinkos kintamuosius galite matyti taip.
Rezultatas gali skirtis priklausomai nuo sistemos. Kadangi be numatytųjų aplinkos kintamųjų yra keletas tinkintų aplinkos kintamųjų.
Bet kuriai eilutei, kurios nėra aplinkos kintamųjų sąraše, bus pateikta tuščia eilutė („“).
| 1 | „MsgBox Environ“ („MyEnviron“) |
Rezultatas: ""
