Ich möchte eine Datei in Excel einlesen, die mehr als die 65336 Zeilen hat. Ich habe mir folgendem Code aus dem Forum geholfen:
Sub Daten_lesen()
Dim x As String
Dim Filenum As Integer
Filenum = FreeFile()
Zähler = 2
Open Dateiname2 For Input Access Read As #Filenum
Do While Not EOF(Filenum)
Line Input #Filenum, x
Posnr = Left(x, 11)
If Zähler < 65537 Then
Worksheets("Import").Cells(Zähler, 1) = x 'Trim(Posnr)
ElseIf Zähler < 131072 Then
Worksheets("Import").Cells(Zähler - 65535, 3) = x
ElseIf Zähler < 196607 Then
Worksheets("Import").Cells(Zähler - 131070, 5) = x
End If
Zähler = Zähler + 1
Application.StatusBar = "Eingelesen: " & Format(Zähler, "#,##0") & " Datensätze - Bitte warten..."
Loop
Close #Filenum
Worksheets("Import").Select
End Sub
Über den Zähler verteile ich mir die Datei nebeneinander. Mein Problem ist die EOF-Abfrage. Der Import stoppt dadurch bei der ersten leeren Zeile. Die Datei enthält aber öfter leere Zeilen. Weiß vielleicht jemand, wie ich das im Code ändern kann?
Vielen Dank für Eure Hilfe
Michael Heering