Página 1 de 1

VBA PARA BUSCA DE KM E PEDÁGIO NO ROTAS BRASIL

Enviado: Qua Fev 20, 2019 12:10 pm
por wagner lucio
Boa tarde amigos,

Como mudaram o sistema de buscas do MAPEIA, alterei meu codigo de VBA para o site rotas brasil, mas o mesmo abre o site no tipo de veiculo Carro , e não consigo que a vba clique antes no icone caminhão para gerar a rota.

Podem me ajudar?
consigo fazer com que ele coloque origem e destino, mas não consigo que a VBA altere o tipo de veiculo.

segue Codigo:

Sub ComBarras()

Dim l As Long
Dim lMin As Long
Dim lMax As Long
Dim r As Range
Dim rTudo As Range
Dim frm As frmBarraProgresso

'Usando iterações numéricas
lMin = 1
lMax = 100
Set frm = New frmBarraProgresso
frm.Min = lMin
frm.Max = lMax
frm.Show vbModeless
Dim IE As InternetExplorer, CidadeOrig As String, sng As Date
Dim LR As Long, Contador As Long, CidadeDest, Eixos 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
'Faz um loop por todas as linhas da planilha
For Contador = 2 To LR
'Navega ao site do Mapeia
IE.Navigate "http://www.rotasbrasil.com.br/"
'Identifica se a página já foi totalmente carregada
While IE.readyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 5 > 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
Eixos = ("2")

'Carrega os dados de cidade de origem e destino na página e submente os dados do formulário
IE.document.All("veiculoid").Value = 2
IE.document.All.Item("divMostrarEixo").Click
IE.document.All("txtEnderecoPartida").Value = CidadeOrig
IE.document.All("txtEnderecoChegada").Value = CidadeDest
IE.document.All.Item("btnSubmit").Click
'Identifica se a página já foi totalmente carregada
While IE.readyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 5 > Timer
Loop
'Coloca na coluna 'h' o valor total calculado do pedágio
Cells(Contador, 3) = VBA.CDbl(VBA.Replace(IE.document.getElementById("toll-value").innerText, "R$", ""))
Cells(Contador, 4) = VBA.Replace(IE.document.getElementById("dist-value").innerText, " km", "")
Cells(Contador, 12) = VBA.Replace(IE.document.getElementById("time-value").innerText, "h", ":")

Next Contador
IE.Quit

For l = lMin To lMax
Cells(l, "AF") = l
frm.Progresso l
Next l
Unload frm



MsgBox ("PEDAGIO GERADO COM SUCESSO")

End Sub
botão que tenho que clicar.PNG
botão que tenho que clicar.PNG (295.41 KiB) Exibido 3388 vezes

Re: VBA PARA BUSCA DE KM E PEDÁGIO NO ROTAS BRASIL

Enviado: Qua Fev 20, 2019 12:13 pm
por wagner lucio
nessas linhas estão gerando erro

IE.document.All("veiculoid").Value = 2
IE.document.All.Item("divMostrarEixo").Click