Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Próxima Página
Próxima Página
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
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
Re: Próxima Página
TUVOK,
Aqui pára na tela de login. Se os dados forem sigilosos, recomendo contratar um serviço
Aqui pára na tela de login. Se os dados forem sigilosos, recomendo contratar um serviço
Re: Próxima Página
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!
Pensei que haveria uma maneira GERAL de pular para a proxima pagina que eu desconhecesse.
Mas OBRIGADO da mesma forma!
Re: Próxima Página
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?
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?
Re: Próxima Página
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.
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.
Re: Próxima Página
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.
Morro de medo disso aparecer na internet e alguém do governo ver e dar galho para os envolvidos.