HERBERS Excel-Forum - die Beispiele

Thema: Textdatei nach Begriff durchsuchen und Fundzeile importieren

Home

Gruppe

Extern

Problem

Wie kann ich eine Textdatei nach einem bestimmten Begriff durchsuchen lassen und die Zeile, in der der Suchbegriff gefunden wurde, in ein Excel-Arbeitsblatt importieren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub CreateText()
   Dim iFile As Integer, iCounter As Integer
   Dim sFile As String
   iFile = FreeFile
   sFile = Application.Path & "\texttest.txt"
   Open sFile For Output As iFile
   For iCounter = 1 To 10
      If iCounter = 5 Then
         Print #iFile, "Ein Hallo"
      Else
         Print #iFile, "Zeile " & iCounter
      End If
   Next iCounter
   Close iFile
   Workbooks.OpenText _
      Filename:=sFile, _
      DataType:=xlDelimited, _
      tab:=False, _
      semicolon:=False, _
      comma:=False, _
      Space:=False, _
      other:=False
   MsgBox "Weiter"
   ActiveWorkbook.Close savechanges:=False
End Sub

Sub TextImport()
   Dim iFile As Integer
   Dim sSearch As String, sTxt As String
   Dim sFile As String
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Sie müssen zuerst eine Textdatei anlegen!"
      Exit Sub
   End If
   iFile = FreeFile
   sFile = Application.Path & "\texttest.txt"
   sSearch = "Hallo"
   Open sFile For Input As iFile
   Do Until EOF(1)
      Input #iFile, sTxt
      If InStr(sTxt, sSearch) Then
         Range("A1") = "Gefunden: " & sTxt
         Exit Do
      End If
   Loop
  Close iFile
  Kill sFile
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und TextImport

Dateiname externer Datei ändern Tabellenblatt aus externer Exceldatei kopieren
ConboBox mit externe Daten füllen Textimportassistent
Wert in externer Datei suchen Aufruf externer Programme
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Pivot mit Externer DB am Limit? Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden externes Verzeichnis ansprechen
Externe Datenquelle via VBA Pivot mit Externer DB UNION funzt nich
Nur externe Bezüge rausnehmen *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen Makro: Bezug auf externes xls-File?
Wert an externes Programm übergeben Externe Excel-Verknüpfungen automatisiert ändern
Verlinkung externer Arbeitsmappen Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen neue Zeile und externe Bezüge....
Externe Verknüpfung finden externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Textimport-Assistent Fehler beim Kopieren von externer Tabelle
anzahl Blätter externer Excel-Datei Externe Daten aus Access
Anpassung Makro für Textimport Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Zeitanzeige auf USF wenn ein externes Progr. läut Externe Daten (QueryTable) ab 1 nummerieren
Schnittstelle extern mit Lampen Zelleninhalt für externes Programm kopieren
Archivieren externer Dateien in Arbeitsblatt Externer Vergleich
externe Verknüpfung per Makro einfügen Externe Verknüpfungen
Externen Text mit Makro einfügen Abfragekriterium externe Daten verändern
Daten aus externer Mappe einfügen externes Programm ausführen