Notifications
Clear all

[Macro] VBA + Chrome

3 Posts
2 Usuários
0 Reactions
1,342 Visualizações
(@bcarvalho)
Posts: 2
New Member
Topic starter
 

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
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

BCarvalho,

Boa tarde!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/01/2018 1:40 pm
(@bcarvalho)
Posts: 2
New Member
Topic starter
 

Bom dia.

Desculpe, a intenção não foi e nunca será de desrespeitar alguma regra aqui aplicada.

 
Postado : 09/01/2018 4:44 am