HTTPS证书错误excel VBA

试图查看旧的问题，但无法find我正在寻找的答案。

我正在试图制作一个电子表格，可以自动刮除我们打印机中的墨粉量 – 但是，存在证书错误。

IE（和Excel / VBA）不是发布网站，而是显示cert.error HTML。

我怎样才能绕过这个？ 这是不可能的网站添加到受信任的网站 – VBA可以以某种方式忽略错误，或者我可以使VBA按标签，进入？ 我试图使用下面的代码，但没有运气。

Enum readystate READYSTATE_UNINITIALIZED = 0 READYSTATE_LOADING = 1 READYSTATE_LOADED = 2 READYSTATE_INTERACTIVE = 3 READYSTATE_COMPLETE = 4 End Enum Sub ImportPrinterData() Dim ie As InternetExplorer Dim html As HTMLDocument Set ie = New InternetExplorer ie.Visible = False ie.navigate "https://to-port3-hp1c/" Do While ie.readystate <> READYSTATE_COMPLETE Application.StatusBar = "Venter på printer data ..." DoEvents Loop Set html = ie.document Application.SendKeys "{tab 7}", True Application.SendKeys "{return}", True MsgBox html.DocumentElement.innerHTML Set ie = Nothing Application.StatusBar = "" End Sub