Office: aus mehreren Excel-Dateien, eine Gesamtdatei erstellen

Hallo zusammen,

ich habe ein Problem mit einem Makro.
Mein Vorhaben sieht wie folgt aus:

Ich habe mehrere Excel Reports. Diese Reports würde ich gerne zu einem Gesamtreport zusammenfügen.
Ich bräuchte also ein Makro, welches wie folgt vorgeht:

- suche im gleichen Ordner nach Dateien die mir "RP_500_" beginnen.
- erstelle aus allen Dateien, die mit "RP_500_" beginnen die Datei "Report 500 gesamt"

Es soll also einfach nur die Daten aus allen in Frage kommenden Excels, in einer neuen Gesamtdatei zusammenfügen
Alle Excels sind gleich aufgebaut und verfügen nur über ein Tabellenblatt, in dem die Daten stehen.

Ich habe hierfür sogar schon ein Makro:
Das Makro läuft durch, fügt auf den ersten Blick alle Excels in einer neuen Gesamtdatei zusammen.
Wenn ich die Daten prüfe, fehlt aber immer die erste Excel-Datei.

z.B. ich habe die Dateien

• Report 000
• Report 001
• Report 002
• Report 003

Dann fügt er Report 001 bis 003 zusammen und Report 000 fehlt.
Genau so wenn ich nur eine Datei bereit stelle, welche zu einer neuen Gesamtdatei zusammengefasst werden soll.
Diese ist dann auch leer. Ich kann mir aber nicht erklären, woran das liegen könnte.

Hier auch mal noch zur Vollständigkeit der Code:

Code:

Public myArray(50, 9999)
Sub reportZusammenfügen()
    Dim i1, sheetZeile, sheetSpalte, arraySpalte, arrayZeile As Integer
    sheetZeile = 1
    sheetSpalte = 1
    arraySpalte = 0
    arrayZeile = 0
    Set pfad = CreateObject("Scripting.Filesystemobject").GetFolder(ThisWorkbook.Path)
    
    For Each file In pfad.Files
        If InStr(file.Name, "RP_D503_") > 0 Then
            Workbooks.Open (ThisWorkbook.Path & "\" & file.Name)
            Do Until Worksheets("Sheet1").Cells(sheetZeile, 1) = ""
                Do Until sheetSpalte > 50
                    myArray(arraySpalte, arrayZeile) = Worksheets("Sheet1").Cells(sheetZeile, sheetSpalte)
                    arraySpalte = arraySpalte + 1
                    sheetSpalte = sheetSpalte + 1
                Loop
                sheetSpalte = 1
                arraySpalte = 0
                arrayZeile = arrayZeile + 1
                sheetZeile = sheetZeile + 1
            Loop
            sheetZeile = 4    'erste Zeile wo Daten stehen
            ActiveWorkbook.Close
        End If
    Next
    
    arrayZeile = 0
    Workbooks.Add
    Do Until myArray(0, arrayZeile) = ""
        Do Until arraySpalte > 50
            Worksheets("Tabelle1").Cells(arrayZeile + 1, arraySpalte + 1) = myArray(arraySpalte, arrayZeile)
            arraySpalte = arraySpalte + 1
        Loop
        arraySpalte = 0
        arrayZeile = arrayZeile + 1
    Loop
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
    Range("A1").Select
    
    
    ActiveWorkbook.SaveAs Filename:=pfad & "\Report_503_gesamt.xls"
    ActiveWorkbook.Close
 
End Sub

kann mir jemand weiter helfen?
Gerne auch mit einem anderen Code.

Vorab schon einmal vielen Dank.

 

Hallo,

ohne deinen Code groß zu analysieren ... Kopiere doch einfach alle zusammenzufassenden Dateien in ein neues Verzeichnis und lasse dann alle Files daraus einlesen. Das sollte der einfachste Weg sein.

 

ich verstehe die Antwort nicht ganz.
Die Reports stelle ich ja so oder so in einem entsprechenden Folder zur Verfügung, damit ich anschließend alles zusammenfassen kann.
Wie soll das mit dem einlesen funktionieren?

 

Ich hatte dich so verstanden, dass zwar mehrere Dateien eingelesen werden, aber nicht jede, nicht alle, die eingelesen werden sollte.

Und wenn in einem Folder ausschließlich die Dateien drin sind, die eingelesen werden sollen, dann braucht ja auch nichts mehr ausgesucht zu werden, es kann also keine Datei "vergessen" werden.

Schau mal bei Excel-ist-sexy.de rein, vielleicht hilft dir das ja weiter.