AW: Platzhalter für Ordner Benutzer
17.04.2007 01:53:27
fcs
Hallo Emma,
im Prinzip ja.
Bei Netzwerks-Systemen und Multiusern auf einem Rechner wird der aktuelle User normalerweise in einer System-Umgebungs-Variablen gespeichert. Oft/Meist hat diese den Namen "Username" muss aber nicht so sein.
Dann kannst du auf den Usernamen wie folgt unter VBA zugreifen und den Pfad zusammenbasteln.
Benutzer = VBA.Environ("Username")
UserPfad = "C:\Dokumente und Einstellungen\" & Benutzer & "\Eigene Dateien"
Sollte die Umgebungsvariable bei deinem System anders heissen, dann kannst du mit folgendem kleinen Makro die Umgebungsvariablen und ihre Werte anzeigen, um den korrekten Namen der Umgebungsvariablen für den Benutzer herauszufinden.
Sub UmgebungsvariablenAnzeigen()
i = 1
While VBA.Environ$(i) ""
A = A & VBA.Environ$(i) & vbLf
If i Mod 20 = 0 Then
MsgBox A
A = ""
End If
i = i + 1
Wend
If A "" Then MsgBox A
End Sub
Gruß
Franz