Thema: Dateien einlesen

Home

Die Arbeitsmappen des aktuellen Verzeichnisses werden in die ListBox eingelesen.

Prozedur: cmdList_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Dateien einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Rahmen um das FileSearch-Objekt bilden
- Zu durchsuchendes Verzeichnis festlegen
- Dateifilter auf Excel-Arbeitsmappen beschränken
- Durchsuchen starten
- Schleife über alle gefundenen Dateien bilden
- Aktuelle Datei in ListBox eintragen

Code:


Private Sub cmdList_Click()
   Dim intCounter As Integer
   With Application.FileSearch
      .LookIn = CurDir
      .FileName = "*.xls"
      .Execute
      For intCounter = 1 To .FoundFiles.Count
         lstFiles.AddItem .FoundFiles(intCounter)
      Next
   End With
End Sub