Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub TabellenAuslesen()
   Dim wks As Worksheet
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Workbooks.Open .FoundFiles(iCounter), False
         For Each wks In Worksheets
            MsgBox _
               prompt:=wks.Name, _
               Title:=ActiveWorkbook.Name
         Next wks
         ActiveWorkbook.Close savechanges:=False
      Next iCounter
   End With
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

    

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