3

Estou desenvolvendo uma solução e surgiu a necessidade de acrescentar a pesquisa de CEP. De retorno gostaria de obter o endereço com base no CEP informado. Pretendo usar essa pesquisa para preenchimento de endereço automático apos informar o CEP.

Comecei a escrever o código abaixo mas parei nisso.

Sub lsPesquisaCEP(ByVal sCEP As String)
    On Error GoTo TratarErro

    Range("Consulta!a1:H1").Clear

    If sCEP <> "" Then
        With ActiveWorkbook.XmlMaps("webservicecep_Mapa")
            .ShowImportExportValidationErrors = False
            .AdjustColumnWidth = True
            .PreserveColumnFilter = False
            .PreserveNumberFormatting = False
            .AppendOnImport = False
        End With
        ActiveWorkbook.XmlImport URL:= _
            "http:/republicavirtual.com.br/web_cep.php?cep=" & sCEP, ImportMap:= _
            Nothing, Overwrite:=False, Destination:=Range("Consulta!$a$1")


    End If

    Calculate

Sair:
    Exit Sub
TratarErro:
    MsgBox "CEP não cadastrado!"
    GoTo Sair
    Resume
End Sub

Dá sempre como CEP não cadastrado!

1

1 Resposta 1

4

Quando você informa a URL está faltanto um "/" depois de "http:"

"http://republicavirtual.com.br/web_cep.php?cep="
1
  • Poxa...Era isso mesmo! Muito Obrigado pela ajuda amigo!!!
    – Bean
    7/08/2018 às 19:06

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .