Este fórum está sendo desativado

[PAPAIWAGO]

bom dia,


Estava usando o mapeia em minha planilha para a busca de Kms e Ceps de uma relação de origens e destinos, mas após a atualização do site não consegui mais esta execução.
Conseguem me ajudar.

Segue código:

Sub ComBarras()
Dim IE As InternetExplorer, CidadeOrig As String, sng As Date
Dim LR As Long, Contador As Long, CidadeDest As String
'Identifica a última célula ativa da lista

LR = Cells(Rows.Count, 1).End(xlUp).Row

'Cria um objeto Internet Explorer
Set IE = New InternetExplorer
'Torna o objeto visível
IE.Visible = True 'True
'Faz um loop por todas as linhas da planilha
For Contador = 3 To LR
'Navega ao site do Mapeia
IE.Navigate "http://www.mapeia.com.br/"
'Identifica se a página já foi totalmente carregada
While IE.readyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 2 > Timer
Loop
'Carrega os dados de cidade de origem e destino que serão preenchidos na página
CidadeOrig = Range("A" & Contador).Value
CidadeDest = Range("B" & Contador).Value
'Carrega os dados de cidade de origem e destino na página e submente os dados do formulário
IE.Document.All("origin").innerText = CidadeOrig
IE.Document.All("destination").Value = CidadeDest
IE.Document.All.Item("calc").Click
'Identifica se a página já foi totalmente carregada
While IE.readyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 8 > Timer
Loop
On Error GoTo vazio
'Coloca na coluna 'E' o valor total calculado do pedágio
Cells(Contador, 3) = VBA.CDbl(VBA.Replace(IE.Document.getElementById("toll-value").innerText, "R$", ""))
Cells(Contador, 16) = VBA.Replace(IE.Document.getElementById("dist-value").innerText, " km", "")


Next Contador
IE.Quit
Exit Sub
vazio: IE.Quit
Cells(Contador, 3) = "ERRO"
Call vazio
Call ComBarras


End Sub