Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Nill2016
Colaborador
Colaborador
Mensagens: 20
Registrado em: Qua Mai 09, 2018 11:34 am

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

Mensagem por Nill2016 » Ter Jul 10, 2018 4:50 pm

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
Anexos
PageLinks2.png
PageLinks2.png (230.03 KiB) Exibido 218 vezes
PageLinks1.png
PageLinks1.png (199.13 KiB) Exibido 218 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder