MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 01/08/2012

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

    Mensagem  mfrigerio em Sex 21 Nov 2014, 16:10

    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.
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

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

    Mensagem  criquio em Sex 21 Nov 2014, 17:01

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 01/08/2012

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

    Mensagem  mfrigerio em Sex 21 Nov 2014, 17:28

    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..


    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

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

    Mensagem  criquio em Sex 21 Nov 2014, 17:31

    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: Very Happy Razz


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    pedrodantas1985
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 02/03/2016

    Preciso muito desse código

    Mensagem  pedrodantas1985 em Qua 02 Mar 2016, 20:43

    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,

    mfrigerio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 01/08/2012

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

    Mensagem  mfrigerio em Dom 13 Mar 2016, 21:43

    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

      Data/hora atual: Qui 17 Ago 2017, 12:47