Excel und VBA: Formeln, Programmierung, Lösungen

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