Segui seu tutorial no video ate usei os mesmos nomes para o teste.
Mas como sou muito cru preciso de entender...
Código: Selecionar todos
Public Sub ObterDadosDoMeuSiteAntigo()
Dim driver As New Selenium.ChromeDriver
Set driver = New ChromeDriver
Dim destino As Range
Dim data()
Set destino = Range("D1")
driver.Get "http://skybrasil.force.com/credenciado"
While Busy
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1) ' aqui espera o site Carregar
DoEvents:
Wend
driver.FindElementByName("username").SendKeys Range("A2") ' aqui eu to puxando o usuário da range I5
driver.FindElementById("password").SendKeys Range("B2") ' aqui eu to puxando o Senha da range I5
' pode existir vários métodos para encontrar o elemento.
'driver.FindElementByID
'driver.FindElementByLinktext
'(Dentro do parenteses tu coloca o elemento inspecionado
While Busy
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
DoEvents:
Wend
driver.FindElementByName("Login").Click ' Clicando no botão logar
Application.Wait Now + TimeValue("00:00:02")
While Busy
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
DoEvents:
Wend
On Error Resume Next
driver.FindElementByXPath("//*[@id=""thePage:j_id2:i:f:pb:d:chk_confirma_novo_login.input""]").Click
Application.Wait Now + TimeValue("00:00:02")
On Error Resume Next
driver.FindElementByXPath("//*[@id=""thePage:j_id2:i:f:pb:pbb:nextAjax""]").Click
While Busy
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
DoEvents:
Wend
Application.Wait Now + TimeValue("00:00:02")
driver.Get "https://skybrasil.force.com/credenciado/s/detail/0061I00000Lj5yiQAB"
While Busy
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
DoEvents:
Wend
Application.Wait Now + TimeValue("00:00:10")
Debug.Print "Frames encontrados no documento pai: " & driver.FindElementsByTag("span").Count
' Call driver.SwitchToFrame("principal")
Debug.Print "Frames encontrados no frame principal: " & driver.FindElementsByTag("span").Count
Dim itens As WebElements, item As WebElement
Set itens = driver.FindElementsByTag("span")
driver.Quit
End Sub
Mas eu quero pegar estes valores e colocar no excel
Eu usei seu codigo para ver se conseguia localizar os valores e deu certo
ele aparece na verificação do vba
mas eu nao consigo de forma nenhuma pegar os valores e jogar na planilha,