Daten aus TXT file auslesen und zurückschreiben
11.12.2013 09:19:19
Jens
Ich habe zwei fragen zu einem Thema mit einem TXT file! Ich habe zwei Code im Netz gefunden und soweit ich das konnte angepasst.
1. Ich möchte gern aus einem TXT file Zeilen nach Excel auslesen, die einem bestimmten Kriterium entsprechen. Ich habe auch einen Code, nur leider schreibt mir dieser alles in die erste Zeile in Excel, also man sieht wie er die Ergbnisse immer wieder in der ersten Zeile in Excel überschreibt. Es wäre sehr schön wenn mir da ein Experte einen Tip gibt.
Sub TextImport()
Dim iFile As Integer
Dim strPath As String
Dim sSearch As String, sTxt As String
Dim sFile As String
Dim StartZeile&
strPath = "Z:\Kufri 1213\" 'Pfad zu den Textdateien - Anpassen!
i = Cells(1, 1)
iFile = FreeFile
sFile = strPath & "CVT_OST_00726017.txt"
sSearch = i
StartZeile = 1
Open sFile For Input As iFile
Do Until EOF(iFile)
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
' For iZeile = 0 To 183
Range("A5").Offset(iZeile, 0) = sTxt
Input #iFile, sTxt
StartZeile = StartZeile + 1 'Zeile 1 erhöhen
Range(Cells(StartZeile, 1), Cells(StartZeile, 1)) = TextArray
'Next 'iZeile
' Exit Do
End If
Loop
Close iFile
End Sub
Sub ph()
Dim pfad As String
Dim strPath As String
strPath = "Z:\Kufri 1213" 'Pfad zu den Textdateien - Anpassen!
sFile = strPath & "\CVT_OST_00726017.txt"
With Tabelle1
.Range("A5:A" & .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row).Copy
End With
' Open pfad For Output As #1
Open sFile For Append As #1 ' Datei zur Ausgabe öffnen.
For r = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Print #1, Cells(r, 1) ' Text in Datei schreiben.
Next r
Close #1 ' Datei schließen.
End Sub