Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
wagner lucio
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Set 03, 2018 5:03 pm

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

Mensagem por wagner lucio » Qua Fev 20, 2019 12:10 pm

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 741 vezes
Editado pela última vez por wagner lucio em Qua Fev 20, 2019 12:18 pm, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


wagner lucio
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Set 03, 2018 5:03 pm

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

Mensagem por wagner lucio » Qua Fev 20, 2019 12:13 pm

nessas linhas estão gerando erro

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



Responder