Workbooks.Open
Carsten
ich habe mal wieder ein Problem mit einem vba-Code. Über ein Makro möchte ich Daten aus täglichen Dateien in eine Übersicht kopieren. Via Abfrage soll die zu kopierende Datei ausgewählt werden. Das funktioniert auch. Anschließend soll automatisch die Übersicht geöffnet werden. Die Übersicht steht im selben Ordner.
Hier ist der entsprechende Ausschnitt aus meinem Code:
Sub Test()
Dim Datei, DateiPfad as String
Datei = Application.GetOpenFilename(, , "Bitte wählen Sie die Tages-Datei aus :")
If Datei = False Then Exit Sub
Workbooks.OpenText Filename:=Datei, Origin:=xlWindows
DateiPfad = ActiveWorkbook.Path
Workbooks.Open DateiPfad & \Monatsübersicht.xls
End Sub
Leider bekomme ich immer eine Fehlermeldung: Die Methode Open für das Objekt Workbook ist fehlgeschlagen." Habe auch verschiedene andere Varianten ausprobiert. Hat alles nicht geklappt.
Kann mir hier jemand weiterhelfen? Vielen Dank!
Gruß
Carsten