Ciemnawy xmlDocObj Jako XmlDocument = Nic
Próba
xmlDocObj = Nowy XmlDocument
xmlDocObj.Load ("http://client5.google.com/complete/search?hl=en-us&q=pontiac gx&client=ie8&inputencoding=UTF-8&outputencoding=UTF-8")
Ciemnawy nodeList Jako XmlNodeList = xmlDocObj.GetElementsByTagName ("Tekst")
Dla NodeList rzecz Jako XmlElement W nodeList
Debug.Print (item.InnerText)
Następnie
Chwyt wyjątek Jako Wyjątek
MsgBox (msgBox. Wiadomość)
Końcówka Próba
|