Daten aus Webseiten auslesen mittels Selenium

Sub test () Dim Selenium As New WebDriver Dim url as string url = "https://www.onvista.de/ Selenium.Start "chrome" Selenium.Timeouts.PageLoad = 2000 Selenium.Get url, Raise:=False Set knoten = Selenium.FindElementById("searchValue") knoten.SendKeys ("DE000A1EWWW0") Set knoten = Selenium.FindElementById("siteSearch") knoten.Submit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fennek,
vielen Dank für die Info.
Wie ich sehe kann man XMSXML2.XMLHTTP scheinbar auch als Excel VBA Makro umsetzen, aber leider funktionieren die Funktionen .getElementsByClassName und .getElementsByTagName nicht mehr wie gewünscht.
Wie müsste denn das folgende Skript, welches mit dem Internet Explorer 11 funktioniert mit XMSXML2.XMLHTTP aussehen?


Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub test()
Dim ie As Object
Dim url As String
Dim knoten As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
url = "https://www.onvista.de/"
ie.Navigate url
Do While ie.Busy Or ie.ReadyState  4: DoEvents: Loop
Do While ie.Busy Or ie.ReadyState  4: DoEvents: Loop
Set knoten = ie.Document.getElementByID("searchValue")
knoten.Select
knoten.innerText = "DE000A1EWWW0"
Sleep 2000
Set knoten = ie.Document.getElementByID("siteSearch")
knoten.Submit
Sleep 2000
Set knoten = knoten.getElementsByClassName("FUNDAMENTAL_ANALYSE")
Set knoten = knoten.getelementsbytagname("div")(0)
Set knoten = knoten.getelementsbytagname("table")(0)
Set knoten = knoten.getelementsbytagname("tbody")(0)
Set knoten = knoten.getelementsbytagname("tr")(6)
Set knoten = knoten.getelementsbytagname("td")(0)
Set knoten = knoten.getelementsbytagname("span")(0)
Cells(1, 1).Value = knoten.innerhtml
End Sub

Soweit habe ich es bereits geschafft umzusetzen:


Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub XML()
Dim XMLHTTP As Object
Dim html As Object
Dim url
Dim knoten As Object
Set html = CreateObject("htmlfile")
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
url = "https://www.onvista.de/"
XMLHTTP.Open "GET", "https://www.onvista.de/", False
XMLHTTP.setRequestHeader "Content-Type", "text/xml"
XMLHTTP.Send
html.body.innerhtml = XMLHTTP.ResponseText
Set knoten = html.getElementByID("searchValue")
knoten.Select
knoten.innerText = "DE000A1EWWW0"
Sleep 2000
Set knoten = html.getElementByID("siteSearch")
knoten.Submit
Sleep 2000
Set knoten = knoten.getElementsByClassName("FUNDAMENTAL_ANALYSE")
Set knoten = knoten.getelementsbytagname("div")(0)
Set knoten = knoten.getelementsbytagname("table")(0)
Set knoten = knoten.getelementsbytagname("tbody")(0)
Set knoten = knoten.getelementsbytagname("tr")(6)
Set knoten = knoten.getelementsbytagname("td")(0)
Set knoten = knoten.getelementsbytagname("span")(0)
Cells(2, 1).Value = knoten.innerhtml
End Sub

Bei Set knoten = knoten.getElementsByClassName("FUNDAMENTAL_ANALYSE")
bricht das Programm ab mit Laufzeitfehler 438.
Grüße
Andi

Beliebteste Forumthreads (12 Monate)

Daten aus Webseiten auslesen mittels Selenium

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

193 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Webseiten auslesen mittels Selenium

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

193 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread