Inhaltsverzeichnis
Alle Dateinamen im Verzeichnis auflisten
Der folgende Code ist eine Unterroutine, die die Namen aller Dateien abruft, die in einem Verzeichnispfad vorhanden sind:
Sub List_All_The_Files_Within_Path() Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C:My Documents" Row_No = 36 'Listet alle Dateien im aktuellen Verzeichnis mit Application.FileSearch .New_Path .In = .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets("Sheet1").Cells(kk25 + 5, 15).Value = .FoundFiles(kk25) Weiter kk25 Ende mit Ende Unter
Es schreibt die Dateinamen in Sheet1 in Spalte O - beginnend bei Zeile 36
Laden Sie hier die Excel-Datei herunter
