Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappen- und Tabellenblattnamen auslesen

Gruppe

Verzeichnis

Problem

Wie kann ich alle Arbeitsmappen- und die zugehörigen Tabellenblattnamen des aktuellen Verzeichnisses über eine MsgBox anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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