从vba执行隐藏的http-request

Question

我想从MS-access执行一个隐藏的HTTP-GET请求，尽可能简单，不需要任何额外的库/组件。

只需简单地声明所有需要的内容。

WinHttp离开大楼了吗？？

Answer 1

这里有一个关于这方面的great page。

Answer 2

希望这能有所帮助

 Dim xhr As Object
 Dim webServiceURL As String
 Dim actionType As String
 Dim thisRequest As String
 Dim targetWord As String

 WebServiceURL = "http://services.aonaware.com/DictService/DictService.asmx/"
 actionType = "Define?word="
 targetWord = "Marketplace"
 thisRequest = webServiceURL & actionType & targetWord

 'use late binding
 Set xhr = CreateObject("Microsoft.XMLHTTP")  

 xhr.Open "GET", thisRequest, False
 xhr.Send

 If xhr.status = 200 Then
   Debug.Print xhr.responseText
   MsgBox xhr.getAllResponseHeaders
 Else
   MsgBox xhr.status & ": " & xhr.statusText
 End If

 Set xhr = Nothing