Popis prostředí
Vrátí hodnotu proměnné prostředí operačního systému.
Jednoduché příklady prostředí
| 123 | Sub Environ_Example ()MsgBox Environ („Uživatelské jméno“)End Sub |
Tím se vrátí aktuální přihlášené uživatelské jméno.
| 123 | Sub Environ_Example ()MsgBox Environ ("ComputerName")End Sub |
Tím se vrátí název počítače.
Syntaxe prostředí
V editoru VBA můžete zadat „Environ (“ pro zobrazení syntaxe funkce Environ:
Funkce Environ obsahuje argument:
Výraz: Název proměnné prostředí (řetězec) nebo Číselný výraz (1 až 255) odpovídající číselnému pořadí řetězce prostředí v tabulce řetězců prostředí.
Příklady funkce prostředí Excel VBA
| 1 | MsgBox Environ (1) |
Výsledek: „ALLUSERSPROFILE = C: \ ProgramData“
| 1 | MsgBox Environ (0) |
Výsledek: Chyba běhu „5“
| 1 | MsgBox Environ (256) |
Výsledek: Chyba běhu „5“
| 1 | MsgBox Environ ("AllUsersProfile") |
Výsledek: „C: \ ProgramData“
Chcete -li zobrazit všechny proměnné prostředí, které jsou definovány ve vašem počítači, můžete použít následující kód.
| 123456789101112131415161718192021222324 | Dílčí seznamAllEnvironVariables ()Dim strEnviron jako řetězecDim VarSplit jako variantaDim i As Integer, nRow As Integern Řádek = 1Rozsah ("A1"). Hodnota = "Index"Rozsah ("B1"). Hodnota = "Název proměnné prostředí"Rozsah ("C1"). Hodnota = "Hodnota proměnné prostředí"Rozsah („A: C“). Sloupce. AutoFitRozsah ("A1: C1"). Font.Bold = Truen Řádek = 2Pro i = 1 až 255strEnviron = Prostředí (i)Pokud strEnviron "" PakVarSplit = Split (strEnviron, "=")Rozsah ("A" & nRow). Hodnota = iRozsah ("B" & nRow) .Hodnota = VarSplit (0)Rozsah ("C" & nRow) .Hodnota = VarSplit (1)nRow = nRow + 1Konec IfdalšíEnd Sub |
Potom můžete vidět všechny proměnné prostředí jako následující.
Výsledek se může lišit podle systému. Protože kromě výchozích proměnných prostředí existují i některé vlastní proměnné prostředí.
Pro jakýkoli řetězec, který neexistuje v seznamu proměnných prostředí, vrátí prázdný řetězec („“).
| 1 | MsgBox Environ ("MyEnviron") |
Výsledek: ""
