Hinweis
Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.
Gibt die Zeichenfolge zurück, die mit einer Betriebssystem-Umgebungsvariable verknüpft ist. Auf einem Macintosh nicht verfügbar.
Syntax
Environ( { envstring | number } )
Die Syntax der Funktion Environ weist die folgenden Argumente auf:
| Argument | Beschreibung |
|---|---|
| Umgebungszeichenfolge | Optional. Zeichenfolgenausdruck mit dem Namen einer Umgebungsvariablen. |
| Zahl | Optional. Numerischer Ausdruck, der der numerischen Reihenfolge der Umgebungszeichenfolge in der Umgebungszeichenfolgen-Tabelle entspricht. Das Argument number kann ein beliebiger numerischer Ausdruck sein, wird jedoch vor der Auswertung auf eine ganze Zahl gerundet. |
Hinweise
Wenn envstring in der Umgebungszeichenfolgentabelle nicht gefunden werden kann, wird eine leere Zeichenfolge ("") zurückgegeben. Andernfalls gibt Environ den Text zurück, der der angegebenen envstring zugewiesen ist; d. h. der Text, der dem Gleichheitszeichen (=) in der Umgebungszeichenfolgentabelle für diese Umgebungsvariable folgt.
Wenn Sie number angeben, wird die Zeichenfolge zurückgegeben, die diese numerische Position in der Umgebungszeichenfolgentabelle einnimmt. In diesem Fall gibt Environ den gesamten Text zurück, einschließlich envstring. Wenn an der angegebenen Position keine Umgebungszeichenfolge vorhanden ist, gibt Environ eine leere Zeichenfolge zurück.
Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Environ-Funktion verwendet, um die Eintragsnummer und die Länge der PATH Anweisung aus der Umgebungszeichenfolgentabelle anzugeben. Auf einem Macintosh nicht verfügbar.
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