Hallo VBA-Cracks,
mir stellt sich folgendes Problem:
wenn ich aus einer .xlsx-Datei heraus eine andere Excel-Datei im gleichen Pfad öffnen will, kann ich das mit folgendem Code erreichen:
Pfad = Application.Workbooks.Item(1).Path & "\"
Dateiname = "Irgendwas.xlsx"
Workbooks.Open Filename:=Pfad & Dateiname
Bei einer Excel-Vorlage funktioniert das nur leider nicht, da von Excel beim Einlesen der Datei automatisch aus z.B. Computer.xltx Computer1.xltx gemacht, aber die Datei noch nicht abgespeichert wird, so dass
Application.Workbooks.Item(1).Path & "\"
nur "\" ergibt.
Meine Frage: Gibt es eine Möglichkeit (ohne vorheriges Abspeichern der Datei) automatisch an den variablen Pfad zu kommen?
Danke im Voraus.
|