Mehrere Excel-Dateien mittels Makro zusammenführen
27.01.2016 16:59:39
Lena
Ich habe auf einer SharePoint-Seite mehrere Excel-Dateien, die jeweils eine Tabelle mit Adressen (Spalten mit Namen, Vornamen, Strasse, usw.) enthalten. Die Dateinamen beginnen alle mit "Excel_" und einem Namen (z.B. "Excel_Peter.xlsx")
Nun möchte ich mit Excel 2013, alle Excel-Dateien auf dieser Liste bzw. in diesem Verzeichnis (\\example.com\sites\Addresses\List1\) in eine eigene Datei zusammenführen, welche am Schluss mit einem neuen Namen gespeichert wird. Hierzu habe ich eine neue Datei (Overview_new.xlsx) sowie mit dem untenstehenden Makro erstellt.
Das Makro öffnet zurzeit aber jeweils nur die erste Datei im Verzeichnis fünf Mal und kopiert und fügt deren Inhalt in die neue Liste ein. Die Zahl fünf habe ich willkürlich eingesetzt, damit zumindest die ersten fünf Dateien behandelt werden. Diese kann aber noch angepasst werden. Oder vielleicht gibt es eine andere Lösung, damit alle Dateien abgearbeitet werden? Könnt ihr mir helfen, dass das Makro nicht nur die erste Datei, sondern alle Dateien (mit Excel_*.xlsx im Dateinamen) zusammenführt?
Vielen Dank für eure Unterstützung.
Liebe Grüsse
Lena
Sub test3()
Dim FileArray() As Variant
Dim FileName As Variant
Dim FileCount As Integer
FileCount = 0
FileName = Dir("\\example.com\sites\Addresses\List1\")
If FileName = "" Then GoTo NoFilesFound
ActiveWorkbook.Windows(1).Caption = "Overview"
Do While FileCount 1 Then
Range("A65536").End(xlUp).Offset(1, 0).Select
Else
Range("A2").Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("ABC").Close
FileList = FileArray
Loop
ActiveWorkbook.SaveAs FileName:= _
"http://example.com/sites/Addresses/List1/Overview_new_" & Format(Date$, "YYYY-MM-DD") & ". _
xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
NoFilesFound:
FileList = False
End Sub