Gruppe
Datei
Bereich
Verzeichnis
Thema
Arbeitsmappen- und Tabellenblattnamen auslesen
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