Tweet
Hallo, ich versuche per Excel VBA eine Datei einzulesen, in einen String zu schreiben und diesen danach auf bestimmte Zeichen zu durchsuchen. Klappt soweit eigentlich schon, jedoch werden manche Dateien nicht bis zum Dateiende eingelesen. 
Open datei For Input As #1
Do While Not EOF(1)
Line Input #1, s
s_gesamt = s_gesamt + s
Loop
Debug.Print s_gesamt
Close #1
Im Debugfenster ist zu sehen, dass die Datei nicht bis zum Ende eingelesen wurde.
Was mach ich denn falsch? (die einzulesende Datei mal im Anhang).
Kann mir da jemand weiterhelfen?
Danke schonmal für evtl. Antworten.
Open datei For Input As #1
Do While Not EOF(1)
Line Input #1, s
s_gesamt = s_gesamt + s
Loop
Debug.Print s_gesamt
Close #1
Im Debugfenster ist zu sehen, dass die Datei nicht bis zum Ende eingelesen wurde.
Was mach ich denn falsch? (die einzulesende Datei mal im Anhang).
Kann mir da jemand weiterhelfen?
Danke schonmal für evtl. Antworten.