Supportnet / Forum / Tabellenkalkulation
relative pfade in Excel-Macros
Frage
ich versuche aus einem datenbanktool ein Excelmakro aufzurufen, welches sich daten einliest, bearbeitet und anschliessend in einer datei spaeichert, damit access wieder drauf zugreifen kann. alles läuft super, aber nun soll es problemlos verschiebbar sein -> also müssen die pfade relativ sein. so wie ich es hier versuche klappt es in access prima, aber in excel nicht!
was mache ich falsch?
die deklarierung:
Dim Importpfad As String
Importpfad = CurrentProject.Path & "\pdss\Temp\HOTEL.txt"
der aufruf:
ActiveWorkbook.SaveAs Filename:=Importpfad, FileFormat:=xlText, CreateBackup:=False
Antwort 1 von sicci
Hallo melli,
VBA(Excel) gibt den den aktuellen Pfad der geöffneten (und zu speichernden) Datei mit 'ActiveWorkbook.Path' (nicht currentproject) zurück.
also:
die deklarierung:
Dim Importpfad As String
Importpfad = ActiveWorkbook.Path & "\pdss\Temp\HOTEL.txt"
der aufruf:
ActiveWorkbook.SaveAs Filename:=Importpfad, FileFormat:=xlText, CreateBackup:=False
Gruß
sicci
VBA(Excel) gibt den den aktuellen Pfad der geöffneten (und zu speichernden) Datei mit 'ActiveWorkbook.Path' (nicht currentproject) zurück.
also:
die deklarierung:
Dim Importpfad As String
Importpfad = ActiveWorkbook.Path & "\pdss\Temp\HOTEL.txt"
der aufruf:
ActiveWorkbook.SaveAs Filename:=Importpfad, FileFormat:=xlText, CreateBackup:=False
Gruß
sicci

