Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

IE Quellcode in Variable

IE Quellcode in Variable
15.11.2017 08:50:25
Christoph
Hallo,
melde mich seit langen mal wieder.
Ist es möglich diesen Quellcode der Seite :
http://www.ebay.de/sch/rss/?_nkw=9783507026599&_rss=1
in eine Variable zu speichern?
Der Weg funktioniert nicht:
strInhalt(ü) = appIE(ü).document.DocumentElement.outerHTML
Kommt immer Objekt unterstützt diese Aktion nicht.
Gruss
Christoph

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das ist ein RSS Feed
15.11.2017 11:57:20
Zwenn
Hallo Christoph,
Du versuchst eine Seite auszulesen, die kein HTML enthält. Deshalb funktionieren die HTML-Werkzeuge auch nicht. Ich weiß zwar nicht, warum Du einen RSS Feed nicht einfach mit einem RSS Reader ausliest, aber folgendermaßen bekommst Du den Quelltext in eine String-Variable:

Option Explicit
Sub RRS_Zu_Variable()
Dim knotenAst As Object
Dim quelltext As String
Set knotenAst = CreateObject("Msxml2.XMLHTTP")
If Not knotenAst Is Nothing Then
knotenAst.Open "POST", "http://www.ebay.de/sch/rss/?_nkw=9783507026599&_rss=1", False
knotenAst.setRequestHeader "Content-Type", "content=text/rss; charset=UTF-8"
knotenAst.send
quelltext = knotenAst.responseText
End If
MsgBox quelltext
Set knotenAst = Nothing
End Sub
Die Ausgabe am Ende in die MessageBox zeigt nicht den ganzen Quelltext an. Wenn Du ihn aber z.B. in eine Zelle ausgibst, siehst Du, dass die Variable quelltext alles enthält.
Viele Grüße,
Zwenn
Anzeige

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige