Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

WinHttpRequest Demo

Sub QuerybyAuthor()     Dim ws As Worksheet     Dim whr As New WinHttpRequest     Dim lobj As ListObject     Dim nCount As Integer     Dim objSelected As Object     Dim sURI As String     Set objSelected = Selection     Set ws = Worksheets("Sheet1")     Set lobj = ws.ListObjects(1)     Application.Cursor = xlWait     sURI = "http://xml.amazon.com/"     whr.Open "GET", sURI     whr.Send     ActiveWorkbook.XmlMaps(1).ImportXml whr.ResponseText     Application.Cursor = xlDefault End Sub