MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 13: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.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  criquio em Sex 21 Nov 2014, 14: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, 14: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..



    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  criquio em Sex 21 Nov 2014, 14: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, 17: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, 18: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: Seg 05 Dez 2016, 01:21