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

Question

是否有可能连接到Web服务(例如发送一个HTTP请求)通过VBA 在 Microsoft Access中？例如,用户单击表单上的按钮,然后将HTTP请求发送到响应的Web服务OK.

有没有人这样做过？

注意:VBA,而不是VB.NET.

Answer 1

这是我在Access 2003中非常成功使用的代码.它是来自interwebs,很久以前复制和重新复制.它创建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编辑器中,转到"工具">"参考").