AW: Daten laden von Website mit JavaScript
23.08.2018 14:20:01
Website
Hi Zwenn,
danke für die Erklärungen, nur mein Problem dabei ist, dass ich folgendes Makro versucht habe, er aber meldet "Forbidden" also sowas wie zugriff verweigert. Ebenfalls mit einer Query Connection getestet wo dann dieser Fehler kam:
Note: Since your browser does not support JavaScript, you must press the Resume button once to proceed.
Sub Dow_HistoricalData()
Dim xmlHttp As Object
Dim TR_col As Object, TR As Object
Dim TD_col As Object, TD As Object
Dim row As Long, col As Long
Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
xmlHttp.Open "GET", "https://musterfirma.coupahost.com/receipts?cond%5B1%5D%5Bcol_key%5D= _
order_header_id&cond%5B1%5D%5Border_heade r_id%5D=1372229&cond%5B1%5D%5Border_header_id_op%5D=eq&search_mode=advanced", False
xmlHttp.setRequestHeader "Content-Type", "text/xml"
xmlHttp.Send
Dim html As Object
Set html = CreateObject("htmlfile")
html.body.innerHTML = xmlHttp.responseText
Dim tbl As Object
Set tbl = html.getElementById("curr_table")
row = 1
col = 1
Set TR_col = html.getelementsbytagname("TR")
For Each TR In TR_col
Set TD_col = TR.getelementsbytagname("TD")
For Each TD In TD_col
Cells(row, col) = TD.innerText
col = col + 1
Next
col = 1
row = row + 1
Next
End Sub
Mein Problem ist ja: Ich kann die Verbindung zur Website nicht herstellen, und deswegen auch keine Daten laden. Beide Makros gehen wenn ich manuell die query connection bearbeitet habe mich durch 4 Script Fehlermeldungen gearbeitet habe und dann die Seite im internen IE von Excel geladen habe, dann läd er alles Prima, aber ich bräuchte einen weg, das ich nicht immer manuell die Verbindung bearbeiten und mich durchklicken muss. Deswegen dachte ich das ich irgendwie den Login mit dem Token brauche?
Danke & Gruß
XD