Umgebungsbeschreibung
Gibt den Wert einer Betriebssystemumgebungsvariablen zurück.
Einfache Umgebungsbeispiele
| 123 | Unterumgebung_Beispiel()MsgBox Umgebung("Benutzername")End Sub |
Dadurch wird der aktuell angemeldete Benutzername zurückgegeben.
| 123 | Unterumgebung_Beispiel()MsgBox Environ("Computername")End Sub |
Dies gibt den Computernamen zurück.
Umgebungssyntax
Im VBA-Editor können Sie „Environ(“ eingeben, um die Syntax für die Environ-Funktion anzuzeigen:
Die Umgebungsfunktion enthält ein Argument:
Ausdruck: Name einer Umgebungsvariablen (Zeichenfolge) oder eines numerischen Ausdrucks (1 bis 255) entsprechend der numerischen Reihenfolge der Umgebungszeichenfolge in der Umgebungszeichenfolgentabelle.
Beispiele für Excel VBA Environ-Funktion
| 1 | MsgBox-Umgebung(1) |
Ergebnis: „ALLUSERSPROFILE=C:\ProgramData“
| 1 | MsgBox Umgebung(0) |
Ergebnis: Laufzeitfehler '5'
| 1 | MsgBox-Umgebung(256) |
Ergebnis: Laufzeitfehler '5'
| 1 | MsgBox Environ("AllUsersProfile") |
Ergebnis: „C:\ProgramData“
Um alle auf Ihrem Computer definierten Umgebungsvariablen anzuzeigen, können Sie den folgenden Code verwenden.
| 123456789101112131415161718192021222324 | Sub ListAllEnvironVariables()Dim strEnviron As StringDim VarSplit als VarianteDim i As Integer, nRow As IntegernReihe = 1Range("A1").Value = "Index"Range("B1").Value = "Name der Umgebungsvariablen"Range("C1").Value = "Wert der Umgebungsvariablen"Range("A:C").Columns.AutoFitRange("A1:C1").Font.Bold = TruenReihe = 2Für i = 1 bis 255strEnviron = Umgebung(i)Wenn strEnviron "" ThenVarSplit = Split(strEnviron, "=")Range("A" & nRow).Wert = iRange("B" & nRow).Wert = VarSplit(0)Range("C" & nRow).Wert = VarSplit(1)nReihe = nReihe + 1Ende WennNächsteEnd Sub |
Dann können Sie alle Umgebungsvariablen wie folgt sehen.
Das Ergebnis kann je nach System variieren. Weil es neben den Standardumgebungsvariablen einige benutzerdefinierte Umgebungsvariablen gibt.
Für jede Zeichenfolge, die nicht in der Liste der Umgebungsvariablen vorhanden ist, wird leere Zeichenfolge ("") zurückgegeben.
| 1 | MsgBox Environ("MeinEnviron") |
Ergebnis: ""
