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