VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dateien listen

Gruppe

Datei

Bereich

Verzeichnis

Thema

Dateien listen

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

    


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