Web抓取宏仅在我的计算机上有效

Question

我已经编写了一个宏，该宏刮取了公司的Intranet网站上的数据以填充Excel中的工作表，该工作原理与在计算机上的工作原理相同，但是当我与同事共享该宏时，它会抛出{{1 }}在计算机上的.send行出现错误。

所有安全设置均已就绪，启用的宏之间，我们的计算机之间的引用和版本相同，我们都位于同一网络上，可以访问该站点等。

这是我的代码中用于抓取网站的部分：

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

Answer 1

这可能是一个有约束力的问题。在您的代码中，您正在使用需要项目参考的早期绑定。尝试在声明中使用后期绑定，看看是否有帮助。

Dim XMLPage As New Object: Set XMLPage = MSXML2.XMLHTTP60 
Dim HTMLDoc As New Object: Set HTMLDoc = MSHTML.HTMLDocument