|
Hallo erstmal,
Ich bin ein Neuling in VBA und komme bei einem Projekt einfach nicht weiter.
Deshalb bitte ich um eure Hilfe.
Ich habe eine Textdatei, die ich mit VBA einlesen möchte.
Inhalt der Textdatei:
975
14
.49
0
0
17.06.2010³10:28:31
X.XXXXX
HILDE
211
103.39
Die letzte Zeile habe ich mit
If fsys.FileExists(IFileName) = True Then
Open IFileName For Input As #H
While Not EOF(1)
Line Input #H, IstrText
ZeitI1 = Mid(IstrText, 1, 20)
Wend
Close #H
Cells(lngDateien, lngSchreibspalte + 7) = Replace(ZeitI1, ".", ",") * 2 / 2
Else
Cells(lngDateien, lngSchreibspalte + 7) = "0"
End If
eingelesen, aber wie kann ich die vorletzte Zeile, also die "211" auslesen?
Die Textdateien sind immer unterschiedlich, aber die Struktur ist immer die selbe.
Wäre für eure Hilfe sehr dankbar.
Gruß
Idefix_71
|