Excel Dateien konsolidieren

[Peter121]

Hallo zusammen,

bin neu hier im Forum und freue mich auf den Austausch.

Aktuell habe ich folgendes Problem. Ich möchte mehrere Excel-Dateien (130 Stück im .csv Format) in einer Excel Datei zusammenfassen. Der Aufbau der einzelnen Dateien ist Identisch. Die Dateien liegen in einem Ordner und der Dateiname beginnt bei allen mit "2016*". Am liebsten wäre mir, dass die Daten alle untereinander aufgelistet werden.

Kann mir bei diesem Thema jemand helfen :)

[User17330]

Hallo Peter,

um die einzelnen CSV Dateien nach einander zu öffen, könntest du folgendes Makro verwenden.

Code:

Sub alle_Dateien_Verzeichnis() '
    strPath = "J:\Datawarehouse\Bank\" 'Pfad des Verzeichnisses ggf. anpassen
    strExt = "*.csv"       'Dateiextension ggf. anpassen
    Dim strFile As String
    If strPath = "" Then
        Exit Sub
    Else
        strFile = Dir(strPath & strExt)
        Do While Len(strFile) > 0
            Workbooks.Open Filename:=strPath & strFile
            'mach was damit
            'deine routine
            '...
            Workbooks(strFile).Close
            strFile = Dir() ' nächste Datei
        Loop
    End If
End Sub

Weiter musst du bei "mach was damit / deine routine" noch das Kopiervorgang einsetzen. Dazu sollte dir die Suchmaschine deines Vertrauens jedoch auch eine Menge Ergebnisse ausweisen, sodass ich dir an dieser Stelle den Ansporn zur Weiterbildung liefern möchte. Solltest du nicht zurecht kommen, dann schicke einfach mal das was du bis hin hast.