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

    Compartilhe

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Ter 04 Out 2016, 9:42 pm

    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 : 35
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Qua 05 Out 2016, 7:47 pm

    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 ?

    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves em Qui 06 Out 2016, 1:27 pm

    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 : 35
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Qui 06 Out 2016, 7:26 pm

    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves em Sex 07 Out 2016, 6:53 pm

    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 : 35
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Sex 07 Out 2016, 9:11 pm

    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves em Sab 08 Out 2016, 8:41 am

    [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 : 35
    Registrado : 27/10/2013

    Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas em Sab 08 Out 2016, 10:02 pm

    tema resolvido
    obrigado

      Data/hora atual: Seg 26 Jun 2017, 12:01 pm