Вероятно, самый легкий подход - это использовать библиотеку MSXML.
Ваш код будет выглядеть следующим образом:
Dim objXML As Object
Dim strSymbol As String
Dim strURL As String
Dim strWFormat As String
Set objXML = CreateObject("MSXML2.XMLHTTP")
strURL = "http://ca.finance.yahoo.com/d/quotes.csv?s="
strWFormat = "&f=sl1d1t1c1ohgv&e=.csv"
strSymbol = "MSFT"
objXML.Open "GET", strURL & strSymbol & strWFormat, False
objXML.Send
Debug.Print "Symbol = " & Split(objXML.ResponseText, ",")(0)
Debug.Print "Trade = " & Split(objXML.ResponseText, ",")(1)
Debug.Print "Date = " & Split(objXML.ResponseText, ",")(2)
Вышеприведенное относится к веб-службе котировки акций Yahoo и возвращает CSV,но объект xml доволен данными xml.
Итак, этот подход хорошо работает для большинства веб-служб.