CSV Import
15.04.2009 11:14:49
Markus
das untenstehende Makro (aus diesem Forum) liest in eine bestehende Mappe ein TXT-File ein.
Leider werden die Umlaute (äöü etc.) nicht richtig dargestellt, da das File mit MS_DOS geschrieben wurde und diesen Zeichensatz verwendet.
Zudem dachte ich, es sollten nur Datensätze die "Transaktion" enthalten eingelesen werden.
Kann man MS-DOS-Format (Dateiursprung MS-DOS (PC-8) in diesem Makro noch einbinden.
Ich kann leben damit, dass nicht auf Transaktion gefiltert werden, aber schöner wäre es natürlich schon ....
Auf jeden Fall bedanke ich mich jetzt schon ganz herzlich für eine Hilfe.
Markus
Sub Text_auslesen()
'programmiert von schauan 20051003
'keine Prüfung auf Anzahl Datensätze > Anzahl Zeilen
Dim TextZeile$, TrennZeichen$, SuchWort$, TextArray
Dim StartZeile& 'Long
TrennZeichen = ";"
StartZeile = 1 ' erste Zeile in die Daten importiert werden
SuchWort = "Transaktion"
Open "e:\test\Test.txt" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, TextZeile ' Zeile lesen.
If InStr(TextZeile, SuchWort) = 0 Then
'nur importieren wenn Suchwort nicht vorhanden
TextArray = Split(TextZeile, TrennZeichen)
'Trennen der TextZeile (ab XL2000)
Range(Cells(StartZeile, 1), Cells(StartZeile, UBound(TextArray) + 1)) = TextArray
StartZeile = StartZeile + 1 'Zeile 1 erhöhen
End If
Loop
Close #1 ' Datei schließen.
End Sub