Hallo,
ich habe im Internet einen Code gefunden der mein Anliegen eigentlich schon fast löst.
Ich will mehrere einzelne Excel-Dateien die jeweils nur aus einem Blatt bestehen zu einer Excel-Datei zusammenfügen.
In der großen Datei soll dann jede einzelne Datei auch als einzelnes Blatt aufgeführt sein.
Mein einziges Problem besteht nun darin, dass ich die Reihenfolge der einzelnen Blätter genau anders herum möchte.
Bsp. Ich habe 3 Excel-Dateien. Excel1, Excel2 und Excel3. Wenn ich das Makro anwende habe ich in meiner Ergebnisdatei bei den Tabellenblättern allerdings die Reihenfolge "Excel 3, Excel 2, Excel 1"
Wahrscheinlich bedarf es nur einer kleinen Anpassung, ich habe jedoch wirklich absolut Null Ahnung von der Materie.
Wäre echt super nett wenn mir jemand hier weiterhelfen könnte.
Danke scho vorab
Gruß
arin
Folgend der Code:
Sub GetSheets()
Path = "C:\Users\XXXX\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
*sehe gerade, ich bekomme es nicht mal hin, den Code richtig formatiert einzufügen.. Sorry dafür!
ich habe im Internet einen Code gefunden der mein Anliegen eigentlich schon fast löst.
Ich will mehrere einzelne Excel-Dateien die jeweils nur aus einem Blatt bestehen zu einer Excel-Datei zusammenfügen.
In der großen Datei soll dann jede einzelne Datei auch als einzelnes Blatt aufgeführt sein.
Mein einziges Problem besteht nun darin, dass ich die Reihenfolge der einzelnen Blätter genau anders herum möchte.
Bsp. Ich habe 3 Excel-Dateien. Excel1, Excel2 und Excel3. Wenn ich das Makro anwende habe ich in meiner Ergebnisdatei bei den Tabellenblättern allerdings die Reihenfolge "Excel 3, Excel 2, Excel 1"
Wahrscheinlich bedarf es nur einer kleinen Anpassung, ich habe jedoch wirklich absolut Null Ahnung von der Materie.
Wäre echt super nett wenn mir jemand hier weiterhelfen könnte.
Danke scho vorab
Gruß
arin
Folgend der Code:
Sub GetSheets()
Path = "C:\Users\XXXX\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
*sehe gerade, ich bekomme es nicht mal hin, den Code richtig formatiert einzufügen.. Sorry dafür!