Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateien listen

Gruppe

Verzeichnis

Problem

Wie kann ich alle Dateien eines Verzeichnisses in ein Listenfeld einlesen und bei Doppelklick die jeweilige Datei öffnen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub cmdGetList_Click()
   Dim fs As FileSearch
   Dim iCounter As Integer
   Dim sPath As String
   sPath = ThisWorkbook.Path
   Set fs = Application.FileSearch
   lstFiles.Clear
   With fs
      .LookIn = sPath
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         lstFiles.AddItem .FoundFiles(iCounter)
      Next iCounter
   End With
End Sub

Private Sub lstFiles_DblClick( _
   ByVal Cancel As MSForms.ReturnBoolean)
   Workbooks.Open lstFiles.Value
End Sub