Textdatei teilweise einlesen??

Hallo zusammen,
vielleicht kann mir ja jemand helfen. Ich habe ein Problem bei dem ich nicht weiterkomme.
Ich möchte eine Textdatei in Excel einlesen. Das bereitet eigentlich keine Probleme, allerdings übersteigt diese Datei die 65.000 Zeilen, die Excel 2000 kann. Es handelt sich um ca 260.000 Zeilen.
Die Liste enthält Kundendaten, die in 3 Bestandteile gegliedert sind. Um diese zu unterscheiden, sind für jeden Kunden in der ersten Zeile des des jeweiligen Teils einmalig Vorzeichen vorangestellt ( "&5"; "&6"; "&8"). Diese wiederholen sich für jeden Kunden.
Meine Frage ist nun:
Ist es möglich beim Einlesen dieser Liste vorab zu selektieren, welches Vorzeichen ich einlesen möchte, bzw. Zeilenbereiche einzulesen? Ich benötige nur die Zeilen, die dem Vorzeichen "&8" zugeordnet werden. Das müssten insgesamt ca 25.000 sein und somit für Office 2k machbar.
Office 2007 ist für mich (noch) keine akzeptable Lösung. Access soll wenn möglich auch vermieden werden, da später auch Anwender damit arbeiten sollen, die sich in Access nicht auskennen.
kleine Zusatzinformation...
die Liste sieht vom Aufbau etwa wie folgt aus:
&5...xyz
.......xyz
.......xyz
&6...xyz
.......xyz
.......xyz
&8...xyz
.......xyz
.......xyz
&5...xyz
.......xyz
.......xyz
Ich möchte somit nur den Bereich der fett darsgestellt ist ins Excel bekommen...
Vielen Dank im Voraus
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Pascal
Versuch es mal hiermit - ungetestet, weil ich keine txt-Datei mit so viel Inhalt habe.


Sub Auslesen()
Dim lstrInhalt As String, loZeile As Long
loZeile = 1
Open "DeinPfad\DeineTxtDatei" For Input As #1 'Pfad + Dateiname anpassen bzw eintragen
Do While Not EOF(1)
Line Input #1, lstrInhalt
If Left(lstrInhalt, 2) = "&8" Then
Range("A" & loZeile).Value = lstrInhalt
loZeile = loZeile + 1
Line Input #1, lstrInhalt
Do Until Left(lstrInhalt, 1) = "&"
Range("A" & loZeile).Value = lstrInhalt
loZeile = loZeile + 1
Line Input #1, lstrInhalt
Loop
End If
Loop
Close
End Sub

Trag diesen Code in ein allgem. Modul einer leeren Exceldatei ein.
Dieses Makro öffnet deine Txt-Datei und liest die erste Zeile ein.
Dann werden so lange nächste Zeilen eingelesen, bis die ersten 2 Zeichen = "&8" entsprechen.
Jetzt wird zuerst die gefundene Zeile in die Exceltabelle in A1 eingetragen.
Dann werden weitere Zeilen aus der Txt-Datei eingelesen und in die nächste freie Zeile in Excel eingetragen, bis eine Txt-Zeile gefunden wird, in der das erste Zeichen = "&" ist.
Jetzt wird erst wieder geprüft, ob es sich um eine Zeile mit "&8" handelt und alles beginnt von vorne.
Hilft das?
Ciao
Thorsten

Sub ttt() Dim mytext As String, i As Integer, flag As Boolean Open "u:\test.txt" For Input As #1 While Not (EOF(1)) Input #1, mytext If Left(mytext, 2) = "&0" Then flag = False If Left(mytext, 2) = "&1" Then flag = False If Left(mytext, 2) = "&2" Then flag = False If Left(mytext, 2) = "&3" Then flag = False If Left(mytext, 2) = "&4" Then flag = False If Left(mytext, 2) = "&5" Then flag = False If Left(mytext, 2) = "&6" Then flag = False If Left(mytext, 2) = "&7" Then flag = False If Left(mytext, 2) = "&9" Then flag = False If Left(mytext, 2) = "&8" Or flag Then If Not (flag) Then flag = True i = i + 1 Cells(i, 2).Value = mytext End If Wend Close #1 End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei teilweise einlesen??

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread