1.4k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo miteinander,
ich hoffe jemand kann mir helfen. Ich habe folgendes Problem:
Mehrere Textdateien mit unterschiedlichen Namen importieren. Das Format der Textdateien ist:

Textdateiname = TEXT01.txt
'TEST 01',','','','','','',''
'GESAMT','3','1','24','4','','',''

2. Textdateiname = TEXT_BEISPIEL.txt
'TEST 7',','','','','','',''
'ANDERS','3','1','24','4','','',''

usw.

Als Trennzeichen ist Komma definiert und als Texterkennungszeichen ein '.

Das Ergebnis sollte so sein, dass in Spalte A 1. Text steht, danach je Spalte eine importierte Zahl oder auch nichts (siehe oben die Kommas)

Der Import sollte automatisch ablaufen, also über VBA (denke ich mir). Schön wäre es wenn das Register nach der importierten Textdatei umbenannt werden könnte (falls möglich).

Alternativ könnte auch in der ersten Zeile der Textdateiname stehen. Das wird dann aber bei vielen Importdateien (können mehr als 100 Stück sein mit jeweils ca. 50 - 100 Zeilen). Das wird dann echt unübersichtlich. Wäre aber auf jeden Fall besser als die Textdateien einzeln von Hand einzulesen.

Ich hoffe mir kann jemand helfen. Ich habe den ganzen Tag mit VBA versucht mehrere Dateien einzulesen scheitere aber an dem Format, d.h. ich bekomme als Ergebnis nur Spalte A und Spalte B.

Vielen Dank im voraus
Rudi

2 Antworten

0 Punkte
Beantwortet von saarbauer Profi (15.6k Punkte)
Hallo,

erste Fragen:

Stehen die zu importierenden Datei in einem Verzeichnis?
Steht die "Sammeldatei" in dem gleichen Verzeichnis?
Sind die Namen unterschiedlich (Text.txt; Beispiel.txt ) oder ähnlich (Text1.txt, Text2.txt, Tex3t.txt)?

Gruß

Helmut
0 Punkte
Beantwortet von
Hallo Helmut,
das ging ja schnell mit einer Reaktion.

Die Dateien stehen in einem Verzeichnis. Das kann auch ein fest eingestelltes Verzeichnis sein. Z.B. D:\Daten\TXT-Datein\....

Die Exceldatei kann wenn notwendig im gleichen Verzeichis stehen. Vorzugsweise aber nicht, da diese Datei weitergegeben wird.

Die Textdateinamen sind bis auf die Endung nicht ähnlich.

Danke für die schnelle Reaktion

Gruß Rudi
...