ich habe eine txt die so ausieht:
2.1 8.3
3.4 7.1
sprich koorinatenpaare die mit leerzeichen voneinander getrennt sind, und jeweil unterschiedliche viele zeilen hat. mal 3 paare mach 20 paare immer unterschiedlich. Diese wiill ich jetzt per VBA einlesen und die erste zahl in die erste spalte und die zweite in die zweite spalte...und das dann zeile für zeile...
das einlesen klappt nur bedingt, es werden die paare immer in eine zelle geschrieben und NICHT getrennt...soweit bin ich schon gekommen
Sub read()
Dim kwrite As Double
Open "P:\test.txt" For Input As #1
NLine = 1
Do While Not EOF(1)
Line Input #1, kwrite
Cells(NLine, 1) = kwrite
NLine = NLine + 1
Debug.Print buffer
Loop
Close #1
End Sub
desweiteren wäre eine abbruch bedingung schön, falls das file leer ist.
|