vba - Xmlhttprequest 引发拒绝访问错误

Question

以下 Excel 宏向此网页发出 xmlhttp 请求以在第二阶段检索某些值，直到一段时间之前在 VBA 中都可以正常工作:

Sub WebReq()

Link = "http://it.finance.yahoo.com/q?s=^FCHI&ql=10" & str(rnd())
Set htm = CreateObject("htmlFile")

Set RequestWeb = CreateObject("msxml2.xmlhttp")
With RequestWeb
    .Open "GET", "" & Link & "", False
    .send
    htm.body.innerhtml = .responsetext
End With

End Sub

现在，相反，在调用方法时:

    .send

对象 msxml2.xmlhttp 引发以下错误:

Run-time error '-2147024891 (80070005)'
Access is denied. 

我一直在网上寻找，但从未回答过所有类似的问题。任何人都可以向我解释这个错误是什么意思，如果有什么办法可以修复它，甚至只是解决它？

备注 :变量“Link”末尾的随机字符串已被添加以强制页面重新加载，因为脚本正在检索实时值，因此每次都应加载。

附加信息 :在寻找解决方案时，我现在注意到，即使我结束运行并再次重新启动，链接的随机部分也始终产生相同的值:

Link = http://it.finance.yahoo.com/q?s=^FCHI&ql=10 .7055475

为什么会这样？不应该 rnd()每次调用都会产生一个介于 0 和 1 之间的新随机值？

Answer 1

用

CreateObject("MSXML2.ServerXMLHTTP.6.0") 

从本地计算机发出的标准请求禁止访问不受 IE 信任的站点。 MSXML2.ServerXMLHTTP.6.0是服务器端对象，不执行这些检查。