Excel VBA访问网页以修改值：运行时错误访问被拒绝2147024891（80070005）

我想在Excel和网页之间自动复制信息。为了在StackOverflow得到您的帮助，我终于想出了一些代码，这些代码在我的工作站上运行得非常好。
问题是它在我同事的任何其他电台都不起作用。更奇怪的是，我得到了一个运行时错误，代码试图访问页面的属性。我试图逐行运行代码，以确保不会出现网页未完全加载的问题。
下面是代码的开头，直到给出：运行时错误访问被拒绝2147024891（80070005）

Sub copie_infos_intranet_sur_le_projet（）
我想我会坚持多久
模糊的物体
Dim Doc作为对象
作为对象的模糊对象
作为对象的Dim OBJ集合
作为对象的Dim Button集合
作为对象的模糊valeur_heure
将链接变暗为对象
lig=ActiveCell.Row
num_proj=单元格（lig，4）
'创建InternetExplorer对象
设置IE=CreateObject（“InternetExplorer.Application”）
'您可以取消注释下一行以查看表单结果
可见=真实
'将表单数据作为POST二进制请求发送到URL
即“导航”http://intranet.cima.ca/fr/application/paq/projets/index.asp?v1_lang=1"
“等一下，我正在装货。。。
'在IE.Busy或IE.ReadyState ReadyState_完成时执行：执行事件：循环
'当IE.Busy或IE.ReadyState ReadyState\u完成时
“事件：
“温德
趁我忙
事件：
温德
Set links=IE.Document.frames（2.Document.getElementsByTagName（“输入”）

当然，下面还有更多的代码，但正如我所说，我在这一行得到了运行时错误

正如我所说，在我的工作站上一切正常，我没有任何“安全特权”，所以我不会第一次猜测为什么它只在我的工作站上工作

那么问题出在哪里呢

---

任何建议/解决方案都将受到极大的欢迎

我也有同样的问题。前一天工作正常，第二天“访问被拒绝”。。。在另一个CPU上，它工作正常。有点神秘，非常令人讨厌

我已经能够让它再次工作： -正在清除SSL状态， -将隐私设置设置为“低”和“低” -在高级选项中启用SSL 2.0（如果未选中）

---

希望这对您有所帮助。

这可能是一本有趣的读物。我担心你的同事没有同样的互联网自动化接入内联网。这个问题可能有点神秘，我甚至让它莫名其妙地出现然后消失（至少莫名其妙，因为我无法可靠地解释或复制它）。取一台不工作的机器，然后打开IE

Alt

，Tools► 互联网选项► 内容► 清除SSL状态。如果能报告成功或失败，我将不胜感激，因为我希望找到根本原因并准备好解决方案。请确保将您的intranet站点添加到受信任的站点区域，并降低该区域的安全描述符。@matteo&jeeped。我明天早上第一件事就是试试看。我会随时通知你的@这两个建议都没有成功。MatteoNNZ tx提供了这些文章，但我找不到我的设置与我的同事之间的任何差异。谢谢你的帮助。还有什么建议吗？有人，有人？Tx in Advanced将尽快考虑您的建议。Tx Marcel，会让你知道它是否有效，但这也没有什么好运气。谢谢你的建议@Marcel。如果我有足够的分数我会悬赏这个。。。

Sub copie_infos_intranet_sur_le_projet()

Dim i As Long
Dim IE As Object
Dim Doc As Object
Dim objElement As Object
Dim objCollection As Object
Dim buttonCollection As Object
Dim valeur_heure As Object
Dim links As Object

lig = ActiveCell.Row
num_proj = Cells(lig, 4)

' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")

' You can uncoment Next line To see form results
IE.Visible = True

' Send the form data To URL As POST binary request
IE.Navigate "http://intranet.cima.ca/fr/application/paq/projets/index.asp?v1_lang=1"

' Wait while IE loading...
'do while IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: Do Events: Loop

'While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
'    DoEvents:
'Wend
While IE.Busy
    DoEvents:
Wend

 Set links = IE.Document.frames(2).Document.getElementsByTagName("input")