ich habe es vorhin schon versucht, dachte auch, dass ich es geschafft habe, aber wie so des öfteren macht mir doch Excel einen Strich durch die Rechnung!
Ich möchte von Excel aus Dateien öffnen, diesen Dateipfad muss ich aber bis auf "Dateinamen.xls" kürzen oder aus dem Dateifpad auslesen, da ich ihn später mit Workbooks("Dateiname.xls") verbinden möchte!
Mein Makro so far:
Dim vAdr As Variant
Dim Open_Datei As String
vAdr = Application.GetOpenFilename
Open_Datei = Dir(vAdr) & Chr(13)
If Workbooks(Open_Datei).Sheets ......
...
...
Kann mir jemand vielleicht ein Makro anbieten! Habe schon in der Recherche geschaut, habe nur nichts gefunden!
Vielen Dank!
Chris