Office: (Office 2010) VBA: XLSX-Dateien in verschiedene Tabellenblätter in einer XLXS-Datei zusammenführen

Hallo,

ich habe in einem Verzeichnis mehrere Excel-Dateien die ich gerne in einer Datei zusammenfassen möchte.

Jedoch möchte ich die in verschiedenen Tabellenblättern beibehalten. Ich finde VBA nur für zusammenführen in einem Tabellenblatt, was mir leider nicht hilft.

Zudem haben die Ursprungsdateien alle den gleichen Tabellenblattnamen, was aber in der zusammengeführten Datei unbenannt werden kann.

Vielen Dank!

 

Hi,

das kannst du mit folgendem Code lösen (die importierten Tabellenblätter erhalten dabei den Namen "Neu_" + fortlaufende Nummerierung):

Code:

Sub Imporiteren()
    Dim lngZaehler As Long
    Dim strMappe As String
    Dim strPfad As String
    strPfad = "E:\Z_Test\"
    strMappe = Dir(strPfad & "*.xlsx") '<== xlsx-Arbeitsmappen
    lngZaehler = 1
    Application.ScreenUpdating = False
    Do While strMappe <> ""
        Workbooks.Open (strPfad & strMappe)
        Workbooks(strMappe).Worksheets("Tabelle1").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
        ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = "Neu_" & lngZaehler
        lngZaehler = lngZaehler + 1
        Workbooks(strMappe).Close False
        strMappe = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Bedingung ist, dass die zu importierenden Tabellenblätter in den Mappen tatsächlich vorhanden sind und dass es die Tabellenblätter "Neu_..." in der Mappe mit dem Code nicht gibt.

Bis später,
Karin

 

Vielen lieben Dank!

Funktioniert leider nicht:

Index außerhalb des gültigen Bereichs (Laufzeitfehler 9)

Gibt es Fehler, das die Ursprungstabelle manchmal auch zwei Tabellenblätter haben kann?

 

An welcher Stelle im Code gibt es den Fehler? Ich kann das nämlich nicht nachvollziehen, weil es bei mir keinen Fehler gibt - die Bedingungen, damit der Code funktionert, habe ich in meinem vorhergehenden Beitrag beschrieben.
Ich hoffe, den Pfad hast du an deine Bedingungen angepasst?!


Was meinst du mit "das die Ursprungstabelle manchmal auch zwei Tabellenblätter haben kann?"

Bis später,
Karin