VBA：安全通道支持发生错误

Question

我在 VBA 中有一段代码，它可以完美运行很长时间。突然它无缘无故地停止工作。我这边什么都没有改变。

我用它来下载网页并将它们存储在这样的字符串中：

Function something() As String
URL = "www..."
Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
XMLHTTP.Open "GET", URL, False
XMLHTTP.send
something = XMLHTTP.responseText
End Function

在 XMLHTTP.send 我收到以下错误： 运行时错误“-2147012739（80072f7d）”：安全通道支持中发生错误

这个错误的含义是什么，可以做什么？

我试着阅读它，但它似乎是一个通用错误，可能有很多东西。也许微软改变了一些协议或类似的东西？

Answer 1

我有同样的错误：6/30/2018

我在 Windows 7 上运行 Excel，

在 Mac 上，在 Parallels 中。

这是一个非常简单的修复。

转到控制面板，

单击网络和 Internet，

单击网络和共享中心，（在左下角单击 Internet 选项）

将出现 Internet 属性对话框，单击高级选项卡

滚动到底部并打开“使用 TLS1.2”（我的在收到错误之前已经设置）单击应用

这是正确的 Windows 操作系统更新文件所需的下载链接：http : //www.catalog.update.microsoft.com/search.aspx?q=kb3140245

我从 Windows 资源管理器（文件管理器）下载并安装了 UpDate 重新启动了 Windows

并运行 VBA。它完美运行

感谢 Srinath Gudimetla，请参阅下面的链接以获取完整详细信息：https ://www.linkedin.com/pulse/working-vba-tls-protocol-srinath-gudimetla