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