Txt in spalten importieren (ohne automatik)
02.08.2016 18:58:58
rocketfox
ich möchte gern eine Datei korrekt nach meinem Bedüfnissen einlesen.
die Datei [beispiel input.txt] ist meine Referenz sie hat normalerweise 10000 Zeilen.
https://www.herber.de/bbs/user/107372.txt
mit dem Macro Recorder bin ich auf folgende Lösung gestossen.
Sub Makro1()
ChDir "C:\Users\mein PC\Desktop"
Workbooks.OpenText Filename:="C:\Users\Mein PC\Desktop\beispiel input.txt", _
Origin:=65001, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 2), Array(9, 1), Array(46, 1), Array(54, 1), Array(91, 1)), _
TrailingMinusNumbers:=True
End Sub
nach Analyse würde ich gern folgendes Schema übertragen wenn die möglich ist.
Segment1 Text bis zum ersten Leerzeichen in Spalte A
Segment2 Text bis zum nächsten Leerzeichen in Spalte B
Segment3 Text bis zum nächsten Leerzeichen in Spalte c
Segment4 Text der sich zwischen //" und " befindet in Spalte D
nur weiß ich nicht wie ich Bedingungen umsetzen kann.
ich hoffe jemand hat ein ansatz für mich
gruß chris
Anzeige