Página 1 de 1

[RESOLVIDO] Fazer Loop pelos itens e clicar na próxima página para continuar extraindo dados

Enviado: Ter Jul 10, 2018 4:50 pm
por Nill2016
Pessoal Boa Tarde,
Estou desenvolvendo este código para coletar os dados de uma tabela e esbarrei nas seguintes barreiras:
Tentei criar um loop para que quando terminasse a primeira página pulasse para a segunda, indicando o xpath vai para a próxima e para nela. Não consegui nem fazer a sequência para clicar nas próximas páginas nem desenvolver o loop para continuar coletando as informações das tabelas seguintes. Nos anexos estão os elementos que tentei acessar, vejam que quando a página esta selecionada o elemento muda para strong e as que não estão ficam com a href. Quem puder me ajudar agradeço desde já.

Código: Selecionar todos

Sub ConsultaÓrgãos1()
    Dim driver As WebDriver
    Set driver = New 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").Click
    Application.Wait Now + TimeValue("00:00:02")
    
    For Each Row In driver.FindElementsByCss("#row tr")
    For Each Cell In Row.FindElementsByCss("td")
        Y = Y + 1
        Cells(X, Y) = Cell.Text
    Next Cell

    X = X + 1
    Y = 0
            
    Next Row

End Sub