Office: Import bestimmter Zeilen & Spalten aus .txt

Hallo Jungs & Mädels,

ich habe ein Problem, dessen Lösung mir irgendwie nicht gelingen will:

Ich habe eine .txt datei vorliegen mit ca.400.000 Zeile und 8 Spalten, getrennt mit jeweils mit ;
Davon möchte ich die letzten 17.000 importieren, am besten auch noch nur die Spalten 1 / 2 / 6

Bisher sieht mein Code folgendermaßen aus, der bis auf das oben genannte Problem super funktioniert

Code:

Sub einlesen()
    Dim Pfad As String
    Dim Datei As String
    Dim Pfad_Datei As String
    
    With Worksheets("WindSpeedRohdaten")
            Columns("A:H").Select
            Selection.ClearContents
            'Hole aus Zelle L2 den Pfad
            Pfad = .Range("L2").Value
            'Hole aus Zelle O5 den Dateinamen
            Datei = .Range("O5").Value
        End With
            'Überprüfe, ob Pfad am Ende einen "\" hat;
        'falls nicht füge ihn an
    If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
        'Gib beides Pfad+Dateiname als Rückgabewert aus der Funktion zurück
    Pfad_Datei = Pfad & Datei
    
        
  
        Z = Sheets("WindSpeedRohdaten").UsedRange.Rows.Count
    
      
   
   Open Pfad_Datei For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Sheets("WindSpeedRohdaten").Cells(Z, 1) = temp
                Z = Z + 1
            Loop
        Close #1
    
    For j = 1 To Z
        Text = Split(Cells(j, 1), ";")
        For i = 0 To UBound(Text)
            Cells(j, i + 1) = Text(i)
        Next
    Next
End Sub

Viele Dank schonmal für kreative Vorschläge

 

Moinsens!

Naja, allzu viele Möglichkeiten gibt es nicht. Es wäre natürlich viel einfacher, wenn Du die _ersten_ 17k Zeilen bräuchtest. Aber die _letzten_ 17k Zeilen sind dann schon etwas aufwändiger...

Du könntest, wenn Dein Excel es zuläßt (mehr als 64k Zeilen verarbeiten kann) die Liste komplett in ein temporäres Blatt einlesen, vom Ende ab rückwärts zählen und den Bereich dann in das endgültige Blatt verschieben. Das ist von der Verarbeitung her wohl die schnellste Lösung, braucht aber auch den meisten Speicher.

Alternativ könntest du einen FIFO-Speicher für die Zeilen bauen: Du fängst an, die Datei zeilenweise in einen Zwischenspeicher (Array im Speicher oder Zeilen in einem Blatt) einzulesen, bis die gewünschte Anzahl an Zeilen erreicht ist. Dann löscht Du für jede weitere, eingelesene Zeile die oberste aus der Liste raus. Die Liste wird also nie länger als die gewünschte Anzahl von Zeilen. Die Verarbeitung dürfte aber um einiges langsamer sein, als die erste Variante.

Warum liest Du die Datei eigentlich manuell ein? Ein worksheet.queries.add dürfte Dir da einiges an Tipparbeit im Source ersparen.

Gruß, Michael

 

Danke Michael!

Ich hab das Problem gelöst, indem ich alle Zeilen importieren lassen, danach zählen lasse und dann die gezählte Anzahl an Zeilen (abzüglich der 17k die ich brauche) löschen lasse. Jetzt braucht er zwar immernoch ca 15-20sec zum importieren, die Verarbeitung danach läuft aber wesentlich schneller.

Nicht elegant aber es läuft :D