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.
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 ?
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.
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
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