AW: txt konvertieren und als Tabelle speichern
17.07.2009 12:53:42
EffHa
Hallo,
das geht durchaus.
Voraussetzung, die Textdatei hat immer den gleichen Aufbau, d.h entweder sind die Felder durch irgend ein Trennzeichen getrennt, oder sie stehen immer an der gleichen Stelle.
Hier ein Beispiel
Sub TextDateiEinlesen()
Dim I&, ReadFileNum&, Zeile&
Dim Dateiname$, ReadLine$
Dateiname = "C:\Temp\Testdatei.txt"
' TestFile zum lesen öffnen
ReadFileNum = OpenReadFile(Dateiname)
Zeile = 2
Do Until EOF(ReadFileNum)
Line Input #ReadFileNum, ReadLine
'Z.B. so 'Zeile 2 Spalte "A" = die ersten 4 stellen der 1. Zeile der Textdatei
Cells(Zeile, 1) = Left(ReadLine, 4)
'Zeile 2 Spalte "B" = die nächsten 6 stellen der 1. Zeile der Textdatei usw.
Cells(Zeile, 1) = Mid(ReadLine, 5, 6)
Cells(Zeile, 1) = Mid(ReadLine, 12, 3)
Cells(Zeile, 1) = Mid(ReadLine, 16, 12)
Cells(Zeile, 1) = Mid(ReadLine, 29, 4)
Zeile = Zeile + 1
Loop
Close ReadFileNum
End Sub
Function OpenReadFile(File$) As Long
Dim FnIn&
FnIn = FreeFile
Open File For Input As FnIn
OpenReadFile = FnIn
End Function