Alle Dateinamen eines Verzeichnisses automatisch in eine Tabelle eintragen (Tipp_23) -
09.02.2007Aufgabe:
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")
