使用 VBA 连接到 MS Access 中的 Web 服务

是否可以通过 VBA 连接到 Web 服务（例如发送 HTTP 请求）in微软访问？ 例如，用户单击表单上的按钮，然后将 HTTP 请求发送到 Web 服务，该服务以OK.

以前有人这样做过吗？

注意：VBA，而不是 VB.NET。

这是我在 Access 2003 中非常成功地使用的代码。它来自互联网，很久以前就复制和重新复制过。它创建了一个XMLHttpRequest 对象，发送 HTTP GET 请求，并以字符串形式返回结果。

Public Function http_Resp(ByVal sReq As String) As String

    Dim byteData() As Byte
    Dim XMLHTTP As Object

    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")

    XMLHTTP.Open "GET", sReq, False
    XMLHTTP.send
    byteData = XMLHTTP.responseBody

    Set XMLHTTP = Nothing

    http_Resp = StrConv(byteData, vbUnicode)

End Function

sReq 是 URL；该函数返回响应。您可能需要确保在引用下启用 ActiveX 数据对象（在 VBA 编辑器中，转到工具 > 引用）。