如果要在DHL追蹤網站, 查詢某貨物單號, 預計何時到貨?
網址:https://mydhl.express.dhl/tw/zh/tracking.html#/results?id=4520641915
測試單號:4520641915 (其他測試單號:5385263343)
想要回寫查詢結果彙總到Excel
目前以下程式碼不知哪邊還有問題?(不知道如何抓div的網頁資料) 請高手指教!!
Sub Air_DHL()

Dim url As String
Dim MoXML As Object
Dim MoHtml As Object

url = "https://mydhl.express.dhl/tw/zh/tracking.html#/results?id=4520641915"

Set MoXML = CreateObject("WinHttp.WinHttpRequest.5.1")
Set MoHtml = CreateObject("Htmlfile")

With MoXML

    .Open "GET", url, False
    .send
    
    MoHtml.body.innerHTML = .responseText
    
    Set span = MoHtml.getElementsByTagName("div")
    Sheets("Air_Tracking").Cells(1, 4) = span.innerText
    
    MoHtml.Quit
    
End With

End Sub