Nutzen Sie unser 
Dieses Makro listet alle Dateien des angegebenen Verzeichnisses ab der aktiven Zelle auf.
Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
'Die Angabe des Verzeichnises erfolgt in DOS Konvention
'Eingefügt werden die Daten ab der aktiven Zelle
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*") 'Hier Verzeichnis und Datei angeben
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
In diesem Beispiel werden alle Dateien im Root-Verzeichnis C:\ aufgelistet.
