使用 VBA 从 Word 发送 HTTP 请求

Question

我正在尝试将 Word 文档中的数据发送到网页。我找到了一些代码，将其粘贴到新模块中并保存。当我运行它时，我收到“编译错误，用户定义的类型未定义”

我的代码：

Sub http()

  Dim MyRequest As New WinHttpRequest

    MyRequest.Open "GET", _
    "http://www.google.com"

    ' Send Request.
    MyRequest.Send

    'And we get this response
    MsgBox MyRequest.ResponseText

End Sub

Answer 1

避免选择库的潜在替代方法是使用对象，即

Sub http()
Dim MyRequest As Object

    Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    MyRequest.Open "GET", _
    "http://www.google.com"

    ' Send Request.
    MyRequest.Send

    'And we get this response
    MsgBox MyRequest.ResponseText

End Sub

Answer 2

您需要在 VBA 项目中设置对 Microsoft WinHTTP Services 的引用（工具 -> 引用）。

它看起来像这样：

另外，您可以阅读有关 Microsoft WinHTTP 的更多信息服务版本 5.1 此处。

Answer 3

您将需要更改您的引用（代码窗口中的工具=>引用）。查找 Microsoft WinHTTP Services 版本 5.1（或更高版本）并勾选该框。如果您使用的是Vista和office 2007，您可能还需要先注册。以管理员身份打开命令窗口并粘贴：

>regsvr32.exe "c:\windows\system32\winhttp.dll"

它应该显示它是否有效。