É, o Selenium fez barulho na comunidade do VBA. Pelo menos isso foi o que deu pra sentir, refletido tanto em questões no fórum, como em comentários no youtube e pedidos de serviço.
O fato é que o selenium tem crescido muito enquanto biblioteca e não só para o VBA. Tudo está muito bem explicado numa série de vídeos que gravei, de comentários a tutoriais (links no fim do artigo).
Por fim, como um auxílio para a migração do SeleniumVBA para o SeleniumBasic, explicado no vídeo “Selenium Basic Já”, gravei mais um tutorial com uma pincelada no código utilizando a nova biblioteca, que você confere abaixo:
Abaixo também segue o código utilizado para referência.
Dim driver As WebDriver
Sub ConsultaODolar()
Set driver = New ChromeDriver
driver.Get "http://www.dolarhoje.com"
Dim nacional As WebElement
Set nacional = driver.FindElementById("nacional")
If nacional Is Nothing Then
MsgBox "Elemento não encontrado"
Else
MsgBox nacional.Value
End If
driver.Quit
End Sub
Sub VaiProGoogle()
Set driver = New ChromeDriver
driver.Get "http://www.google.com"
Application.Wait Now + TimeValue("00:00:01")
Dim busca As WebElement, form As WebElement
Set busca = driver.FindElementById("lst-ib")
Set form = driver.FindElementById("tsf")
If Not busca Is Nothing Then
busca.SendKeys InputBox("Sua busca", "Google", "")
form.Submit
Else
MsgBox "Elemento não encontrado"
End If
End Sub |
Dim driver As WebDriver
Sub ConsultaODolar()
Set driver = New ChromeDriver
driver.Get "http://www.dolarhoje.com"
Dim nacional As WebElement
Set nacional = driver.FindElementById("nacional")
If nacional Is Nothing Then
MsgBox "Elemento não encontrado"
Else
MsgBox nacional.Value
End If
driver.Quit
End Sub
Sub VaiProGoogle()
Set driver = New ChromeDriver
driver.Get "http://www.google.com"
Application.Wait Now + TimeValue("00:00:01")
Dim busca As WebElement, form As WebElement
Set busca = driver.FindElementById("lst-ib")
Set form = driver.FindElementById("tsf")
If Not busca Is Nothing Then
busca.SendKeys InputBox("Sua busca", "Google", "")
form.Submit
Else
MsgBox "Elemento não encontrado"
End If
End Sub
Bom proveito!
Usando o Selenium VBA para extrair informações da Web
► https://www.youtube.com/watch?v=hk-65p2ivvQ&t=47s
Atualizando o ChromeDriver manualmente para o SeleniumBasic
► https://www.youtube.com/watch?v=8fFnr-hmTW8
Selenium Basic já!
► https://www.youtube.com/watch?v=WLP7QqgS8CA
Outros Links
SeleniumBasic
► https://florentbr.github.io/SeleniumBasic/
ChromeDriver
► https://sites.google.com/a/chromium.org/chromedriver/