VBA: Aus Excel Makro heraus Datei öffnen

Hallo Leute,

ich hatte an derselben Stelle schonmal eine ähnliche Frage gestellt. Jetzt habe ich folgendes Problem: Ich arbeite mit Excel 2003 und möchte aus einem Makro heraus eine andere Excel Datei, die sich im selben Ordner mit dem ich arbeite befindet, öffnen. Das funktioniert auch, solange ich den kompletten Dateipfad angebe. Da ich aber die Dateien verschieben möchte, sollte es möglich sein, vom selben Ordner heraus zu operieren. Gebe ich nur den Dateinamen an, kommt aber die Fehlermeldung: Laufzeitfehler->1004'. Das hat aber schonmal funktioniert! Hier ein Teil meines Scripts:

Dim Dateiname As String
Dateiname = Test_Datei.xls
Workbooks.Open Filename:=Dateiname
Windows(Dateiname).Activate

Weiß mir jemand Rat?

Gruß, jannie

Sollte so klappen

Danke, Fizbin,

funktioniert! Jetzt hab ich noch das Problem, wenn Test_Datei.xls schon geöffnet ist, kommt die Meldung:

Test_Datei.xls ist bereits geöffnet, wenn Sie es erneut öffnen, verlieren Sie alle Änderungen, die Sie eingegeben haben. Soll Test_Datei erneut geöffnet werden?

Wie stelle ich fest, ob Test_Datei.xls schon offen ist? Der Code

Pfad = ThisWorkbook.Path & \Test_Datei.xls
if Pfad.isOpen = false then
Workbooks.Open Filename:=Pfad
endif

liefert für Pfad: ungültiger Bezeichner, wie kann ich das umgehen?

Gruß, jannie

Hab das Problem umgangen, entweder ich mache keine neuen Eingaben, oder ich speichere ab, sobald ich welche gemacht habe. Dann läuft alles einwandfrei.