Alle Dateinamen eines bestimmten Verzeichnisses in ein Tabellenblatt importieren lassen (VBA)

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:

 

 

 

MerkenMerken

search previous next tag category expand menu location phone mail time cart zoom edit close