Mit dem folgenden Makro können Sie die Dateinamen eines bestimmten Verzeichnisses in ein Tabellenblatt importieren. Passen Sie einfach den Dateipfad entsprechend an und führen Sie das folgende Makro aus.
Sub DateinamenAuflisten()
Dim Dateiname$, i%
Dateiname = Dir$(“C:\Users\Heiko Heimrath\Documents\*.*“)
Do While Dateiname <> “”
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Weiterführende Links:
- So können Sie einen Makro erstellen mit dem Sie alle Dateinamen von einem bestimmten Verzeichnis in Excel auflisten können
- Dateien in einem Ordner in einem Excel Arbeitsblatt auflisten (VBA)
- Alle Dateinamen eines bestimmten Verzeichnisses in ein Tabellenblatt importieren lassen (VBA)