---

Hallo Zusammen,

wie lässt sich in EXCEL-VBA ein ganze Zeile aus einer ASCII-Datei
einlesen. Mit dem Befehl INPUT kann ich nur ein Charakter nach dem Anderen einlesen. Das geht doch bestimmt einfacher.

Gruss
Walter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
versuchs mal mit...

Dim File as String
Dim FreeFileNr as Integer
Dim Text as String

File = "C:\Temp\MeineDatei.txt"

FreeFileNr = FreeFile

Open File for Input as FreeFileNr

Do Until NextLine = Nothing

   Text = Text & Chr(10) & Nextline

   Line Input #FreeFileNr, NextLine

loop

Damit würdest du wohl die ganze Datei auslesen. Wenn du nur die erste Zeile auslesen möchtest, dann kannst du die Do-Loop Schleife weglassen.

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

[Diese Nachricht wurde von RSchulz am 06. Nov. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
danke für den Tipp.
VBA meckert nothing beim kompilieren an.

Was mache ich denn falsch

Gruss
Walter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Versuchs mal mit...
"" für nothing

ansonsten Google mal nach Open For VB6.0, da solltest du genug finden.

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

[Diese Nachricht wurde von RSchulz am 06. Nov. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Do While Not (EOF(FreeFileNr))

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP