Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige