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


2 participantes

    [Resolvido]Ler dados de pagina WEB

    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas 4/10/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 ?
    http://www.standvirtual.com/carros/anuncios/?op=search&aktion=find&rub=0&x=2&ma=5&mo=48&tr=&pv=&ez=&kmf=&pb=&ezb=&km=&id=&sort=4


    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
    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas 5/10/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves 6/10/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
    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas 6/10/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves 7/10/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
    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas 7/10/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Alexandre Neves 8/10/2016, 09:41

    [Resolvido]Ler dados de pagina WEB MaximoAccess%20ResolvidoPorMarcar


    .................................................................................
    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
    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  cpampas 8/10/2016, 23:02

    tema resolvido
    obrigado

    Conteúdo patrocinado


    [Resolvido]Ler dados de pagina WEB Empty Re: [Resolvido]Ler dados de pagina WEB

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:44