Sub
DataImport()
Dim
X
As
Integer
, Zeile
As
String
, lr
As
Integer
Open txtFileName
For
Input
As
#1
Do
While
Not
EOF(1)
X = X + 1
Line Input #1, Zeile
Cells(X,
"A"
) = Zeile
Loop
Close #1
lr = Cells(Rows.Count,
"A"
).
End
(xlUp).Row
Range(
"A1:A"
& lr).TextToColumns Destination:=Range(
"A1"
), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=
False
, Tab:=
True
, _
Semicolon:=
False
, Comma:=
False
, Space:=
False
, Other:=
False
, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=
True
End
Sub