Tomás Vásquez Fórum

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