Excel VBA访问Web页面修改值：运行时错误访问被拒绝2147024891（80070005）
我想自动化Excel和Web页面之间的信息复制。 Tx在StackOverflow帮助你，我终于想出了一些在我的站上完美工作的代码。
问题是在同事的任何其他站点上都不行。 更奇怪的是，我得到一个运行时错误，只要代码试图访问页面的属性。 我试图逐行运行代码，以确保它不是一个网页没有完全加载的问题。
所以这是代码的开始，直到它给出：运行时错误访问被拒绝2147024891（80070005）
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") 当然，下面还有更多的代码，但正如我所说，我在这一行得到运行时错误？
正如我所说，在我的车站一切正常，我没有任何“安全特殊级别的特权”，所以这不是我的第一个猜测，为什么它只能在我的车站工作。
那么可能是什么问题呢？
任何build议/解决scheme将大大appreaciated
我有同样的问题。 有一天它工作的很好，第二天，“访问被拒绝”……而在另一个CPU上工作的很好。 有点神秘，非常讨厌！
我已经能够使其再次运行： – 清除SSL状态， – 将隐私设置设置为低，以及 – 在高级选项中启用SSL 2.0（如果未选中）。
希望这对你有帮助。