Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Relativer Pfad Username

Betrifft: VBA Relativer Pfad Username von: Kati
Geschrieben am: 29.06.2015 10:44:23

Meine Excel Datei soll als csv Datei auf dem Desktop des jeweiligen Users (Ordner Commande) über Makro gespeichert werden.

Dies funktioniert auch soweit.

Wie kann ich jedoch anstatt des fest hinterlegten username in meinem VBA Code einen relativen Pfad eingeben, so dass der Speicherort undabhängig

welcher User (Windows User) mit der Datei arbeitet passt.



Mein Code in diesem Fall für User test:



ChDir "C:\Users\test\Desktop\commande"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\test\Desktop\commande\commande.csv", FileFormat:= _
xlCSV, CreateBackup:=False


Ziel: Jeder User soll das Makro aufrufen können ohne dass im Makro der Username im Speicherort geändert werden muss.



Vielen Dank im Voraus.

Kati

  

Betrifft: AW: VBA Relativer Pfad Username von: Nepumuk
Geschrieben am: 29.06.2015 10:50:40

Hallo,

mit:

Environ$("USERNAME")
kommst du an den Benutzernamen.

Gruß
Nepumuk


  

Betrifft: AW: VBA Relativer Pfad Username von: Kati
Geschrieben am: 29.06.2015 11:12:10


Sorry wie muss dann dies in meinem Fall aussehen im Code aussehen (Code siehe oben)?


  

Betrifft: AW: VBA Relativer Pfad Username von: Nepumuk
Geschrieben am: 29.06.2015 11:16:25

Hallo,

so:

ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("USERNAME") & _
    "\Desktop\commande\commande.csv", FileFormat:=xlCSV

CHDir kannst du dir sparen da du den kompletten Pfad in der SaveAs-Methode angibst.

Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "VBA Relativer Pfad Username"