VBA bzw. Makro Programmierung um mehrere, gleichaufgebaute Exceldateien (über 60) in einer seperaten Datei zusammenzuführen

Hallo zusammen,


ich habe folgendes Problem, vllt. kann mir jemand helfen: ich habe rund 60 verschiedene Exceldateien mit jeweils 53 Reitern. 52 Reiter sollen vom Bediener ausgefüllt werden und der letzte Reiter enthält alle Daten des gesamten Jahres in Tabellenform (Name des letzten [bzw. ersten] Reiters in allen 60 Dateien ist "Auswertung 2016").

Aufbau des Reiters Auswertung 2016, welcher so auch in die neue große Auswertung übernommen werden soll:


Datum Name Zeit Beschreibung usw....
xx.xx.xx xxx xx:xx xxx


Alle Dateien liegen in einem Ordner, die Reiter und der Aufbau ist komplett identisch, nur die Benennung der Datei ist unterschiedlich (z.B. B01, B02, B03,...,B60, usw.). Nun möchte ich wöchentlich in einem neuen Tabellenblatt und einem neuen Ordner eine Auswertung fahren und alle gesammelten Daten der 60 Dateien in einer Pivottabelle grafisch darstellen. Kann mir jemand mit einem Makro weiterhelfen?

Vielen Dank und beste Grüße
AlexBerlin

Sub MergeWB()
    Const FOLDER = "c:\Data"  
    set fso = CreateObject("Scripting.FileSystemobject")  
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    With ActiveSheet
        for each file in fso.GetFolder(FOLDER).Files
           if LCase(fso.GetExtensionName(file.Name)) = "xlsx" then  
             set ws = GetObject(file.Path).Sheets("Auswertung 2016")  
             ws.UsedRange.Offset(1,0).Copy
             .Cells(Rows.Count,"A").End(xlUp).Offset(1,0).PasteSpecial xlPasteValuesAndNumberFormats  
             ws.Parent.Close False
          End if
        next
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

ActiveSheet.UsedRange.ClearContents