Office: Zusammenfügen mehrerer csv.-Dateien zu einer Gesamtliste

Hallo zusammen,

ich habe in einem Ordner mehrere csv-Dateien. Die einzelnen Dateien werden von einem Messgerät generiert. Die csv-Dateien haben immer den Dateinamen des aktuellen Datums, also z. B. 2015-07-15.csv. In der Tabelle in der Datei ist immer die Spalte A-O teilweise gefüllt. Die weiteren Spalten sind leer. Je Messung wird eine Zeile in der Tabelle durch das Messgerät angelegt, das heißt die Anzahl an Zeilen ist je Datei unterschiedlich. In der Zeile 1 stehen die Spaltentitel. Ab Zeile 2 beginnen die Inhalte.

Ich würde nun gerne diese einzelnen Tabellen zu eine großen Tabelle im selben Ordner zusammenfügen. Der Dateiname soll sich dann aus dem ältesten und aktuellsten Datum der Dateien im Ordner zusammensetzen (z. B. 2015-07-15bis2015-01-08.csv). Hierfür soll von der ersten Datei die gesamte Tabelle inklusive Zeile 1 kopiert werden und von allen anderen Tabellen die gefüllten Zeilen ab Zeile 2. Die Auflistung der vorhandenen Tabellen in der neuen Datei soll chronologisch vom ältesten Datum beginnend bis zum jüngsten sein (Es ist nicht von jedem Tag eine Messdatei in dem Ordner).

Ich habe 15 Ordner mit der oben beschriebenen Problematik. Diese müssen jedoch nicht zusammen geführt werden.

Kann mir jemand von Euch helfen mit einer VBA-Programmierung mit der wir das hin bekommen? Es wäre echt super, da ich ansonsten in 15 Ordnern jeweils ca. 100 Dateien händisch zusammenkopieren muss. Und wer weiß wann ich dies wieder bräuchte.

Vielen vielen Dank für eure Unterstützung!

Gruß

MichaelF

:)

 

Hallo,

Code:

 

Hallo xlph,

vielen Dank für das Makro.
Leider funktioniert es bei mir nicht.
Ich habe es in ein Modul im VBA-Editor der Excel-Datei kopiert und den Pfad für meinen Ordner angepasst.
Zudem habe ich mal eine UserForm eingefügt und wieder gelöscht.
Leider passiert gar nichts wenn ich das Makro laufen lasse.
In der Zeile Do Until strDateiname = vbNullString sind beide Werte von Beginn an leer und daher geht das Makro gar nicht in die Schleife.
Im nächsten Block: "If ialngDatum > 0 Then" ist ialngDatum = 0. Resultat ist, dass ans Ende des Makros gesprungen wird.

Wahrscheinlich habe ich hier einen Fehler gemacht. Bin allerdings überhaupt nicht fit im Umgang mit Makros. *confused.gif*
Kannst Du mir eine kleine Anleitung geben wie ich vorgehen muss?

Vielen Dank!

Gruß
Michael_F

 

Hallo,

sind in dem Verzeichnis auch .csv-Dateien vorhanden?

Hast du vielleicht am Ende das Backslash '\' vergessen:
Code:

 

Hallo,

es lag tatsächlich an dem fehlenden \ am Ende des Pfades.
Funktioniert nun astrein!!!

Vielen Dank für deine Unterstützung.

Gruß
Michael

 

Wie cool. Nach so einer Lösung habe ich die ganze Zeit gesucht. Ich habe das gleiche Problem. Einen Ordner mit vielen .csv Datein und ich muss immer nur die 2.Zeile der ganzen Datein im meine aktuelle Arbeitsmappe kopieren in die letzte freie Zeile kopieren.
Jetzt habe ich schon ewig rumprobiert und es nicht geschafft den Code auf meinen Fall abzuändern. Dabei haben meine Datei lediglich kein Datum als Namen sondern "form_1" "form_2" usw.
Hat jemand eine Ahnung wo ich da ansetzen muss oder eine Lösung parrat?

Vielen Dank!
Gruß
Florian

 

Eine Alternative zu VBA wäre PowerQuery:
http://www.excel-ist-sexy.de/power-q...erzeichnisses/
https://www.sqlxpert.de/mehrere-exce...wer-query-1-3/