none
VBA para acessar o Chrome RRS feed

  • Discussão Geral

  • Boa tarde,

    tenho uma planilha onde fiz um vba que abria uma pagina do IE, colocava ORIGEM e DESTINO nela e retornava informações de pedágio nesta planilha.

    Porem a pagina que eu acesso para obter estas informações, não atualiza mais no IE, somente no Crhome.

    Gostaria de uma ajuda para alterar meu codigo retirando procedimento do IE e direcionando para o CRHOME.

    Podem me ajudar???

    Segue código do VBA:

    Option Explicit
    Sub ComBarras()

    Dim IE As InternetExplorer, origem As String, sng As Date
     Dim LR As Long, Contador As Long, destino, 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 'True
      'Faz um loop por na planilha
          For Contador = 2 To LR

         'Navega ao site do Mapeia
         IE.navigate "http://qualp.com.br/"
         'Identifica se a página já foi carregada
         While IE.readyState <> READYSTATE_COMPLETE
         Wend
         sng = Timer
         Do While sng + 7 > Timer
         Loop
         
         'Carrega os dados que serão preenchidos na página
         origem = Range("A" & Contador).Value
         destino = Range("B" & Contador).Value
         Eixos = Range("C" & Contador).Value
       
         
         'Envia os dados da planilha e submente os dados do formulário
         IE.document.all("origem").Value = origem
         IE.document.all("destino").Value = destino
         IE.document.all("eixos").Value = Eixos
         'IE.document.all("auto-cat") = categoria
         IE.document.all.Item("btn-calcular").Click
         
         'Identifica se a página já foi totalmente carregada
         While IE.readyState <> READYSTATE_COMPLETE
         Wend
         sng = Timer
         Do While sng + 7 > Timer
         Loop
         
         'Coloca nas colunas os valores totais calculados
         Cells(Contador, 4) = IE.document.getElementById("tab-info-distancia").innerText
         'Cells(Contador, 3) = VBA.CDbl(VBA.Replace(IE.Document.getElementById("toll-value").innerText, "R$", ""))
         'Cells(Contador, 6) = IE.document.getElementById("tab-info-duracao").innerText
         Cells(14, 12) = IE.document.getElementById("tab-info-total").innerText

        Next Contador
     IE.Quit

        MsgBox ("PEDAGIO GERADO COM SUCESSO")
        
        Range("K19").Select
        

    End Sub

    quarta-feira, 17 de julho de 2019 15:23