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

    Ler campos em pagina WEB

    Compartilhe

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

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

    Ler campos em pagina WEB

    Mensagem  cpampas em Dom 26 Mar 2017, 18:53

    Bom dia
    Estou a tentar ler os valores dos campos numa pagina WEB, ate agora fiz o seguinte :

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


         ' Depois de escolher uma Marca de viatura, executo este codigo para saber qual o valor da variavel Marca escolhida
         ' Claro que o nome do control na pagina WEB nao é "AAA".
        '  Alguem me ajuda a saber qual é ?

       x = ie.Document.getElementByClassName("AAA").Value
    MsgBox (x)

    Preciso saber qual o nome do controle da comboBox Marca na Web page. Alguem me ajuda ?
    obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    Registrado : 04/11/2009

    Re: Ler campos em pagina WEB

    Mensagem  JPaulo em Ter 28 Mar 2017, 12:45

    Ola;

    Código:
    Private Sub SeuBotão_Click()
    Dim x As String
    Dim ie As Object
     Set ie = Me.WebBrowser1.Object
     
     x = vbNullString
     Me.WebBrowser1.Object.Silent = True
     
     ie.navigate "http://www.standvirtual.com/carros/"

            While ie.Busy
                DoEvents
            Wend

      x = ie.Document.All("param1").Value
     
        If IsNull(x) Or x = "" Then
            MsgBox "Campo Marca, vazio", vbInformation
                Else
            MsgBox (x)
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

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

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Ler campos em pagina WEB

    Mensagem  cpampas em Qua 29 Mar 2017, 20:46

    Paulo,
    Obrigado pela ajuda.
    e se eu pretender fazer o oposto, que seria preencher os campos no formulario WEB, porque nao funciona :

    Código:
    ie.Document.all("param1").Value = "bmw"

    tambem estou confuso quanto ao valor que fica armazenado no campo marca pois acredito que deveria ser um ID, tipo numerico, que depois deveria estar relacionado com o campo seguinte Modelo, desta forma estariam disponiveis na segunda combo os modelos da marca escolhida.

    tentei :


    Código:
    ie.Document.all("param1").Value = "bmw"
    ie.Document.all("param1").FireEvent ("onchange")

    ie.Document.all("param7").Value = "320"  

    Agradeço , se me der uma ideia de como funciona, para ver se consigo fazer tamberm os restantes campos do formulario WEB
    Obrigado

    cpampas
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Ler campos em pagina WEB

    Mensagem  cpampas em Dom 23 Abr 2017, 19:01

    bom dia
    Alguem tem uma ideia de como fazer ?

    x= ie.Document.all("param1").Value = "bmw"
    msgbox(x) ' retorna bmw


    como posso fazer para que o campo marca na pagina web seja feito refresh ?

      Data/hora atual: Qui 21 Set 2017, 02:32