Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Problema para extrair dados de formulário [RESOLVIDO]

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
gustavoh
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 18, 2020 1:13 pm

Problema para extrair dados de formulário [RESOLVIDO]

Mensagem por gustavoh »

Olá pessoal, estou com problemas para extrair os dados dessa classe que está no MsgBox, pensei que poderia ser por causa de um iframe que existe na página, mas continua com problema, alguém sabe o que pode ser ?

Código: Selecionar todos

Sub testePreco()

  Set Driver = New ChromeDriver
  Dim teste As WebElement
 
 Dim M12km1000 As Object

 Driver.Get "https://livre.unidas.com.br/carros/mobi-like-1-0-4p"

 Set botao = Driver.FindElementByCss("#period > option:nth-child(1)")

 botao.Click

 Application.Wait (Now + TimeValue("00:00:03"))

 Set teste = Driver.FindElementByTag("iframe")

 Call Driver.SwitchToFrame(teste)

 Application.Wait (Now + TimeValue("00:00:01"))

 MsgBox (Driver.FindElementByClass("mb-5").Text) 'problema aqui

End Sub
Editado pela última vez por gustavoh em Seg Nov 29, 2021 11:40 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Problema para extrair dados de formulário

Mensagem por webmaster »

Colega,

Saber qual dado quer extrair da página ajuda.


gustavoh
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 18, 2020 1:13 pm

Re: Problema para extrair dados de formulário

Mensagem por gustavoh »

Olá, desde já, obrigado pela ajuda.

Quero pegar esse "Preço final", que possui essa classe "overview-purchase__card-price ng-star-inserted".


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Problema para extrair dados de formulário

Mensagem por webmaster »

Colega,

Você pode capturar o elemento e o CSS Selector e ainda testá-lo no próprio navegador. Veja se ajuda:

https://www.youtube.com/watch?v=BEjjZ7QdyJ8


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


gustavoh
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 18, 2020 1:13 pm

Re: Problema para extrair dados de formulário

Mensagem por gustavoh »

O estranho é que quando eu tento extrair pelo CSS, classe, tag... sempre retorna esse erro.
Imagem
Anexos
imagem_2021-11-27_105049.png
imagem_2021-11-27_105049.png (9.77 KiB) Exibido 3935 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Problema para extrair dados de formulário

Mensagem por webmaster »

Ué, aqui funcionou:

Código: Selecionar todos

Sub testePreco()

    Set Driver = New ChromeDriver
    Dim span As WebElement
    
    Driver.Get "https://livre.unidas.com.br/carros/mobi-like-1-0-4p"
    
    Set span = Driver.FindElementByCss("body > app-root > app-carros > app-detalhes > form > div:nth-child(3) > div > div.col-lg-5.mb-5 > section > div > div.overview-purchase__card.mt-3 > div.mb-5 > p.overview-purchase__card-p.price > span")
    MsgBox span.Text
End Sub


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Problema para extrair dados de formulário

Mensagem por Raygsson »

Basta isso:

Código: Selecionar todos


  Sub testePreco2()

  Dim driver As New ChromeDriver
  
  driver.Get "https://livre.unidas.com.br/carros/mobi-like-1-0-4p"
        
  driver.FindElementByCss("#period").AsSelect.SelectByText ("12 Meses")
  
  driver.Wait (2000)
    
  MsgBox driver.FindElementByCss(".overview-purchase__card-price").Text
    
End Sub



gustavoh
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 18, 2020 1:13 pm

Re: Problema para extrair dados de formulário

Mensagem por gustavoh »

Verdade, agora funcionou, acho que era algum problema com a lógica do botão.
Muito obrigado pela ajuda!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder