Hallo zusammen,
Ich benötige Hilfe beim Einlesen einer .txt
Es klappt wunderbar die Datei einzulesen. ABer ich benötige eigentlich nur die ersten 25 Zeilen.
Wie kann ich das beschrenken?
Nutze dazu folgenden befehl
Dim Zeile As Long
Do While Not EOF(1) ' Schleife bis Dateiende
Line Input #1, Text ' Text lesen
ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
Loop
Close #1 'Quelldatei schließen
Vielen Dank für die Hilfe
|