VBA: Inhalt aus HTML oder TXT in Zelle einlesen

Question

Hallo liebes Forum,

wieder mal ein Anliegen:

Ich möchte in eine Zelle (z.B A1) den gesammten Inhalt einer Textdatei oder einer HTML-Datei schreiben lassen. Der Textinhalt ist logischer Weise ein html-Code.

Geht das überhaupt?

Danke Mario

Answer 1

Inzwischen habe ich schon einen Ansatz gefunden, aber es wird nur die letzte Zeile aus der Text-Datei rein geschrieben.

Sub test()

Dim ttxt As String
Open "U:\test\txt\mon-21.2160.txt" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, ttxt
Cells(1, 1) = ttxt
Loop
Close #1

End Sub

Mario

Answer 2

Hallo Mario,

Du musst die eingelesenen Zeilen auch in unterschiedliche Zeilen der Tabelle schreiben:

Sub test()

Dim ttxt As String
Dim NLine As Long

Open "U:\test\txt\mon-21.2160.txt" For Input As #1 ' Datei öffnen.
NLine = 1
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, ttxt
Cells(NLine, 1) = ttxt
NLine = NLine + 1
Loop
Close #1

End Sub

Gruss
Busmaster

Answer 3

Hallo Busmaster,

erst mal Danke, der Code funktioniert prächtig.

Aber hier wird jede Zeile aus der Textdatei in eine separate zeile in der Exceldatei geschrieben.
Der gesammte Text sollte aber in eine Zelle.

Aber es hat mir beim DENKEN sehr geholfen und so habe ich es wie ich es wollte:

Dim a As String, r1 As Range
Open "U:\test\txt\mon-21.2160.txt" For Input As #1
Set r1 = Worksheets("Tabelle1").Range("A1")
While Not EOF(1)
Line Input #1, a
r1 = r1 & a & vbLf
Wend
Close #1

Habe mich vielleicht auch unglücklich ausgedrückt...
Herzlichen Dank Mario