MSXML2.XMLHTTP响应文本与URL上的http匹配（Excel VBA）

Question

我正在尝试编写一些强力代码，以便使用VBA从FedEx获取送货状态。示例网址为：https://www.fedex.com/apps/fedextrack/?action=track&tracknumbers=852426136339213

使用VBA我使用以下方式将页面作为字符串拉入

Sub Test()

strurl = "https://www.fedex.com/apps/fedextrack/?action=track&tracknumbers=852426136339213"

Set xmlhttp1 = CreateObject("MSXML2.XMLHTTP")
xmlhttp1.Open "GET", strurl, False
xmlhttp1.Send

 'Wait for request to finish
Do While xmlhttp1.readyState <> 4
    DoEvents
Loop

a = xmlhttp1.responsetext

'Just so I can see the result
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.CreateTextFile("C:\DeleteMe.txt")

oFile.Write a

oFile.Close

Set xmlhttp1 = Nothing

End Sub

当我在浏览器中提取此链接时滚动HTML时，我可以找到跟踪号和状态，但这并不存在于xmlhttp1.responsetext中。

为什么它没有通过，有没有人知道如何获得这个？

提前致谢。