Makro: Alle Excel-Dateien aus einem Ordner öffnen
27.04.2016 16:06:44
Tobias
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