Tabellenblatt aus allen Dateien kopieren

Frage: Aus allen Dateien eines Ordners soll das erste Tabellenblatt jeweils als neues Blatt in eine Zusammenfassung kopiert werden, wie geht das?

Option Explicit
Public Sub Main()
    Dim strFileName As String
    Dim strPath As String
    On Error GoTo Fin
    strPath = "C:\Temp\Test\" ' anpassen!!!
    Application.ScreenUpdating = False
    strFileName = Dir$(strPath & "*.xls*")
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Do While strFileName <> ""
        If Not strFileName = ThisWorkbook.Name Then
            Workbooks.Open strPath & strFileName, ReadOnly:=True
            With ActiveWorkbook
                .Worksheets(1).Copy _
                    After:=ThisWorkbook.Worksheets _
                    (ThisWorkbook.Worksheets.Count)
                .Close False
            End With
        End If
        strFileName = Dir$()
    Loop
Fin:
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & " " & Err.Description
End Sub

Sollen auch Dateien aus Unterordner berücksichtigt werden, folgenden Code nehmen:
Mit Unterordner

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...