Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Próxima Página

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.
TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Próxima Página

Mensagem por TUVOK »

Bom Dia!

Mais uma vez conto com você pra me ajudar!
Segue abaixo meu código que funciona bem até o numero 11 da variável página.
Depois disso acusa que não encontra o valor 12.
Minha intenção é simplesmente mudar de pagina para continuar extraindo os textos das 10 tabelas de cada pagina, mas não está dando certo.
Quando somo as páginas ,pára no 12 e quando uso o patch padrao, volta pra a primeira página.
Pode me ajudar?
Muito Obrigado!


Sub AtualizarSei()
Dim driver As WebDriver
Dim LINHA As Integer
Dim TABELA As Variant
Dim elem As Variant
Set driver = New ChromeDriver
LINHA = 1
PROCESSO = ""
'driver.AddArgument ("--headless")
driver.Get "https://www.sei.mg.gov.br/sip/login.php ... l=L3NlaS8="
SendKeys "~", True
pagina = 1
LINHA_TOTAL = 1582
For LINHA = 1 To LINHA_TOTAL
'For Each elem In driver.FindElementsByXPath("//*[@id=""conteudo""]/table/tbody")
Set TABELA = driver.FindElementsByXPath("//*[@id=""conteudo""]/table/tbody")
For I = 1 To TABELA.Count
For Each elem In TABELA
Debug.Print elem.Text
'Debug.Print I
Next
Next I
pagina = pagina + 1
driver.FindElementByXPath("//*[@id=""conteudo""]/div[2]/a[" & pagina & "]").Click
'driver.FindElementByXPath("//*[@id=""conteudo""]/div[2]/span/a").Click
Next LINHA
Set driver = Nothing
Set TABELA = Nothing
End Sub


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Próxima Página

Mensagem por webmaster »

TUVOK,

Aqui pára na tela de login. Se os dados forem sigilosos, recomendo contratar um serviço


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Próxima Página

Mensagem por TUVOK »

Eu tirei mesmo a parte do login.
Pensei que haveria uma maneira GERAL de pular para a proxima pagina que eu desconhecesse.
Mas OBRIGADO da mesma forma!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Próxima Página

Mensagem por webmaster »

TUVOK,

Se estamos falando de uma tabela paginada, procure o botão (se houver) que avança para a próxima página e clique nele.

Isso resolve?


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.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Próxima Página

Mensagem por TUVOK »

Infelizmente não.
driver.FindElementByXPath("//*[@id=""conteudo""]/div[2]/span/a").Click
Se uso esse path que tem o nome "proxima" ele vai até a segunda página e volta para a primeira , depois para segunda, depois para primeira e vai repetindo até, acredito, chegar no final do for, 1582.
Cada pagina tem 10 tabelas e se uso
pagina = pagina + 1
driver.FindElementByXPath("//*[@id=""conteudo""]/div[2]/a[" & pagina & "]").Click
ele vai até a pagina com as tabelas 261-270 e pára, porque diz não encontrar o número 12 da pagina.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Próxima Página

Mensagem por webmaster »

TUVOK,

Só olhando o código.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Próxima Página

Mensagem por TUVOK »

Mas eu passei o código.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Próxima Página

Mensagem por webmaster »

Da página


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Próxima Página

Mensagem por TUVOK »

Posso mandar no seu e-mail particular?
Morro de medo disso aparecer na internet e alguém do governo ver e dar galho para os envolvidos.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Próxima Página

Mensagem por TUVOK »

?


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