Altere o trecho conforme abaixo:
'define XML and HTTP components
Dim googleResult As New MSXML2.DOMDocument60
Dim googleService As New MSXML2.XMLHTTP60
Dim oNodes As MSXML2.IXMLDOMNodeList
Dim oNode As MSXML2.IXMLDOMNode
Obs.: Em referencias certificar que Microsoft Xml,v6.0 (msxml6.dll) esteja habilitada
Ao informar o endereço na planilha cad Cliente, não utilize acentos ou caracteres não reconhecidos pelo sistema americano (por exemplo ç "c cedilha")
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/05/2016 5:58 am