VBA/Excel/Access/Word/File Path/WinHttpRequest

WinHttpRequest Demo

   <source lang="vb">

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.ru/"
   whr.Open "GET", sURI
   whr.Send
   ActiveWorkbook.XmlMaps(1).ImportXml whr.ResponseText
   Application.Cursor = xlDefault

End Sub

</source>