ich möchte ein relativ große Txt Datei einlesen. Das einlesen der kompletten Datei bekomme ich schon hin, leider will ich nur einen Bestimmten Teil einlesen.
Irgendwo in der Datei kommt folgendes Wort vor: "COMPU_TAB_REF", ab hier sollen die nachfolgenden Zeilen eingelesen werden. Leider sollen nicht alle Zeilen die nach COMPU_TAB_REF kommen eingelesen, sondern nur die mit "DFC_" beginnen. Kann mir da vielleicht jemand helfen? Das wäre super!
Grüße
Dominik
Anbei mal das bereits erstellte Makro
Sub Datei_importieren()
Dim Datei As String, Text As String
Dim Zeile As Long
On Error GoTo Fehler
'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\C1636QV50_0309165.a2l"
Open Datei For Input As #1 ' Quelldatei öffnen.
Zeile = 1
Do While Not EOF(1) ' Schleife bis Dateiende
Line Input #1, Text ' Text lesen
If Text = "COMPU_TAB_REF DFCDSQ_Verb" Then
ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
End If
Loop
Close #1 'Quelldatei schließen
Exit Sub
End Sub