Office: Mehrere Dateien in einer Datei zusammenführen

Hallo zusammen,

ich habe ein Makro, welches mehrere Dateien in einer Datei zusammenführen soll. Anfangs dachte ich es klappt, da alles reibungslof ablief. Nach Verprobung ob auch wirklich alle Daten kopiert wurden, hab ich festgestellt, dass leider nicht alle Inhalte kopiert werden.

PHP:

         Sub zusammenfuehren()
On Error GoTo errExit
Dim Quelle As Workbook
Dim Ziel As Workbook
Dim varDateien As Variant
Dim lngAnzahl As Long
Dim lngLastQ As Long

Set Ziel = ActiveWorkbook
Altdaten auf Zielblatt löschen
Ziel.Worksheets(1).Range("A2:IV65536").ClearContents

varDateien = _
Application.GetOpenFilename("Datei (*.xlsx),*.xlsx", False, "Bitte gewünschte Datei(en) markieren", False, True)

With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

For lngAnzahl = LBound(varDateien) To UBound(varDateien)
Set Quelle = Workbooks.Open(Filename:=varDateien(lngAnzahl))
lngLastQ = Quelle.Worksheets(1).Range("A65536").End(xlUp).Row
Quelle.Worksheets(1).Range("A1:Z" & lngLastQ).Copy _
Destination:=Ziel.Worksheets(1).Range("A" & Ziel.Worksheets(1).Range("A65536").End(xlUp).Row)
Quelle.Close
Next

With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With

MsgBox "Es wurden " & UBound(varDateien) & " Dateien zusammengefügt.", 64

Exit Sub

errExit:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With


End Sub


:)

 

Hallöle,

ohne das näher geprüft zu haben, aber Du geht's von xlsx aus und sprichst später von Zeile 65536 - xlsx hat aber 1048576 Zeilen...
Du willst also aus mehreren Arbeitsmappen den Inhalt des jeweils ersten Sheets einfach untereinander in einer aktuell geöffneten Arbeitsmappe Sheet 1 abspeichern?

 

Danke für die Hinweise *Smilie

Also ich hab die Anzahl der Zeilen bereits abgeändert.
Und ich behandle nur das 1. Sheet der Arbeitsmappen, welche ausgewählt sind. In ALLEN Dateien befindet sich nur 1 Sheet. Außerdem haben alle Dateien den gleichen Aufbau bzw. die gleiche Spaltenanzahl.
Nur in der Anzahl der Zeilen variieren die Dateien. Und es ist möglich, dass sich einige Leerzeilen in der Tabelle befinden.

 

Hi Chrizz_1992,

möchtest du die Leerzeilen mitrübernehmen?
Könnten deine Quelldateien auch mit einer oder mehreren Leerzeilen enden?
wenn ja, wäre das schlimm?
Welche Zelle in deinen Quellen wird selektiert, wenn du STRG + ENDE drückst?

 

Hallo Chrizz_1992

bitte mal testen...

Code:

 

Vielen Dank für Deine Hilfe!
Ich hab das Makro ausgeführt und es kommt am Ende auch die Meldung
"Es wurden x Dateien zusammengeführt."
Jedoch wurden diese leider nicht zusammengeführt. Das Ziel Workbook ist immer noch leer.

 

Wie sind eigentlich die Antworten zu Post #4?

 

Hallo Chrizz_92

folgender Code müsste dich weiterbringen, unberücksichtigt sind die weiterhin offenen Fragen aus Post #4.

Allerdings:
Wenn die Anzahl der gesamten verwendeten Zeilen in allen zusammenzutragenden Arbeitsmappen GRÖßER wird als 1048576 (XLSX letzte Zeile), wird die aktuell behandelte Mappe nicht hinzugefügt und der Code bricht ab.

Code: