Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Txt Datei einlesen

Makro Txt Datei einlesen
14.09.2016 11:20:13
Dominik
Hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Txt Datei einlesen
14.09.2016 11:36:40
UweD
Hallo
Sub Datei_importieren()

    Dim Datei As String, Text As String
    Dim Zeile As Long, Abjetzt As Boolean
    
    On Error GoTo Fehler
    ActiveSheet.Columns(1).ClearContents
    
    'Quelldatei festlegen 
    Datei = ThisWorkbook.Path & "\C1636QV50_0309165.a2l"
    
    Close #1   'Quelldatei vorsichtshalber schließen 
    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 Abjetzt = True
        If Abjetzt And Left(Text, 4) = "DFC_" Then
            ActiveSheet.Cells(Zeile, 1) = Text
            Zeile = Zeile + 1
        End If
    Loop
    
    Close #1   'Quelldatei schließen 
    
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD
Anzeige
AW: Makro Txt Datei einlesen
14.09.2016 11:53:57
Daniel
Hi
probiers mal so:
Sub Datei_importieren()
Dim Datei As String, Text As String
Dim Zeile As Long
Dim EinLesen as boolean
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 Einlesen = True
If Einlesen then
If Text Like "DFC_*" then
ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
End If
End If
Loop
Close #1   'Quelldatei schließen
Exit Sub
End Sub
gruß Daniel
Anzeige
schneller per Array
14.09.2016 12:32:01
Rudi
Hallo,
benutze niemals VBA-Schlüsselwörter als Variablenbezeichnung. Text ist eine Eigenschaft.
Sub Datei_importieren()
Dim Datei As String, sText As String, vText
Dim EinLesen As Boolean
'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\C1636QV50_0309165.a2l"
If Dir(Datei, vbNormal)  "" Then
Open Datei For Input As #1         ' Quelldatei öffnen.
Do While Not EOF(1)           ' Schleife bis Dateiende
Line Input #1, sText      ' Text lesen
If sText = "COMPU_TAB_REF DFCDSQ_Verb" Then EinLesen = True
If EinLesen Then
If sText Like "DFC_*" Then
vText = vText & vbCrLf & sText
End If
End If
Loop
Close #1   'Quelldatei schließen
vText = Split(Mid(vText, 2), vbCrLf)
Cells(1, 1).Resize(UBound(vText) + 1) = vText
End If
End Sub

Anzeige
AW: Makro Txt Datei einlesen
14.09.2016 13:35:30
Dominik
Ihr seid die Besten, vielen Dank für die Hilfe!! Jetzt läuft es.
Grüße
Dominik

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige