Environ to funkcja systemowa VBA Jej zadaniem jest pobieranie wartości zmiennych środowiskowych systemu operacyjnego, czyli takich, które są ustawione przez Windows i opisują aktualne środowisko użytkownika.
Najczęściej stosowane wartości argumenty Expression to:
| Expression | Zwracana wartość |
| Username | Nazwa zalogowanego użytkownika |
| ComputerName | Nazwa komputera |
| OS | System operacyjny |
| Temp | Ścieżka do folderu tymczasowego |
Przykład wykorzystania w kodzie może wyglądać tak:
| Public Sub Funkcja_Environ() Dim Uzytkownik As String Dim FolderTymczasowy As String Uzytkownik = Environ(„Username”) FolderTymczasowy = Environ(„Temp”) End Sub |
W zależności od wersji i ustawień komputera zmienne funkcji mogą się różnić. Wszystkie dostępne zmienne można sprawdzić taką procedurą:
| Public Sub WypiszZmiennieSrodowiskowe() Dim i As Integer For i = 1 To 50 Debug.Print i & „: ” & Environ(i) Next i End Sub |
W swoich projektach zdarza mi się stosować tę funkcję. Wykorzystuje ją głównie do sprawdzenia użytkownika i ukrywania/odkrywania niektórych arkuszy. Ścieżka do folderu tymczasowego jest również przydatna do tworzenia chwilowych plików.
Warto się zainteresować.
A tu możesz mi postawić kawę:
