Busca CEP site ViaCEP

Segue um exemplo adaptado para o Access, que realiza a consulta do CEP no site Viacep.com.br.
Mais uma alternativa de busca sem utilizar WebBrowser.

Link: dropbox.com/s/lqtqm4ot7fl943x/TELA%20PESQUISA.png?dl=1


Achei interessante pela facilidade de busca, ja que o site gera um Xml que sera lido e extraido os dados para o sistema dispensando as API's...

Link: dropbox.com/s/kavhnix43xppmou/EXEMPLO%20XML.png?dl=1

Para o Correto Funcionamento deve-se habilitar a referência Microsoft XML, v3.0

Link: dropbox.com/s/w2vfli8fox4d6pz/FUNCAO.png?dl=1


Basta dar uma acessada la no site e verificar os diversos exemplos que tem la...

Download Alternativo: dropbox.com/s/dj5u020rj5y2r5x/BuscaCep%20-%20ViaCep.zip?dl=1

Obs: Copiar e Colar o Link no navegador!

Top !

Fabio meus parabens meu amigo, a muitos anos, tentava uma alternativa para esta busca de cep, sua dica foi sensacional!!!!

Parabéns FabioPaes muito bom este exemplo, extremamente útil e prático!

Muito obrigado!!!!

top!
obrigado

muito bom!!!

Obrigado pela contribuição, me ajudou muito

Obrigado!

excelente exemplo me serviu bastante!

          um abraço.

Maravilha!!! Obrigado por compartilhar esse código muito útil

Obrigado por compartilhar. Muito simples, sem necessidade de instalar complementos, como outros que encontrei.

Olá pessoal,

Em retribuição à contribuição do Fábio Paes, fiz algumas alterações no código e consegui uma melhoria significativa de performance.
Aqui o tempo total da consulta caiu de aproximadamente 3 segundos para aproximadamente 0.008 milisegundos.
As alterações que fiz foram criar uma variável para armazenar o retorno da API e evitar nova chamada em caso de nova consulta para o mesmo CEP e utilizar um objeto MSXML2.XMLHTTP para efetuar a consulta.
Segue o código:

Código:

Option Compare Database
Dim msCepAnterior As String
Dim moXmlDoc As DOMDocument

'--------------------------------------------------------------'
'  Baseado no código extraido do site "site "zeplanilha"  '
' Adaptado por FabioPaes em 25/01/2017                     '
' Adaptado por ValdineiJ em 01/06/2022                       '
'       Para MaximoAccess.com                                      '
'--------------------------------------------------------------'
Function ConsultaCEP(valorcep As String, tipoCampo As String)

    Dim oXmlDoc As DOMDocument
    Dim oXmlNode As IXMLDOMNode
    Dim oXmlNodes As IXMLDOMNodeList
    Dim http As Object

    'Executa a chamada à API caso o CEP seja diferente do anterior
    If valorcep <> msCepAnterior Then
        Set oXmlDoc = New DOMDocument
        oXmlDoc.async = False
        
        Set http = CreateObject("MSXML2.XMLHTTP")
        With http
            .Open "GET", "https://viacep.com.br/ws/" + valorcep + "/xml/", False
            .send
        End With

        oXmlDoc.LoadXML (http.responseText)
        'Armazena o resultado da consulta  nas variaveis do modulo
        Set moXmlDoc = oXmlDoc
        msCepAnterior = valorcep
    Else
        Set oXmlDoc = moXmlDoc
    End If
    
  'Obtem o resultado solicitado a partir da variável
    Set oXmlNodes = oXmlDoc.SelectNodes("/xmlcep/" + tipoCampo) '
                
    For Each oXmlNode In oXmlNodes
        ConsultaCEP = oXmlNode.Text
    Next

End Function


Olá pessoal, gostaria de agradecer aos criadores, adaptadores e melhoradores deste código, apliquei no meu projeto e estou usando, com os devidos créditos é claro...