Pfad einer xlt-Dtei lesen
05.06.2008 11:50:00
Wilhelm
bitte helft mir bei folgendem Problem:
Das VBA-Programm einer Excel-Anwendung (Hauptdatei) muss Daten aus einer zweiten Excel-Datei (Hilfsdatei) lesen. Bei Bedarf öffnet das VBA-Programm die Hilfsdatei, damit die Daten gelesen werden können.
Das Programm soll auf unterschiedlichen PCs laufen, deren Laufwerks- und Verzeichnisstruktur unterschiedlich sein kann. Daher kann kein fester Pfad zum Öffnen der Hilfsdatei vorgegeben werden. Ich habe vorgesehen, die Hilfsdatei in das gleiche Verzeichnis wie die Hauptdatei zu legen und diese Daten wie folgt auszulesen:
Pfad = Application.ActiveWorkbook.Path & "\" 'Pfad holen
Hauptdatei = Application.ActiveWorkbook.Name 'Hauptdatei merken
Workbooks.Open Pfad & Hilfsdatei 'Hilfsdatei öffnen, diese hat einen festen Namen
Application.Workbooks(Hauptdatei).Activate 'zurück zur Hauptdatei
Das funktioniert so auch prima. Das Problem ist aber, dass die Hauptdatei als Excel-Mustervorlage Hauptdatei.xlt vorliegen soll. Beim Öffnen der Vorlage erzeugt Excel daraus eine Datei Hauptdatei1.xls, die aber noch nirgendwo gespeichert ist. Wenn ich den Pfad dieser Datei holen will, so liefert der Befehl
Pfad = Application.ActiveWorkbook.Path & "\"
das Ergebnis
Pfad = \
Und ich kann die Hilfsdatei nicht öffnen.
Wer kann mir aus dieser Klemme helfen? Herzlichen Dank im Voraus!
Gruß
Wilhelm