ich suche ein Makro um alle XLSX-Dateien aus einem Ordner zu öffnen (Excel 2010). Folgendes Makro funktioniert leider nicht, da es mir immer nur die erste Datei ausspuckt, und dann aber nicht weiter macht.
Sub OpenFiles()
Dim MyFile As String
MyFile = Dir$("C:\Eigene Dateien\*.xlsx")
Do
Workbooks.Open FileName:=MyFile
MyFile = Dir
Loop Until MyFile = ""
End Sub
Bitte um Lösungsvorschläge oder einfach ein anderes Makro. Die die ich sonst im Internet gefunden habe funktionieren leider gar nicht.. :(