PDA

Vollständige Version anzeigen : verschiedene Txt-files täglich aus neuem Ordner per Makro nach excel einlesen


Programmieridiot76
02.07.2014, 08:38
Hallo alle zusammen.
Um es gleich vor Weg zu nehmen. Ich habe mich so gut wie noch nie mit VBA beschäftigen müssen ebenso generell mit Programmierung. Allerdings soll ich in den nächsten Jahren jeden morgen die gleiche Tätigkeit ausführen. Diese würde ich so weit als möglich gerne automatisieren. Vielleicht hat hier ja jemand eine Idee. Ich habe zwar schon einige Teile des Forums durchsucht. Aber schlauer bin ich irgendwie immer noch nicht. Leider!!

Zum Problem:
Jeden Mogen um sieben erhalte ich von einem Überwachungssystem 4-8 verschiedene Dateien. Die unter einem bestimmten Pfad unter einem täglich neuen Ordner abgelegt werden.

Diese fünf txt-Dateien aus diesem Ordner sollen zusammengefügt werden und nach Namen (der ersten Kommastelle in den txt-dateien) alfabetisch sortiert werden. Die erste Zeile der txt-dateien als auch die erste Spalte sollte gelöscht werden. dezimaltrennzeichen sollten von der txt datei (punkte) zu kommas umgeändert werden und und Spaltentrennzeichen sind in den Txt-dateien als Komma definiert.
Die TXT-Files sind zwischen 50 und 200 zeilen lang
Ländereinstellung meines Excel 2010 ist deutsch. Als Beispiel habe ich hier den Aufbau einer solchen TXT datei angehängt.

File 1:

EventTime(Local),PointName/StationCode,Northing,Easting,Elevation
2014-07-02 09:04:02,Pilar_DYK07,77162.2737,725.9551,20.8635
2014-07-02 09:04:02,DYK132,77183.2268,735.0665,38.9724
2014-07-02 09:04:02,A4-21-01,77165.9897,690.3486,21.5249
2014-07-02 09:04:02,CON FIX 01,76992.5901,831.8748,39.8424
2014-07-02 09:04:02,CON FIX 02,77155.1799,758.2102,23.1039
2014-07-02 09:04:02,CON FIX 03,77176.9504,752.6065,25.1088
2014-07-02 09:04:02,Crane1_01,77153.0445,709.5874,22.7673
2014-07-02 09:04:02,Crane1_02,77154.7389,709.1848,22.7690
2014-07-02 09:04:02,Crane1_03,77154.2578,707.2422,22.9075
2014-07-02 09:04:02,Crane1_04,77154.7364,709.1578,35.1549
2014-07-02 09:04:02,A3-18-01,77168.9426,695.8302,18.3593
2014-07-02 09:04:02,A3-18-02,77170.8062,701.6741,18.5047
2014-07-02 09:04:02,A3-18-03,77174.2133,712.7510,18.2153
2014-07-02 09:04:02,A3-18-04,77176.2100,720.6424,17.8589
2014-07-02 09:04:02,A3-15-01,77168.8635,695.7437,16.1896
2014-07-02 09:04:02,A3-15-02,77170.2793,701.6150,16.2357
2014-07-02 09:04:02,A3-15-03,77174.3275,713.1728,15.8670
2014-07-02 09:04:02,A3-12-01,77169.1321,696.1340,13.7473
2014-07-02 09:04:02,A3-12-02,77170.3343,701.4952,13.7903
2014-07-02 09:04:02,A3-12-03,77174.3242,712.5745,13.8290
2014-07-02 09:04:02,A3-10-01,77168.3734,692.5295,11.4237

File 2:

EventTime(Local),PointName/StationCode,Northing,Easting,Elevation
2014-07-02 02:15:48,FixC01,77029.4717,626.6844,14.5903
2014-07-02 02:15:48,FixC02,77049.5801,619.6167,13.4081
2014-07-02 02:15:48,FixC03,77146.6967,744.7849,13.1040
2014-07-02 02:15:48,FixC04,77162.4226,772.3112,13.0623
2014-07-02 02:15:48,FOE_WALL 01,77080.2446,671.4056,14.1391
2014-07-02 02:15:48,FOE_WALL 02,77074.1169,662.2696,14.2189
2014-07-02 02:15:48,FOE_WALL 03,77068.6068,653.6979,14.1674
2014-07-02 02:15:48,FOE_WALL 04,77063.2414,644.8584,14.1269
2014-07-02 02:15:48,FOE_WALL 05,77058.6254,636.7632,14.0932
2014-07-02 02:15:48,FOE_WALL 06,77054.5073,629.2149,14.7224
2014-07-02 02:15:48,FOE_WALL 07,77050.4314,621.2920,14.7027
2014-07-02 02:15:48,FOE_WALL 08,77046.9951,614.3156,15.0004
2014-07-02 02:15:48,FOE_WALL 10,77040.2635,600.3341,14.7266
2014-07-02 02:15:48,FOE_WALL 09,77043.8844,607.6644,14.1772
2014-07-02 02:15:48,FOE_WALL 11,77037.4957,593.8914,15.1251
2014-07-02 02:15:48,FOE_WALL 12,77034.5028,586.8658,13.6396

Ich hoffe jemand von Euch kann mir helfen dieses wirrwarr etwas zu automatisieren. Jeden Tag den File-editor zu verwenden ist echt nervig.

Schon mal jetzt ein Danke im voraus!

MWOnline
02.07.2014, 08:58
Hallöchen,

Ohne VBA Kenntnisse wird das etwas schwer ;) da es keine 100% passende Lösung für individuelle Aufgaben gibt, wirst Du einige Anpassungen vornehmen müssen, damit es bei Dir läuft.

Teil 1:
Mit der Suche findest Du Beispiele, wie Du in Excel CSV Dateien importieren kannst.

Teil 2:
Hier ein Beispiel (http://www.online-vba.de/vba_datensammeln7.php) zum Zusammenführen mehrerer Tabellen in eine große Tabelle.

Wenn Du nun diese beiden Teile kombinierst, hast Du fast eine vollständige Lösung.

Beste Grüße und Viel Erfolg
Marc