Excel 使用VBA绕过网站的安全证书警告

我通过VBA访问网站。此网站具有安全证书

有没有办法通过这个警告直接进入网页

Sub Certificate()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

With IE

    .Visible = True
    .navigate ("Website URL")

    While IE.ReadyState <> 4
        DoEvents
    Wend

    {Application.Wait (Now + TimeValue("0:00:05"))}--Optional

    'This is the security certificates webpage HTML
    'This clicks the not recommended but continue to website button
    IE.document.getElementsByName("overridelink").Item.Click

End With

End Sub

给我一个

运行时错误'91'

此代码在安全证书警告弹出时起作用，但它并不总是弹出并直接进入网站，这给了我该错误

我已经进入了internet选项，检查了所有可能导致该警告的内容，并将其添加到受信任的站点。

小心！节约使用

如果IE.document.getElementsByNameoverridelink.Item.Click行出现错误的唯一原因是您不需要它，则可以使用以下方法：

On Error Resume Next
IE.document.getElementsByName("overridelink").Item.Click
On Error Goto 0

而不是：

IE.document.getElementsByName("overridelink").Item.Click

小心！请阅读以下内容：

确保在要忽略错误的部分之后直接包含On Error Goto 0行，因为该行将错误行为重置为默认。否则，On Error Resume Next将屏蔽其后面代码中的任何和所有其他错误。这可能会导致代码出现重大问题，并会无缘无故地产生意外结果和/或尝试对有问题的代码进行故障排除

另一个问题：如果跳过附带代码的错误由于意外原因出错，则除非在代码中设置更详细的错误捕获部分，否则无法捕获此错误

IE.document.getElementsByName("overridelink").Item.Click