Popis prostredia
Vráti hodnotu premennej prostredia operačného systému.
Jednoduché príklady prostredia
123 | Sub Environment_Example ()MsgBox Environ („Používateľské meno“)Koniec pod |
Tým sa vráti aktuálne prihlásené používateľské meno.
123 | Sub Environment_Example ()MsgBox Environ („ComputerName“)Koniec pod |
Tým sa vráti názov počítača.
Syntax prostredia
V editore VBA môžete zadaním „Environ (“ zobraziť syntax pre funkciu Environ:
Funkcia Environ obsahuje argument:
Výraz: Názov premennej (reťazca) prostredia alebo číselného výrazu (1 až 255) zodpovedajúceho číselnému poradiu reťazca prostredia v tabuľke reťazcov prostredia.
Príklady funkcie prostredia Excel VBA
1 | MsgBox Environ (1) |
Výsledok: „ALLUSERSPROFILE = C: \ ProgramData“
1 | MsgBox Environ (0) |
Výsledok: Chyba pri spustení „5“
1 | MsgBox Environ (256) |
Výsledok: Chyba pri spustení „5“
1 | MsgBox Environ („AllUsersProfile“) |
Výsledok: „C: \ ProgramData“
Ak chcete zobraziť všetky premenné prostredia, ktoré sú definované vo vašom počítači, môžete použiť nasledujúci kód.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables ()Dim strEnviron ako reťazecDim VarSplit ako variantDim i As integer, nRow As integernRow = 1Rozsah („A1“). Hodnota = „Index“Rozsah („B1“). Hodnota = „Názov premennej prostredia“Rozsah („C1“). Hodnota = „Hodnota premennej prostredia“Rozsah („A: C“). Stĺpce. AutoFitRozsah ("A1: C1"). Font.Bold = TruenRow = 2Pre i = 1 až 255strEnviron = Prostredie (i)Ak strEnviron "" PotomVarSplit = Split (strEnviron, "=")Rozsah („A“ & nRow). Hodnota = iRozsah ("B" & nRow). Hodnota = VarSplit (0)Rozsah ("C" & nRow). Hodnota = VarSplit (1)nRow = nRow + 1Koniec AkĎalšieKoniec pod |
Potom môžete vidieť všetky premenné prostredia nasledovne.
Výsledok sa môže líšiť v závislosti od systému. Pretože okrem predvolených premenných prostredia existujú aj niektoré vlastné premenné prostredia.
Pre každý reťazec, ktorý neexistuje v zozname premenných prostredia, vráti prázdny reťazec („“).
1 | MsgBox Environ („MyEnviron“) |
Výsledok: „“