txt Datei auslesen; Ausgabefehler
Michael
Wenn ich folgende Datei "Probe1.txt" auslese, erhalte ich immer einen Wert mit dem ich nichts anfangen kann? 0,00E+00? die Orginalbezeichnung 0E0035
Artikeldatei
Kurzname Beschr
Red24IGPlc New A0M86F
Klöppel 0E0035
Manzer 000E00
Damit klappt es nicht!
'
' Makro5 Makro
' Makro am 28.07.2009 von Michael aufgezeichnet
'
'
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\Michael.S\Desktop\TaiPanProbe.txt", Origin:= _
1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, 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)), _
TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.AutoFilter
End Sub
und damit auch nicht!
Dim Textzeile As String
Dim i As Integer
Const Verzeichnis = "C:\Dokumente und Einstellungen\Michael.S\Desktop\"
Const Eingabedatei = "Probe1.txt"
Range("A1").Select
Open Verzeichnis & Eingabedatei For Input As #1
Do While Not EOF(1)
Line Input #1, Textzeile
ActiveCell.Value = Textzeile
ActiveCell.Offset(1, 0).Select
Loop
Close #1
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlTextQualifierNone, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
ActiveSheet.Columns("A:E").AutoFit
End Sub
Anzeige
