Alle Arbeitsmappen in einem Verzeichnis auflisten

So erstellen Sie eine Liste Ihrer Arbeitsmappen

Sie möchten eine Liste mit allen Excel-Dateien aus einen Verzeichnis in Excel erstellen? Das geht per Makro! Mit dem folgenden Makro erzeugen Sie eine Liste, in der alle Dateien aus einem gewählten Verzeichnis Ihres Systems zu finden sind:

Sub ListeArbeitsmappenAuf()
Dim Zeile As Long
Dim Dateiname As String
Zeile = 1
Dateiname = Dir("c:\Dateien\*.xls?")
With Workbooks.Add.Worksheets(1)
Do While Dateiname <> ""
.Cells(Zeile, 1) = Dateiname
Zeile = Zeile + 1
Dateiname = Dir()
Loop
End With
End Sub

Welches Verzeichnis eingesetzt wird, definieren Sie in der Zeile Dateiname =. Legen Sie hier den gewünschten Pfad fest. Achten Sie darauf, dass hinter dem Pfad die Angabe \*.xls? folgen muss. Sie sorgt dafür, dass Excel sowohl Arbeitsmappen aus Excel bis einschließlich Version 2003 erkennt (XLS-Dateien) als auch Arbeitsmappen ab Version 2007 (XLSX-Dateien).

Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann, wenn Sie das Makro starten:

Anstelle von Excel-Dateien können Sie mit dem Makro auch Listen anderer Dateitypen anlegen. Passen Sie dazu die Angabe für die Namenserweiterung an. Um beispielsweise alle PDF-Dateien im Verzeichnis C:\Daten aufzulisten, setzen Sie folgende Wertzuweisung für die Variable Dateiname ein:

Dateiname = Dir("c:\Daten\*.pdf")

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und anschließend aufrufen, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html