Automatisches Importieren von *.csv Dateien

[Thomas Eichenhofer]

Hallo alle miteinander,

ich habe folgendes Problem:
Serienimport von 50-100 *.csv Dateien in ein grosses Datenblatt. Bis jetzt
führe ich den Import immer von Hand durch. d.h. grosses Datenblatt öffnen,
1. csv Datei öffenen, Bereich makieren, kopieren, csv Datei schliessen,
"nein Arbeitsspeicher nicht feigeben" ;-), und ein paste im grossen
Datenblatt an der richtigen Stelle. Das ist bei ca 50-100 csv Dateien recht
zeitraubend, zumal ich rund 70 Gruppen davon habe.

Lässt sich solch ein Import automatisieren, zb per script?
Die Daten in den csv Dateien sin immer an der gleichen Stelle lokalisiert:
-Spalten B3 bis H3
-Zeilen 3-xx, dh. je nach csv unterschiedliche Zeilenanzahl, von 5 bis ca 50
Zeilen
-die csv Dateien sind mit den letzten Datenzeilen "zu Ende", dh. keine
Kommentare oder ähnliches

Diese Blöcke müssen nun in das grosse Datenblatt eingefügt werden,
fortlaufend nach unten, mit jeweils einer Leerzeile zwischen jedem csv
Importblock. Wobei Spalte A jeweils die Nummer der csv Datei enthält
(Dateiname). Die Dateinamen haben folgendes Format:
001-01.csv/003-04.csv/021-10.csv.... liegen also durch den Dateinamen
sortiert vor.

Hat jemand einen Tip für mich, ausser eine Hilfskraft einzustellen ;-)

Vielen Dank
Thomas Eichenhofer

[Gerhard Faehling]

Hallo Thomas,

> Lässt sich solch ein Import automatisieren, zb per script?

Ja, dürfte relativ einfach sein.

> Die Daten in den csv Dateien sin immer an der gleichen Stelle lokalisiert:
> -Spalten B3 bis H3
> -Zeilen 3-xx, dh. je nach csv unterschiedliche Zeilenanzahl, von 5 bis ca
50
> Zeilen
> -die csv Dateien sind mit den letzten Datenzeilen "zu Ende", dh. keine
> Kommentare oder ähnliches

In einem Makro zunächst ein neues Arbeitsblatt anlegen

Dann über die Files-Auflistung in einem Ordner alle Dateien (alle
csv-Dateien durchgehen) und laden.

Dann für jede Datei den richtigen Bereich ermitteln (wegen unterschiedlicher
Zeilenanzahl) - z.B. mit UsedRange.

Bereich an richtige Stelle in der zuvor angelegten Tabelle einfügen, Zähler
hier entsprechend hochsetzen. Ach ja - und natürlich noch aus dem Dateinamen
die Nummer ermitteln und eintragen.

> Hat jemand einen Tip für mich, ausser eine Hilfskraft einzustellen ;-)

Dürfte nicht mehr als 1-2 Stunden kosten (mit Ausprobieren und Korrigieren).
In jedem Fall besser als das per Hand zu machen (welch grausige
Vorstellung).

Ciao

Gerhard