MSXML2.XMLHTTP-Objekt parsen/ GetElementByID

Hallo VBA-Gemeinde.
Ich muss eine Intranetseite auslesen. Leider sind 'Alerts' eingebaut, sodass der direkte Weg über das Webbrowser-Objekt nicht geht. Im Forum wurde mir mit nachfolgenden Zeilen geholfen .... nur kann ich jetzt nicht mehr parsen.
Im Webbrowser ist es möglich per GetElementByID zügig in die Nähe der gewünschten Info zu springen und danach in einer kleinen Schleife an's Ziel zu kommen. Alles zu Fuß zu erledigen dauert zu lange.
Hat ein XMLHTTP-Objekt eine ähnliche Möglichkeit?
Hier der 'neue' Lösungsansatz:

Sub b()
Dim objXMLHTTP As Object
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.Open "GET", "https://www.google.de", False
objXMLHTTP.send
If objXMLHTTP.Status = 200 Then
Debug.Print objXMLHTTP.Responsetext
End If
Set objXMLHTTP = Nothing
End Sub

Hier das 'Alert'-Problem, das Minibeispiel der html-Seite:
#
#alert('Testing');
#
Gruß, Arthur

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub b() Dim objXMLHTTP As Object, IEApp As Object Dim strTemp As String, strInhalt As String Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", "https://www.google.de", False objXMLHTTP.send If objXMLHTTP.Status = 200 Then strInhalt = objXMLHTTP.Responsetext strTemp = "C:\temp\temp.htm" 'anpassen Open strTemp For Output As #1 Print #1, Replace(strInhalt, "alert", "arthur=") Close Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate strTemp Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Document.ReadyState = "complete" 'auswerten Set IEApp = Nothing Kill strTemp End If Set objXMLHTTP = Nothing End Sub

Sub b() Dim objXMLHTTP As Object, strInhalt As String Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", "https://www.google.de", False objXMLHTTP.send If objXMLHTTP.Status = 200 Then strInhalt = objXMLHTTP.Responsetext With Me.WebBrowser1 .Navigate "about:blank" Do DoEvents Loop Until .Busy = False .Document.body.innerhtml = strInhalt 'oder '.Document.body.innerhtml = Replace(strInhalt, "alert", "arthur=") End With End If Set objXMLHTTP = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

MSXML2.XMLHTTP-Objekt parsen/ GetElementByID

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MSXML2.XMLHTTP-Objekt parsen/ GetElementByID

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread