Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textdatei in Tabelle einlesen

Textdatei in Tabelle einlesen
20.10.2004 09:20:13
Harald
Hallo liebe Excelgemeinde
Habe in der Recherche einen sourcecode gefunden, der eine Textdatei einliest.
dieser funktioniert zwar zum einlesen in den Direktbereich vom VBA-Editor. Ich möchte jedoch die Daten in eine Tabelle schreiben.
hab schon einiges ausprobiert,jedoch steh ich mächtig auf der Leitung.
könnte mir hier jemand weiterhelfen.
hier mal der Code:

Sub DateiLesen()
Dim Zeile As String
Dim r As Long, i As Long
Open "C:\Ausgabe.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Zeile
Debug.Print Zeile
Loop
Close #1
End Sub

DANKE
Harald
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei in Tabelle einlesen
Reinhard
Hi Harald,

Sub DateiLesen()
Dim Zeile As String, zei As Long
Close
zei = 1
Open "C:\Ausgabe.txt" For Input As #1
While Not EOF(1)
Input #1, Zeile
Cells(zei, 1) = Zeile
Wend
Close #1
End Sub

Gruß
Reinhard
AW: Textdatei in Tabelle einlesen
20.10.2004 09:41:14
Harald
Hallo
das ging aber schnell.
hab deinen Code probiert.
er schreibt mir zwar in die Tabelle,jedoch nur einen Datensatz.
ist es möglich das der Fehler in der Textdatei zu suchen ist?
eingelesen wird nur der letzte Datensatz und da nur die letzen 4 Spalten von 14
als Spalten zähle ich Daten die mit einem Semikol getrennt sind
Anzeige
Sorry
Reinhard
Hi Harald,
mein Fehler, hatte vergessen zei zu erhöhen.

Sub DateiLesen()
Dim Zeile As String, zei As Long
Close
zei = 1
Open "C:\Ausgabe.txt" For Input As #1
While Not EOF(1)
Input #1, Zeile
Cells(zei, 1) = Zeile
zei=zei+1
Wend
Close #1
End Sub

Gruß
Reinhard
Anzeige
AW: Sorry
20.10.2004 10:04:28
Harald
Hallo Reinhard
da brauchst du dich nicht zu entschuldigen. Ich bin ja schon froh wenn sich meiner wer annimmt
jetzt funzt es schon fast.
das einzige was es noch nicht tut ist das es die Zeile die eingelesen wird in spalten auftelt.
darunter verstehe ich es soll bei einem Trennzeichen [Semikol] eine neue spalte anfengen.
aber ich glaub mit ein bischen Geduld werd ich das schon schaffen.
Danke
Harald
Anzeige
Daten--->Text in Spalten o.w.T.
Reinhard
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige