Aus Datei lesen
27.12.2003 19:59:58
Philipp Loosmann
Mit folgendem Code lese ich daten aus einer txt-Datei ein.
sPath = ThisWorkbook.Path & "\plat\S5.txt"
Open sPath For Input As #1
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, P
Worksheets("PosZO").Cells(i, 1).Value = P
i = i + 1
Loop
Close #1 ' Datei schließen.
Es funkioniert aber nur sehr langsam.
Was kann ich tun, um die Sache zu beschleunigen?
Danke für Eure Hilfe.
Philipp