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 |
W praktyce może to wyglądać np.tak:
| Public Sub Uzytkownik() Dim User As String Dim FolderTymczasowy As String User = 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ę. Wykorzystuję 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.
A tu możesz mi postawić kawę:
