Startseite
>
1. EXCEL
>
1.15 VBA - Tipps
>
1.15.3 Excel Umgebungs-/Systemvariablen auslesen
|
Zurück
Vor
|
|
|
|
Bei der Verwendung von Makros kann es sinnvoll
sein auf die vorhandenen Windows-Umgebungsvariablen
zurückzugreifen.
|
|
So lässt sich zum
Beispiel feststellen, wie der bei Windows angemeldete User
heißt.
|
Wird ein Makro auf verschiedenen Rechnern
ausgeführt, könnte man damit zum Beispiel nachvollziehen,
wer welche Änderungen vorgenommen hat.
|
Oder es lassen sich diverse
Pfade die vom System verwendet werden auslesen.
|
|
Hier ein paar
Beispiele:
|
Environ("USERNAME") = Name des
angemeldeten Users
|
Environ("USERPROFILE") = Pfad des
Nutzerprofils
|
Environ("ALLUSERSPROFILE") = Pfad
für Benutzerprofile (ALLE)
|
Environ("APPDATA") = Pfad
Anwendungsdaten
|
Environ("CommonProgramFiles") = Ordner
für Gemeinsame Dateien
|
Environ("COMPUTERNAME") = Name des
Computers
|
Environ("HOMEDRIVE") =
Standardlaufwerk des Benutzers
|
Environ("OS") =
Betriebssystemversion
|
Environ("Path") =
Pfadangaben für Anwendungen
|
Environ("ProgramFiles") = Pfad zum
Programme-Ordner
|
Environ("SystemDrive") = Laufwerk des
Betriebssystems
|
Environ("SystemRoot") = Pfad des
Betriebssystems
|
Environ("TEMP") =
Pfad temporärer Ordner
|
Es gibt noch einige Umgebungsvariablen mehr. Um
diese rauszufinden kann man statt der Bezeichnung auch eine Zahl
zwischen 1 und 111 in die Klammern
schreiben.
|
|
Viel Spaß beim probieren
:) Man kann sogar Hardwareinformationen
auslesen!
|
|
|
|
'Code in
ein normales Modul einfügen
|
Sub
EnvironListe()
|
On
Error Resume Next
|
Dim
x As Byte, y As Byte
|
x =
1
|
For
y = 1 To 111
|
If Environ(y) <> ""
Then
|
Cells(x, 1) =
Environ(y)
|
x = x +
1
|
End If
|
Next y
|
End
Sub
|
|
|
|
|