Sheetname extrahieren

Hallo Excel Forum
Ich habe vor kurzer Zeit von jemandem aus diesem Forum dieses Macro erhalten
echt super toll wie schnell das hier alles geht moechte nochmal wie auch schon weiter unten erwaent habe sagen wie super ich das Forum hier finde.Aber leider bekomme ich wenn ich dieses macro ausfuehre nur einen Compiler error.Ich hoffe ich werde hier jetzt nicht zu arg zum spamer...
vielen dank nochmal und schonmal
Gruss Andy


Sub Tabellen_Namen()
Dim dlg As FileDialog
Dim si As Variant, I%
Set dlg = Application.FileDialog(msoFileDialogOpen) 'Datei wählen
With dlg
.AllowMultiSelect = True 'der User darf mehrere Dateien auswählen
' Mehre Dateien auswählen: durch Strg+ Click
.InitialFileName = "*.xls"
.InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs
.Title = "Tabellen Namen auslesen" 'Titel halt
End With
I = 1
If dlg.Show = True Then
For Each si In dlg.SelectedItems 'jede ausgewählte Datei wird bearbeitet
Workbooks.Open Filename:=si
For Each TB In Sheets 'jedes Tabellenblatt der Datei wird importiert
ThisWorkbook.Sheets(1).Cells(I, 1).Value = Dir(si) & " / " & TB.Name 'hier wird der Dateiname und Blattname in dei Tabelle geschrieben
I = I + 1
Next
Workbooks(Dir(si)).Close savechanges = False
Next
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Listen() Dim wkb As Workbook Dim wks As Worksheet Dim iRow As Integer For Each wkb In Workbooks For Each wks In wkb.Worksheets iRow = iRow + 1 Cells(iRow, 1).Value = wkb.Name Cells(iRow, 2).Value = wks.Name Next wks Next wkb End Sub

Hallo nochmal
für deine Excelversion bietet sich das hier an:
alle *.xls Dateien aus einem Verzeichnis (hier c:\temp) werden abgearbeitet.

Sub alle_Dateien_Verzeichnis() '
    strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
    strExt = "*.xls"       'Dateiextension ggf. anpassen
    Dim strFile As String
    If strPath = "" Then
        Exit Sub
    Else
        I = 1
        strFile = Dir(strPath & strExt)
        Do While Len(strFile) > 0
            Workbooks.Open Filename:=strPath & strFile
            For Each TB In Sheets 'jedes Tabellenblatt der Datei wird importiert
                ThisWorkbook.Sheets(1).Cells(I, 1).Value = strFile & " / " & TB.Name 'hier wird der Dateiname und Blattname in dei Tabelle geschrieben
                I = I + 1
            Next
            Workbooks(strFile).Close savechanges = False
            strFile = Dir() ' nächste Datei
        Loop
    End If
End Sub

Gruß UweD

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread