.txt Datei lesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Baba,
mit folgendem Makro kannst du die Daten aus der Datei auslesen und in Excel eintragen.
Wichtig ist, dass die Worte "Alter" bzw. "Abschluss" und der Doppelpunkt (:) in den Zeilen jedes Datensatzes vorkommen.
Den Namen des Tabellenblatts, die Spalten und die Zeile1 muss du ggf. noch anpassen.
Gruß
Franz


Sub Gruppe1Auslesen()
Dim strDatei, strText$, ff As Byte
Dim wks As Worksheet, lZeile1&, lZeile&, iSpAlter%, iSpAbschluss%
strDatei = Application.GetOpenFilename(FileFilter:="Alle(*.*),*.*", Title:="Bitte Textdatei  _
auswählen")
'strDatei = "C:\Test\Gruppe1.txt"
If strDatei = False Then GoTo Ende
Set wks = Worksheets("Tab1")
lZeile1 = 2 '1. zeile für Dateneinträge
lZeile = lZeile1
iSpAlter = 4
iSpAbschluss = 5
ff = FreeFile
Open strDatei For Input As #ff
Do Until EOF(ff)
Line Input #ff, strText
If InStr(1, strText, "Alter") > 0 Then
wks.Cells(lZeile, iSpAlter).Value = _
Val(Trim(Mid(strText, InStr(1, strText, ":") + 1, Len(strText) - InStr(1, strText, ":")  _
- 5)))
End If
If InStr(1, strText, "Abschluss") > 0 Then
wks.Cells(lZeile, iSpAbschluss).Value = Trim(Mid(strText, InStr(1, strText, ":") + 1))
lZeile = lZeile + 1
End If
Loop
Close #ff
Ende:
Set wks = Nothing
End Sub

Hallo Franz,
Ich habe gestern und noch heute versucht den Code auszuführen.
Es hat nicht geklappt.
Vielleicht habe ich auch einen Fehler gemacht?
So bin ich vorgegangen:
in der 4.zeile habe ich als Title:Gruppe1.doc angegeben(das ist die Word Datei)
dann in der 5.Zeile den Pfad wo diese datei zu finden ist und der Heisst H:\Gruppe1.doc
Als wks habe ich auch tab1 genommen.Sonst hae ich alles so gelassen und nur noch eine Leerstelle vor dem "_" in der 4.Zeile gelöscht.
das ganze habe ich dann als Code in tab 1 Allgemeine eingefügt.
Wenn ich dass ausführen möchte öffnet sich H:\ aber mit dem Überschrift Gruppe1.
Was habe ich falsch gemacht?
Gibt es auch eine Möglichkeit diese über eine Button"Daten holen"(Userform) zu machen.
Ich häte gern beide Möglichkeiten.Wenn es nicht zu viel verlangt und leicht zu realisieren ist.
Danke sehr für deine Verfügbarkeit.
baba

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

.txt Datei lesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread