使用excelmacros覆盖IE web证书错误

如何超出证书错误信息并单击“继续访问本网站（不推荐）”链接。 与一个Excelmacros。

请find我创build的代码，

Sub Cert_error() Dim MyHTML_Element As IHTMLElement Dim MyURL As String On Error GoTo Err_Clear MyURL = "https://cacert.org/" 'or you can use "https://www.pcwebshop.co.uk/" Set MyBrowser = New InternetExplorer MyBrowser.Silent = True MyBrowser.navigate MyURL MyBrowser.navigate MyURL MyBrowser.Visible = True For Each MyHTML_Element In HTMLDoc.getElementsByTagName("img") If MyHTML_Element.ID = "overridelink" Then MyHTML_Element.Click: Exit For Next Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If End Sub 

并请find下面的HTML标签

 <tr> <td>&nbsp;</td> <td align="left" id="continueToSiteAlign" aria-labelledby="continueToSite" valign="middle"> <h4 id="continueToSite"> <img class="actionIcon" id="ImgOverride" alt="Not recommended icon" src="red_shield.png" border="0"><a name="overridelink" id="overridelink" href="https://cacert.org/">Continue to this website (not recommended).</a> </h4> </td> </tr> 

请让我知道，如果我们可以点击该链接，并进入使用Excelmacros的网站。

提前致谢。