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( { Umgebungszeichenfolge | Zahl } )
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 Zahl kann ein beliebiger numerischer Ausdruck sein, der aber vor seiner Auswertung auf eine ganze Zahl gerundet wird. |
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 einschließlich enstring zurück. 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 zum Bereitstellen der Eintragsnummer und der Länge der PATH-Anweisung aus der Umgebungszeichenfolgen-Tabelle verwendet. 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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
