Office: (Office 2016) Excel VBA Daten aus HTML Website laden ohne CreateObject("InternetExplorer.Applicatio

Hi,

versuche Daten aus einer HTML Website zu laden. Leider kann ich diese nicht im Internet Explorer laden.

Nun such ich ein Makro was die Daten ohne Internet Explorer laden kann.

Benötige die Daten mit den blauen Rechtecken, von allen 4 Bereichen.

Schaffe es aber nicht sie anzusprechen.

Sub Extract_data()

Dim url As String, links_count As Integer
Dim i As Integer, j As Integer, row As Integer
Dim XMLHTTP As Object, html As Object
Dim tr_coll As Object, tr As Object
Dim td_coll As Object, td As Object

links_count = 1
For i = 0 To links_count

url = "beispielseite"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", url, False
XMLHTTP.send

Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.responseText

Set tbl = html.getElementsByTagName("location-container")

Set tr_coll = tbl(0).getElementsByTagName("TD")

For Each tr In tr_coll
j = 1
Set TD_col = tr.getElementsByTagName("TD")

For Each td In TD_col
Cells(row + 1, j).Value = td.innerText
j = j + 1
Next
row = row + 1
Next
Next

MsgBox "Done"
End Sub


Danke & Gruß
Silent