Von: Andreas Entenmann

Hallo,
versuch mal diesen anzupassen:
Sub Alle_Exceldateien_nacheinander_öffnen()
Dim sFile As String, sPath As String
sPath = “D:”
sFile = Dir(sPath & “*.xls”)
Do While sFile “”
Workbooks.Open sPath & sFile
sFile = Dir()
‘Dein Code
ActiveWorkbook.Save
ActiveWorkbook.Close
Loop
End Sub