Funkcja Environ

Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.

Zwraca ciąg skojarzony ze zmienną środowiskową systemu operacyjnego. Niedostępne na komputerze Macintosh

Składnia

Wymuszczony({ envstring | numer } )

W składni funkcji Wołodek występują następujące argumenty:

Argument

Opis

envstring

Argument opcjonalny. Wyrażenie ciągu zawierające nazwę zmiennej środowiskowej.

number

Argument opcjonalny. Wyrażenie liczbowe odpowiadające kolejności liczbowej ciągu środowiskowego w tabeli ciągów środowiskowych. Argument liczba może być dowolnym wyrażeniem liczbowym, ale przed rozpoczęciem oceny jest zaokrąglany do liczby pełnej.


Spostrzeżenia

Jeśli ciąg znaków envstring nie znajduje się w tabeli ciągów środowiska, zwracany jest ciąg o zerowej długości (""). W przeciwnym razie Funkcja Umyli zwraca tekst przypisany do określonego envstringu. oznacza to, że tekst następujący po znaku równości (=) w tabeli ciągów środowiska dla tej zmiennej środowiskowej.

W przypadku określenia liczbyzwracany jest ciąg zajmujący pozycję numeryczną w tabeli ciągów środowiska. W tym przypadku Funkcja N zwraca cały tekst, łącznie z envstring. Jeśli na określonej pozycji nie ma ciągu środowiskowego, funkcja Stringron zwraca ciąg o zerowej długości.

Przykład

Uwaga: Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.

W tym przykładzie użyto funkcji Stringron do wprowadzenia numeru wpisu i długości PATH instrukcji z tabeli ciągów środowiska. Niedostępne na komputerze Macintosh.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If

Potrzebna dalsza pomoc?

Rozwijaj umiejętności związane z pakietem Office
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×