Gruppe
Datei
Problem
Wie kann ich alle Excel-Dateien eines bestimmten Unterverzeichnisses in einem Tabellenblatt auflisten?
StandardModule: basMain
Sub Einlesen()
Dim fs As FileSearch
Dim iCounter As Integer
Set fs = Application.FileSearch
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = CurDir
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter, 1).Value = .FoundFiles(iCounter)
Next iCounter
End With
End Sub