使用 VBA for Excel 的 HTTPS POST 请求

Question

我使用“WinHttp.WinHttpRequest.5.1”从 Excel 中的 VBA 发送 HTTP POST 请求。 但我无法对 HTTPS 执行此操作，因为我收到了 SSL 证书错误。

您将使用什么 VBA 代码来协商从 Excel 中的 VBA 到网站的 SSL 连接？

Answer 1

WinHttpRequest 对象有一个 SetClientCertificate 方法。 尝试从 MSDN 获取此代码示例（我尝试将其改编为 VBA）：

' Instantiate a WinHttpRequest object. '
Dim HttpReq as new ActiveXObject("WinHttp.WinHttpRequest.5.1")

' Open an HTTP connection. '
HttpReq.Open("GET", "https://www.test.com/", false)

' Select a client certificate. '
HttpReq.SetClientCertificate("LOCAL_MACHINE\Personal\My Certificate")

' Send the HTTP Request. '
HttpReq.Send()

Answer 2

虽然我没有使用 COM 组件 (WinHttpRequest)，但似乎您需要调用 SetClientCertificate 在调用发送之前，按照链接。

这有帮助吗？

Answer 3

我有同样的情况（从Excel中的VBA发送http请求）； 我创建了三个对象：

Set HttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") 

--用于http请求类，

Set fsobj = CreateObject("Scripting.FileSystemObject")
Set txtobj = fso.OpenTextFile("C:\PKCERT.PEM")

--将证书内容放入变量中，将其传递给HttpReq.SetClientCertificate，

certificate_data = txtobj.ReadAll
HttpReq.SetClientCertificate (certificate_content)

这样我就可以发送包含其公钥的请求证书，像往常一样，

HttpReq.Send

PS我在 http://www.808.dk/?code 找到了一个脚本-simplewinhttprequest——在我的情况下效果很好，希望在你的情况下也能正常工作。