Aufgabe:

Sie möchten alle Dateien eines bestimmten Verzeichnisses in Zellen untereinander aufgelistet haben.

Lösung:

Das folgende Makro-Beispiel listet alle Dateien auf, die sich im Verzeichnis C: befinden:

Sub DateinamenAuflisten() 

 Dim Dateiname As String, i As Integer 

 Dateiname = Dir$("c:/*.*") 

 Do While Dateiname <> "" 

 ActiveCell.Offset(i, 0) = Dateiname 

 i = i + 1 

 Dateiname = Dir$() 

 Loop 

 End Sub

Die Dateinamen werden ab der gerade aktiven Zellposition eingetragen.
Möchten Sie z. B. nur alle EXCEL-Dateien aufgelistet bekommen, dann ändern Sie die Zeile

 Dateiname =  Dir$("c:/*.*")

 

in

 Dateiname = Dir$("c:/*.xls")