Importieren von Textdateien


Quellcode um eine Textdatei in Excel zu importieren (funktioniert auch unter Office 2007 ):

Workbooks.OpenText Filename:=“C:\TEXTDATEI.TXT“, Origin:=936, StartRow:=1, _
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), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array( _
18, 1), Array(19, 1), Array(20, 1), Array(21, 1)), DecimalSeparator:=“.“, ThousandsSeparator:=“ „, TrailingMinusNumbers:=True

oder

Workbooks.OpenText Filename:=“C:\TEXTDATEI.TXT“, Origin:=xlWindows, StartRow _
:=1, 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), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1)), _
DecimalSeparator:=“.“, ThousandsSeparator:=“ „, TrailingMinusNumbers:=True

oder gemäß Excel VBA Schulung

Einlesen der Textfile ohne sie in Excel zu importieren:

Sub opentextfile()
Dim zeichen1, mwort As String
On Error GoTo mFehler
Open Cells(1, 1).Value For Input As #1
Do While Not EOF(1)
zeichen1 = Input(1, #1)
If zeichen1 = Chr(13) Then
‚Zeile ende
End If
If zeichen <> „|“ Then
mwort = mwort & zeichen1
End If
Loop
Close #1
mWeiter:
Exit Sub
mFehler:
MsgBox „Error…“
Resume ‚hier nachlesen resume(0) wiederholt den fehlerauslösenden befehl
End Sub