How to make automatic click to next page vba excel

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

How to make automatic click to next page vba excel

Nilton da Silva
Olá a todos, gostaria de saber como posso automatizar o clique nos links da página para que os dados na tabela sejam extraídos. O que eu comecei a ler apenas a primeira página e extrai os dados e ainda estou testando como eu vou fazer o loop para que isso aconteça nas outras páginas, mas eu não fui capaz de indicar como Clique para ir para a próxima página. Alguém pode ajudar? Apreciar.

O código que estou usando é o seguinte:

Sub ConsultaÓrgãos1()
    Driver Dim Como WebDriver
    Definir driver = Novo ChromeDriver
  
    driver.Get "https://www.convenios.gov.br/siconv/proposta/ConsultarProposta/ConsultarProposta.do"
    Application.Wait Now + TimeValue ("00:00:02")
    
    driver.FindElementByXPath ("html / body / div [1] / div [3] / div [3] / a"). Clique em
    Application.Wait Now + TimeValue ("00:00:02")
    
    Para cada linha no driver.FindElementsByCss ("# row tr")
    Para cada célula em Row.FindElementsByCss ("td")
        Y = Y + 1
        Células (X, Y) = Cell.Text
    Próxima Célula

    X = X + 1
    Y = 0
            
    Próxima linha

End Sub

--
You received this message because you are subscribed to the Google Groups "Selenium Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [hidden email].
To post to this group, send email to [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/selenium-users/6d32563f-de62-4da5-bb5e-721d04c23286%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

PageLinks1.png (245K) Download Attachment
PageLinks2.png (272K) Download Attachment