Gruppe
Datei
Problem
Wie kann ich alle Dateien eines Verzeichnisses in ein Listenfeld einlesen und bei Doppelklick die jeweilige Datei öffnen?
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