VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Excel-Dateien eines Ordners listen

Gruppe

Datei

Bereich

Verzeichnis

Thema

Excel-Dateien eines Ordners listen

Problem

Wie kann ich alle Excel-Dateien eines bestimmten Unterverzeichnisses in einem Tabellenblatt auflisten?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Verzeichnis