E ai pessoal, sou novo aqui, agora faço parte desta equipe. Segue um codigo que acredito que vai ajudar algumas pessoas, qualquer duvida posta ai.
Primeiro, adicione a referência Microsoft XML, v6.0.
Private Sub cbBusca_Click()
Dim obj As MSXML2.ServerXMLHTTP
Dim objLerXml As MSXML2.DOMDocument
Set obj = New MSXML2.ServerXMLHTTP
Set objLerXml = New MSXML2.DOMDocument
'query_string
url = "http://republicavirtual.com.br/web_cep.php?cep=" & txtCEP & "&formato=XML"
obj.open "GET", url
obj.send
'se ocorreu um erro HTTP
If obj.Status >= 400 And obj.Status <= 505 Then
MsgBox "Erro Ocorrido : " & obj.Status & " - " & obj.statusText
Exit Sub
Else
objLerXml.loadXML (obj.responseText)
End If
Set VB_RESULT = objLerXml.selectSingleNode("//resultado")
If VB_RESULT.Text <> 0 Then
Set VB_UF = objLerXml.selectSingleNode("//uf")
Set VB_CIDADE = objLerXml.selectSingleNode("//cidade")
Set VB_BAIRRO = objLerXml.selectSingleNode("//bairro")
Set VB_RUA = objLerXml.selectSingleNode("//tipo_logradouro")
Set VB_LOGRADOURO = objLerXml.selectSingleNode("//logradouro")
txtUf.Text = VB_UF.Text
txtCidade.Text = VB_CIDADE.Text
txtBairro.Text = VB_BAIRRO.Text
txtLogradouro.Text = VB_RUA.Text & " " & VB_LOGRADOURO.Text
Else
MsgBox "Serviço indisponível - cep inválido"
End If
End Sub
Question
InfoCidreira 0
E ai pessoal, sou novo aqui, agora faço parte desta equipe. Segue um codigo que acredito que vai ajudar algumas pessoas, qualquer duvida posta ai.
Primeiro, adicione a referência Microsoft XML, v6.0.
Edited by kuroiAdicionar tag CODE
Link to post
Share on other sites
14 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.