Werbeanzeigen

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:

 

Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.

 

MerkenMerken

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