Example of how to call a web service from VBA

[TomCon]

I wonder if anybody has a short, clear example of this available that you could post? Including all the frills like what references must be made in VBA project, etc. Would prefer not to have fancy toolkit with proxy classes, as i know the service URL and method signitures (no WSDL needed to generate it). Also i can easily generate the XML formatted request text myself, So, what i need to know is how to do the POST, and receive the XML answer back.

Thanks,
tom

 

[John_w]

At its simplest, something like:

Sub xp()

    Dim XMLHttp As New MSXML2.XMLHttp

    XMLHttp.Open "POST", "http://www.your.url/page.xxx", False
    XMLHttp.send "your post data"
    MsgBox XMLHttp.responseXML

End Sub

You need a reference to Microsoft XML, v6.0. See http://www.tushar-mehta.com/publish_train/xl_vba_cases/vba_web_pages_services/#_Toc173749360 for more.

 

[TomCon]

This is absolutely great, thanks. I"ve played with it a bit, but don't seem to be able to get the packet to send quite right, so if somebody finds this easy to tell me, would appreciate it.

Rather than POST, wanted to use a GET. The web site for the web service (http://gisdata.usgs.net/XMLWebServices2/Elevation_Service.asmx?op=getElevation )provides this documentation, example of the GET:


GET /XMLWebServices2/Elevation_Service.asmx/getElevation?X_Value=string&Y_Value=string&Elevation_Units=string HTTP/1.1
Host: gisdata.usgs.net

So, i tried this:
XMLHttp.Open "GET", getText, False
XMLHttp.send

(Values used for "string", X=-114.335599, Y=48.493916 Unit=METERS)
But, i tired various content of getText, but cannot get one that works? Does anybody understand that documentation well enough to form the exact text string to send?

Thanks!












</PRE>














</PRE>