xlsm-Datei via Makro in anderer Datei öffnen
Andrea
Wir arbeiten bei uns mit verschiedenen Excel-Versionen (Office2000 und Office2007). Nun sollte ich via Makro diverse Excel-Dateien (xls, xlsm) öffnen, darin ein Makro starten und diese dann wieder schliessen. Ich habe es mit dem untenstehenden Code geschafft, die xls-Dateien zu öffnen. Bei den xlsm-Dateien erhalte ich jedoch den Fehler, dass die Datei nicht gefunden würde, egal ob ich in Office 2007 oder 2000 arbeite. Hat jemand von euch eine Idee, ob das überhaupt und wenn ja, wie dies via Makro möglich ist? Ich habe in der Tabelle1 in der Spalte 1 den Pfad inkl. Dateinamen gespeichert, in der Spalte 2 den Dateinamen inkl. Endung.
Ich wäre euch sehr dankbar für eine Lösung. Vielen Dank im voraus.
Herzliche Grüsse
Andrea
Sub übertragen()
Dim ZzPfad, SpPfad, ZZDatei, SPDAtei As Integer
Dim DatName, PfadName As Variant
ZzPfad = 1
SpPfad = 1
ZZDatei = 1
SPDAtei = 2
Tabelle1.Activate
Do While Cells(ZzPfad, SpPfad) ""
PfadName = Cells(ZzPfad, SpPfad)
DatName = Cells(ZZDatei, SPDAtei)
'öffnet die Datei und führt darin das Makro "Daten speichern" aus
Workbooks.Open filename:=PfadName
Application.Run DatName & "!Daten_speichern"
ActiveWorkbook.Save
ActiveWindow.Close
ZzPfad = ZzPfad + 1
ZZDatei = ZZDatei + 1
Loop
End Sub
Anzeige