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]Ler dados de pagina WEB

    Compartilhe

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 32
    Registrado : 27/10/2013

    [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Ter 04 Out 2016, 22:42

    Bom dia,
    Tenho num formulario un webbrowser control, onde consigo ler dados de uma pagina web :

    Código:
    Dim ie As WebBrowser
     Set ie = Me.WebBrowser1.Object
     Me.WebBrowser1.Object.Silent = True
    ie.Navigate "http://www.standvirtual.com/"

    ' Aqui faço uma pausa ate pagina carregar
    Do Until Me.WebBrowser1.ReadyState = 3 Or Me.WebBrowser1.ReadyState = 4
    DoEvents
    Loop

    'aqui escrevo na pagina o valor "ma"  , na pagina web 
    ie.Document.getElementById("ma").Value = Me.mar


    Esta pagina WEB tem o equivalente a um subformulario de access com registos "child", ao contrario do anterior que é um registo parent.

    Como posso ler os dados "child" desta pagina web ?
    [Você precisa estar registrado e conectado para ver este link.]


    Concretamente o que preciso é passar para o access o preço das primeiras 4 viaturas listadas ( este é um site com preços de automoveis)
    Grato se puderem ajudar

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 32
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Qua 05 Out 2016, 20:47

    Tentei assim :

    Código:
    Dim xx As Variant
     xx = ie.Document.getElementsByClassName("offer_price")(0).innerText ' "offer_price "parece ser o elemento  na pagina web que contem os preços
     MsgBox (xx)

    mas retorna erro 438, "object doesnt support this property or method"

    alguem tem uma ideia de como resolver isto ?


    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves em Qui 06 Out 2016, 14:27

    Boa tarde,
    tente
    xx = ie.Document.getElementsByTagName("offer_price")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 32
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Qui 06 Out 2016, 20:26

    bom dia,
    Código:
    xx = ie.Document.getElementsByTagName("offer_price")

    assim consigo evitar o erro que mencionei antes, mas a variavel xx, recolhe  "nothing"
    por outro lado, como a class tem varios registos, seria necessario identificar qual a linha

    sera que tem algo a ver com a versao do ie versao 11 que tenho instalada ?, ou do access versao 2003 que tenho instalada ?
    ou será que estou a identificar o elemento correcto na webpage ?

    Alguem me ajuda a sair disto ?
    obrigado

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves em Sex 07 Out 2016, 19:53

    Boa noite,
    Percebo pouco esta linguagem, apenas vou tentando pelo que me parece lógico
    Aguardamos se alguém o pode ajudar
    Seia interessante algum membro disponibilizar sebentas sobre linguagem de marcação que utilizam nós


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 32
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Sex 07 Out 2016, 22:11

    Finalmente consegui, embora nao perceba bem porque. Aqui fica no caso de alguem precisar:


    Código:
    Dim dd As Variant
    Dim doc As HTMLDocument
    Set doc = IE.Document
    dd = doc.getElementsByClassName("offer_price")(0).innerText
    MsgBox dd  '    aqui consigo o valor inscrito no primeiro registo da Class na pagina web, para os seguintes registos ("offer_price")(1).. ("offer_price")(2) ... etc

    obrigado pela ajuda

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves em Sab 08 Out 2016, 09:41

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 32
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Sab 08 Out 2016, 23:02

    tema resolvido
    obrigado

      Data/hora atual: Seg 05 Dez 2016, 04:21