Boa noite.
Algum tempo atrás consegui adaptar um código para que ele fizesse uma pesquisa simples no site do Mapeia.com.br e me retornasse o valor do pedágio, usando essa mesma base gostaria de saber como converter ele para ser executado no Chrome ou até mesmo como devo fazer para adaptar para o Selenium;
Meta: Vou usar como base esse codigo para retirar as informações de outro site que só funciona perfeitamente com o Chrome.
Sub PesqCustoPedágios()
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 = False 'True
'Faz um loop por todas as linhas da planilha
For Contador = 2 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 + 3 > 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 + 3 > Timer
Loop
'Coloca na coluna 'E' o valor total calculado do pedágio
Cells(Contador, 5) = IE.Document.getElementById("toll-value").innerText
Next Contador
'IE.Quit
End Sub
Sou iniciante no VBA, minha noção é muito básica então se não for abusar da boa vontade e pedir para mencionar o que a função no código faz eu seria muito grato, assim entenderia e aprenderia.
Obrigado.
Postado : 05/01/2018 7:04 pm