Import txt-file

Bild

Betrifft: Import txt-file
von: Doris
Geschrieben am: 26.04.2005 10:25:56
Hallo Fachleute
Ich stehe mal wieder vor einem Problem, das ich ohne eure Hilfe nicht werde lösen können...
Ich habe ein txt-file mit folgender Struktur:
****
Betreff: Plauderei
Eintragstyp: Telefonanruf
Firma: Muster AG
Beginn: Di 26.04.2005 8:00
Ende: Di 26.04.2005 8:15
Dauer: 15 Minuten
Kontakte: Kermit Frosch; Miss Piggy
Kategorien: Geschäftspartner
****
Dann kommt der nächste Eintrag direkt darunter... nun möchte ich dieses File gerne in Excel importieren und zwar so, dass eine Tabelle (Liste) mit sämtlichen Eintragungen entsteht:
Spalte A = 'Beginn'
Spalte B = 'Dauer'
Spalte C = 'Eintragstyp'
Spalte C = 'Firma'
Spalte D = 'Kontakte'
Spalte E = 'Betreff'

Ein Klacks für euch, nicht wahr???!!! ;-))
Vielen Dank für die Hilfe und Grüsse
Doris

Bild

Betrifft: AW: Import txt-file
von: Reinhard
Geschrieben am: 26.04.2005 11:46:30
Hallo Doris,
wird aber eng in Spalte C *g, ungetestet:

Sub tt()
Close
zei =2
Open "c:\test.txt" For Input As #1
While Not EOF(1)
    Input #1, a
    Input #1, b
    Input #1, c
    Input #1, d
    Input #1, e
    Input #1, f
    Cells(zei, 1) = a
    Cells(zei, 2) = b
    Cells(zei, 3) = c
    Cells(zei, 4) = d
    Cells(zei, 5) = e
    Cells(zei, 6) = f
    zei = zei + 1
Wend
Close
End Sub

Viele Grüße
Reinhard
Bild

Betrifft: AW: Import txt-file
von: Doris
Geschrieben am: 26.04.2005 12:29:12
Hallo Reinhard
Vielen Dank für deine Bemühungen! Klappt schon beinahe... folgendes Problem habe ich jedoch noch und ich fürchte ich habe mich zu wenig klar ausgedrückt, sorry!
Die Daten werden jetzt aneinander gereiht ausgegeben. Mein Ziel ist folgendes
[Spaltenüberschriften]
A = Beginn | B = Dauer | C = Eintragstyp | usw.
[Resultate:]
-----
26.04.2005 | 15 Minuten | Telefonanruf | ...
-----
22.04.2005 | 60 Minuten | Meeting | ...
----
20.04.2005 | 10 Minuten | Besprechung | ...
...
Ich lege einen Auszug aus dem txt bei (https://www.herber.de/bbs/user/21726.txt
). Bitte beachte, dass ein Eintrag in der Regel mit dem Feld "Betreff" beginnt; wenn dieses keinen Wert enthält, fehlt dieses jedoch...

Gruss, Doris
Bild

Betrifft: Bitte noch mal hochladen !!!
von: Heiko S.
Geschrieben am: 26.04.2005 12:40:08
Hallo
kann die Datei aus irgendwelchen Gründen nicht runterladen.
Vielleicht nochmal neu hochladen ?!
Gruß Heiko

PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: Bitte noch mal hochladen !!!
von: Doris
Geschrieben am: 26.04.2005 12:42:16
... schon passiert... siehe separaten treat!
Doris
Bild

Betrifft: AW: Import txt-file
von: Heiko S.
Geschrieben am: 26.04.2005 12:28:32
Hallo Doris,
schlecht zu erklären darum anbei ne kleine Beispieldatei.

https://www.herber.de/bbs/user/21725.xls

Gruß Heiko

PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: Import txt-file
von: Doris
Geschrieben am: 26.04.2005 12:34:58
Wow! Heiko, das klappt soweit echt gut... ein klitzekleiner Schönheitsfehler existiert aber noch. Und zwar werden diejenigen Datensätze die teilweise Lückenhaft erfasst sind nicht ausgewiesen. Ich habe das schon vorhin für Reinhard ausgeführt und eine Muster-Quelldatei beigelegt (siehe oben).
Also wenn wir das noch hinkriegen, dann Prost!!!
:-) Grüsse, Doris
Bild

Betrifft: Test-File (txt)
von: Doris
Geschrieben am: 26.04.2005 12:39:52
komisch, es scheint ein Problem mit meinem Upload zu geben... ich versuchs nochmals:
https://www.herber.de/bbs/user/21727.txt
Bild

Betrifft: AW: Test-File (txt)
von: Heiko S.
Geschrieben am: 26.04.2005 13:01:54
Hallo Doris,
dieser "kleine" Schönheitsfehler ist sehr viel komplizierter als du glaubst.
Da VBA nich hellsehen kann welche Einträge denn nun drin sind im Textfile, wird das eine komplizierte dynamische VBA Suchroutine, die sich nicht mal eben in der Mittagspause schriebt.
Vielleicht habe ich noch mal Lust mich damit zu beschäftigen, aber erstmal steige ich aus und markiere die Frage darum als offen.

Gruß Heiko
Bild

Betrifft: AW: Test-File (txt)
von: Doris
Geschrieben am: 26.04.2005 14:08:31
oh sorry, wusste nicht, dass das riesig viel Aufwand bedeutet!!! Also wenn du nochmals lust hast, wäre das ganz super, ansonsten lebe ich mit dem was das Ding ausspuckt!
vielen Dank für deine Mühe!
Gruss, Doris
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Import txt-file"