MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

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

    avatar
    mfrigerio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  mfrigerio 21/11/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.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 21/11/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: www.vcssistemas.com.br

    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.

    avatar
    mfrigerio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  mfrigerio 21/11/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..


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 21/11/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: www.vcssistemas.com.br

    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.

    avatar
    pedrodantas1985
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vba x Web (IE) interatividade entre eles. Empty Preciso muito desse código

    Mensagem  pedrodantas1985 2/3/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,
    avatar
    mfrigerio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  mfrigerio 13/3/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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:32