[Resolvido]Vba x Web (IE) interatividade entre eles.

Boa tarde Estimados amigos.
Gostaria de agradecê-los primeiramente por ler este post.

Estou tentando preencher um formulário na web com vba. (Até aqui tudo maravilha, funcionando perfeitamente)

a questão esta sendo a seguinte , após preenchido o formulário , ele me retorna o resultado da pesquisa no site.

e não estou conseguindo pegar esse resultado da web.   Algum amigo poderia por favor dar-me uma ajuda.

Segue abaixo o código

Código:



Public Sub ConectaWeb()
    On Error Resume Next
    Dim endereço As String
    Dim mostra As Boolean

 
    Dim i, n, x As Integer
    endereço = "http://www.mapeia.com.br/"         'site que vou fazer a pesquisa'
    Set Ie = CreateObject("InternetExplorer.Application")
    Ie.navigate (endereço)                                  ' Passo endereço para o Internet Explorer

        Ie.Visible = True               ' Habilito para visualizar o IE
        AppActivate "Windows Internet Explorer"       ' Chamo a tela para Frente das outros
          
       DestinoRota = ActiveCell.value                     ' Carrego em uma variavel a Cidade Destino a procurar
        
        Do While Me.Ie.busy = True
            Sleep 3000
            DoEvents
        Loop
          
        Ie.document.forms.Item(0).Item(0).Value = "Santa Fe do Sul - SP"              ' Preencho a cidade Origem
        Ie.document.forms.Item(0).Item(1).Value = DestinoRota  & " - SP"              ' Preencho a Cidade Destino                    
        Ie.document.forms.Item(0).Item(4).submit  
        Ie.document.forms.Item(0).Item(4).Click                                                  ' Aperto o botão da busca

       [color=#ff0000] ' Amigos o x do meu problema esta agora.    no site ele vai me retorno o total de km   e  o    total valor pedagio
        '  , precisava pegar esses valores para trabalhar com eles.[/color]

         alguém poderia por favor ajudar-me ... antecipo cordial agradecimento a todos.
        
    

        AppActivate "Windows Internet Explorer"           ' Ativo a Janela do EI
        Ie.Quit                                                         ' Fecho o IE  




Obrigado amigos.

Olá! Isso vai depender de como esses dados são tratados na página. Se for em campos esses campos possuírem um id, você pode capturá-los usando um getElementById("nomeDoID"). Também pode ser por innerHTML, outerHTML. Antes de tudo, é preciso estudar o código fonte da página de resultados para saber de que forma capturá-los. No fórum há tópicos sobre o assunto. Tente fazer uma pesquisa para ver se ajuda.

Saudações Criquio.

Obrigado por responder-me.
Com sua explicação ficou fácil de fazer isso agora.

segue abaixo a solução

KM = IE.Document.GetElementByID("routeInfo").outerText


pronto!!! com uma útil ajuda, consegui resolver ... meu muito obrigado. valeu mesmo..

Grato pelo retorno. O fórum agradece.

E com essa mensagem atinjo a marca redonda de 11 mil mensagens no fórum. De brinde, ganhe uma carinha:

mfrigerio ,

Meu trabalho requer essas informações e faz muito tempo que venho atrás desse código.
O problema é que não sei programar.
Teria como disponibilizar esse código completo ou passar um arquivo com ele, por favor?!
Me ajudaria muito e economizaria horas de trabalho.

Grato,

Olá Pedro Dantas

Este foi um trabalho que realizei na empresa que trabalhava em 2014 ,
mas hoje não tenho mais esse arquivo , peço desculpas por não poder ajudar.
mas parte do código esta no poste acima.
Sem mais obrigado e desculpe-me