Office: txt-File durchsuchen und einlesen

Hallo zusammen!
ich habe da ein Problem bei Excel VBA. ich soll ein txt-File nach einer bestimmten Nummer(im Bild grün), welche man am besten in einer textbox eingeben kann, durchsuchen und dann Zahlen(im Bild rot), welche 3 Zeilen tiefer stehen und immer an der selben position sind nach Excel einlesen.
kann mir da jemand helfen, ich wäre euch sehr dankbar!

Hier mal ein Screenshot der Datei:



:)

 

Hier der Link zum Bild:
http://s6.directupload.net/file/d/1329/9oey6hvt_jpg.htm

 

Kannst Du eine Beispielsdatei dieses txt-file einstellen damit man einen Datensatz zum ausprobieren hat?

Soll das Makro unter Excel gestartet werden?

Wo liegt das Textfile?

Wo und wie sollen die Daten in eine Exceltabelle eingetragen werden? Am besten eine Beispieldatei wie es in Excel stehen soll.

Gruß

 

Moin, JohnMA,

Basis aus Textdatei nach Begriff durchsuchen und Fundzeile importieren übernehmen... *wink.gif*

 

Vielen Dank für die Hilfe, damit komm ich wunderbar zurecht!

 

Der Code den du mir verlinkt hast ist super!
Jetzt hätte ich da aber noch eine Frage, wie bekomm ich es hin, dass nicht nur die Zeile in der der Suchbegriff steht angezeigt wird, sondern auch noch die zeilen darunter, so ca 6 oder so...
Vielen Dank

 

Wenn Du immer einen festen Bezugspunkt hast wann der Einlesebereich enden soll eine dementsprechende Schleife integrieren die anfängt wenn dein Ursuchbegriff gefunden wurde.

 

Hallo JohnMA,

ersetze die Do...Loop-Schleife wie folgt:
Code:

In dem ursprünglichen Code hat sich übrigens ein kleiner Fehler eingeschlichen, der allerdings in 99,9% aller Fälle ohne Folge bleibt. Ich habe EOF(1) durch EOF(iFile) ersetzt.

Gruß Ingolf

 

Ja wunderbar, ich danke euch!
Es funktioniert jetzt sehr gut!

 

In dem Beispiel unter http://www.herber.de/mailing/076899h.htm
wird in der 2. sub also der sub textimport() durch den Befehl "Kill sFile" die gelesene Datei gelöscht!!!!!

Was allerdings dem Beispiel nicht schadet.

Wollt das nur mal anmerken, damit es nicht zum Datenverlust kommt.

 

Hallo,

bin schon am verzweifeln. Habe ähnliches Problem, aber:

Ich habe einen Ordner voll mit Dateien. In deren Quelltext (geöffnet mit Editor) findet man immer ein Begriff, hier xyz und anschließend Zahlen, hier zB 123. xyz ist in jeder Datei konstant, die Zahlen sind jedoch immer anders. So, nun möchte ich die Zahlen einer Spalte im Excel, hier ab A1 runter, mit eben diesen Zahlen in den Dateien abgleichen. Hat er für die Zahl in Excel dieselbe Zahl in der entsprechenden Datei gefunden, soll nun das Datum im selben Quelltext, steht bissle weiter unten, kopiert und in einer neuen Spalte, jedoch in derselben Zeile wie die Zahl in Excel eingefügt werden.
Ich weiß, so fühl ich mich grad auch *frown.gif*

So nun ein Beispiel, wie so n Quelltext etwa aussieht:
"Blablabla","xxx"
"hmmmm",555
"zzzzzzz",666
"Kap","xyz: 123
"Datum","1/1/2012"

Wie erwähnt, 123 stehe in der Excel-Spalte ab A1, nun wurde die Datei mit dieser Name gefunden (xyz 123) und jetzt soll das Datum kopiert und irgendwo rechts neben die Zahl in die neue Spalte im Excel eingefügt werden. Der Begriff Datum vor dem Datum ist übrigens auch in jeder Datei konstant.

Bitte euch dringend um Hilfe!!

Grüße,

ayba

 

Hallo ayba,

frei nach deinen Angaben.

Sub readTextFile()
Dim strPath As String, strFile As String, strTmp As String
Dim ff As Integer
Dim vntRet As Variant
Dim vntNumber As Variant, vntDate As Variant

Const Begriff As String = "xyz" 'Gesuchter Begriff - Anpassen!

strPath = "E:\Forum" 'Pfad zu den Textdateien - Anpassen!

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

strFile = Dir(strPath & "*.txt", vbNormal)

Do While strFile <> ""
ff = FreeFile
vntNumber = ""
vntDate = ""

Open strPath & strFile For Input As #ff
Do While Not EOF(ff)
Line Input #ff, strTmp
strTmp = Replace(strTmp, Chr(34), "")
If LCase(strTmp) Like "kap*" & Begriff & "*" Then
vntNumber = Trim(Split(strTmp, ":")(1))
If IsNumeric(vntNumber) Then vntNumber = CDbl(vntNumber)
ElseIf LCase(strTmp) Like "datum*" Then
vntDate = Trim(Split(strTmp, ",")(1))
If IsDate(vntDate) Then vntDate = CDate(vntDate)
Exit Do
End If
Loop
Close #ff

If vntNumber <> "" And vntDate <> "" Then
With Sheets("Tabelle1") 'Tabellenname -Anpassen!
vntRet = Application.Match(vntNumber, .Columns(1), 0)
If IsNumeric(vntRet) Then .Cells(vntRet, 2) = vntDate
End With
End If

strFile = Dir
Loop

End Sub





« Gruß Sepp »

 

Danke,

aber es funktioniert nicht. Die Dateien im Ordner sind übrigens keine txt-files. Nur wenn man sie mit txt öffnet erscheint der erwähnte Quelltext. Woran könnte es noch liegen???

 

Hallo ayba,

"Woran könnte es noch liegen???"

na einfach daran, das deine Angaben nicht stimmen!

Wie heißen die Dateien den wirklich?

Am besten lädst du eine solche Datei hoch.




« Gruß Sepp »

 

Welche Dateien meinst du?
Ein Ordner ist voll mit Dateien, alle haben dieselbe Endung, aber eben nicht .txt !

Nur nochmal zur Klarstellung: Jede Datei hat eine eigene 5-stellige Nummer, die ebenfalls in der Excel Spalte aufgeführt ist. Für diese Nummern in der Spalte muss die passende Datei gefunden werden und aus dessen Quelltext das Datum herauskopiert werden. Anschließend Einfügen in eine Spalte meiner Wahl in Excel in derselben Zeile der passenden Nummer.

Hoffe die Info hilft dir weiter.