Opis środowiska
Zwraca wartość zmiennej środowiskowej systemu operacyjnego.
Proste przykłady środowiska
123 | Podrzędne środowisko_Przykład()Środowisko MsgBox("Nazwa użytkownika")Napis końcowy |
Spowoduje to zwrócenie aktualnej nazwy zalogowanego użytkownika.
123 | Podrzędne środowisko_Przykład()MsgBox Environ("Nazwa Komputera")Napis końcowy |
To zwróci nazwę komputera.
Składnia środowiska
W edytorze VBA możesz wpisać „Environ (”, aby zobaczyć składnię funkcji Environ:
Funkcja Environ zawiera argument:
Wyrażenie: Nazwa zmiennej środowiskowej (ciąg) lub Wyrażenie numeryczne (od 1 do 255) odpowiadające porządkowi liczbowemu ciągu środowiskowego w tabeli ciągów środowiskowych.
Przykłady funkcji środowiska Excel VBA
1 | Środowisko MsgBox(1) |
Wynik: „ALLUSERSPROFILE=C:\ProgramData”
1 | Środowisko MsgBox(0) |
Wynik: Błąd w czasie wykonywania „5”
1 | Środowisko MsgBox(256) |
Wynik: Błąd w czasie wykonywania „5”
1 | MsgBox Environ("AllUsersProfile") |
Wynik: „C:\ProgramData”
Aby wyświetlić wszystkie zmienne środowiskowe zdefiniowane na komputerze, możesz użyć następującego kodu.
123456789101112131415161718192021222324 | Sub ListAllEnvironVariables()Dim strEnviron jako ciągDim VarSplit jako wariantDim i jako liczba całkowita, nRow jako liczba całkowitanWiersz = 1Zakres("A1").Value = "Indeks"Range("B1").Value = "Nazwa zmiennej środowiskowej"Range("C1").Value = "Wartość zmiennej środowiskowej"Zakres("A:C").Kolumny.AutoFitZakres("A1:C1").Czcionka.Pogrubienie = PrawdanWiersz = 2Dla i = 1 do 255strŚrodowisko = Środowisko (i)Jeśli strEnviron „” WtedyVarSplit = Podziel (strEnviron, "=")Zakres("A" & nRow).Value = iZakres("B" & nRow).Value = VarSplit(0)Zakres("C" & nRow).Value = VarSplit(1)nRząd = nRząd + 1Zakończ, jeśliNastępnyNapis końcowy |
Następnie możesz zobaczyć wszystkie zmienne środowiskowe w następujący sposób.
Wynik może się różnić w zależności od systemu. Ponieważ istnieje kilka niestandardowych zmiennych środowiskowych oprócz domyślnych zmiennych środowiskowych.
Dla dowolnego ciągu, który nie istnieje na liście zmiennych środowiskowych, zwróci pusty ciąg („”).
1 | Środowisko MsgBox ("Moje środowisko") |
Wynik: ""