Letzten 200 Zeilen einer Textdatei einlesen
28.02.2019 18:38:11
Marspoki
ich würde gerne eine Textdatei in exel einlesen und dabei immer nur die letzten 200 Zeilen einlesen.
Hat jemand eine Idee wie ich das machen kann?
Aktuell lese ich die 20000 Zeilen komplett ein , was aber etwas längert dauert :-)
Ich brauche aber nur die letzten 200
Mein Code aktuell ist:
Public Sub import()
Dim Arr
Dim Datei
Dim FSO
Dim L As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim I As Integer
Dim Str_String As String
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("C:\test.txt") 'Anpassen
Str_String = Datei.readall
Datei.Close
Arr = Split(Str_String, vbCrLf) 'Nach Datensätzen splitten
ReDim vnt_Ausgabe(UBound(Arr), 200) '200 Spalten reichen ?
For L = 0 To UBound(Arr)
Tmp = Split(Arr(L), " ") 'Jeden Datensatz nach Werten splitten
For I = 0 To UBound(Tmp)
vnt_Ausgabe(L, I) = Tmp(I) 'Jeden Wert in das Array vnt_Ausgabe umschaufeln
Next
Next
'Ausgeben. Anpassen.
Sheets("Tabelle1").Range("A1").Resize(UBound(vnt_Ausgabe) + 1, UBound(vnt_Ausgabe, 2)) = _
vnt_Ausgabe
End Sub