AW: Tabellenblätter aus dem Ordner auflisten
01.10.2012 13:11:27
UweD
Hallo
per VBA:
Sub alle_Dateien_Tabellen_Verzeichnis() '
Application.ScreenUpdating = False
Dim WB, TB, WS, Pfad$, Ext$, Datei$, i&
Set WB = ActiveWorkbook
Set TB = WB.ActiveSheet
Pfad = "C:\Temp\"
Ext = "*.xls*" 'Dateiextension (auch .xlsm von XL 2007 berücksichtigt)
Datei = Dir(Pfad & Ext)
i = 1
Do While Len(Datei) > 0
Workbooks.Open Filename:=Pfad & Datei
For Each WS In ActiveWorkbook.Sheets
TB.Cells(i, 1) = Datei
TB.Cells(i, 2) = WS.Name
i = i + 1
Next
Workbooks(Datei).Close SaveChanges:=False
Datei = Dir() ' nächste Datei
Loop
TB.Columns("A:B").EntireColumn.AutoFit
End Sub
Gruß UweD