Oeffnen von Workbooks in Schleife
22.10.2022 16:46:12
Workbooks
Ich möchte in meinem Programm diverse Workbooks öffnen, bearbeiten und danach - ohne Speichern - wieder schliessen:
Sub wbk_oeffnen_und_schliessen()
pfad = "C:\st_analyzer\_test_env\data\"
For i = 2 To 119
Workbooks.Open (pfad & i & ".xlsx")
DoEvents
ActiveWorkbook.Close
DoEvents
Next i
MsgBox ("fertig")
End Sub
Bereits nach Öffnen des ersten Workbooks erhalte ich die Fehlermeldung'Ausführung des Codes wurde unterbrochen', noch bevor irgendeine Aktion vorgenommen wurde.
Wenn ich im Editor einen Haltepunkt setze und den Code in Einzelschritten durchlaufe funktioniert das ganze.
Auch der Einsatz von DoEvents hat keine Veränderung gebracht.
Die zu öffnenden Workbooks sind je ca. 1.2 MB gross.
Weiss jemand Rat?
Gruss
Andre