über VBA txt durchsuchen, schleife

Hallo zusammen,
ich lasse über ein Makro eine .txt Datei öffnen. Die Daten aus der txt sollen ausgelesen, gesprlittet und in die Excel eingefügt werden. in den oberen Zeilen der .txt stehen allerdings Informationen die für diesen Fall uninteressant sind. Ich möchte die Do While Loop Schleife also nicht am Anafang der txt starten lassen sondern erst ab der Überschrift "Rohdaten".


Sub InformationenImportieren()
Dim Quelldatei As String
Dim Zeile As Integer
Dim Inhalt As String
Dim Informationen() As String
Dim i As Integer
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Tabelle1").Activate
'Startwerte zuweisen
Zeile = 2
'QuellDatei ansprechen
Quelldatei = "C:\Downloads\12345.txt"
'QuellDatei öffnen
Open Quelldatei For Input As #1
'Informationen in das Tabellenblatt einfügen
Do While Not EOF(1)            'Schleife bis Datenende
'Inhalt der Quelldatei zeilenweise einlesen
Line Input #1, Inhalt
Informationen = Split(Inhalt, "=")
For i = 0 To UBound(Informationen)
'Infos auf Spalten aufteilen
'Wert in das Tabellenblatt eintragen
ActiveSheet.Cells(Zeile, 1) = Informationen(i)
Next
Zeile = Zeile + 1
Loop
'Quelldatei schließen
Close #1
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Open Quelldatei For Input As #1 Do Line Input #1, Inhalt Loop until Inhalt = "Rohdaten" 'Informationen in das Tabellenblatt einfügen Do While Not EOF(1) 'Schleife bis Datenende 'Inhalt der Quelldatei zeilenweise einlesen Line Input #1, Inhalt ...

Hi,
nee, tuste nich!
Hier mal der entscheidende Codeteil in komprimierter Form, also ohne Kommentare, Leerzeilen usw


Informationen = Split(Inhalt, "=")
For i = 0 To UBound(Informationen)
ActiveSheet.Cells(Zeile, 1) = Informationen(i)
Next
Zeile = Zeile + 1

nehmen wir mal aus deiner Bsp-Datei diese Zeile:


1=0,1;0,2

Informationen erhält diese Inhalte = ("1","0,1;0,2"), also 2 Inhalte
somit ist UBOUND von Informationen = 1, nämlich 0 und 1
in deiner For/Next wird ActiveSheet.Cells(Zeile, 1) angesprochen, ohne Zeile zu ändern
im 1. Durchlauf (0) erhält ActiveSheet.Cells(Zeile, 1) = "1"
im 2. Durchlauf (1) erhält ActiveSheet.Cells(Zeile, 1) = "0,1;0,2"; und somit wird das vorherige "1" einfach überschrieben
erst nach Ende von For/Next erhöhst du Zeile = Zeile + 1
Ciao
Thorsten

Sub InformationenImportieren() Dim Quelldatei As String Dim Zeile As Long Dim lstrCont As String, larstrCont() As String, liIdx As Integer, larSplit() As String 'QuellDatei ansprechen Quelldatei = "C:\Downloads\12345.txt" Open Quelldatei For Binary As #1 lstrCont = Space$(LOF(1)) Get 1, , lstrCont Close larstrCont = Split(lstrCont, vbCrLf) Zeile = 2 With Sheets("Tabelle1") For liIdx = 0 To UBound(larstrCont) If InStr(larstrCont(liIdx), "Rohdaten") Or _ .Range("A2").Value "" Then larSplit = Split(larstrCont(liIdx), "=") .Range("A" & Zeile).Value = larSplit(UBound(larSplit)) Zeile = Zeile + 1 End If Next End With End Sub

Sub TXTlesen() Dim ff As Integer Dim z As Integer, i Dim flag As Boolean Dim txt txt = "C:\Users\onure\Desktop\154173.txt" 'HIER EIGENEN PFAD EINGEBEN ff = FreeFile z = 1 Open txt For Input As #ff Do While Not EOF(ff) Line Input #ff, txt If txt = "[Rawdata]" Then flag = True If txt "[Rawdata]" And flag Then txt = Split(Right(txt, Len(txt) - InStr(txt, "=")), ";") For i = 0 To UBound(txt) Cells(z, i + 1) = CDbl(txt(i)) Next i z = z + 1 End If Loop Close #ff End Sub

Sub M_snb() with createobject("scripting.filesystemobject") .createtextfile("C:\downloads\snb.txt").write split(.opentextfile("C:\Downloads\12345.txt").readall,"data]")(1) end with workbooks.open "C:\downloads\snb.txt" End Sub

Beliebteste Forumthreads (12 Monate)

über VBA txt durchsuchen, schleife

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread