Dateien ohne Pfad einlesen
edie
bei der Recherche habe ich das nachfolgende Makro vorgefunden und angepasst,
es werden die Excel-Dateien mit dem Pfad ausgelesen.
Sub test ()
Dim sPath As String
sPath = ThisWorkbook.Path & "\EDV\"
Dim fs As FileSearch
Dim i As Integer
Set fs = Application.FileSearch
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = sPath
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Next i
End With
End Sub
Wäre doch so schön, wenn nur der Dateiname in die Spalte A ausgelesen würde.
Hat jemand einen Tipp und kann helfen?
Vorab vielen Dank.
Grüße
Anzeige