• 0
Sign in to follow this  
LEANDRO SANTOS SOARES

Capturar dados em formulario web com resultado em outra aba

Question

Estou tentando capturar dados de uma página web e jogá-los na planilha. Só que para isso, só consegui passando por duas outras páginas anteriores.

A página final onde constam os dados recebe na URL dois parâmetros, o id do banco de dados e o número do processo, no endereço abaixo, são eles: " 699286 " , "0502376-62.2017.4.05.8104".

https://wwws.jfce.jus.br/cretainternetce/consulta/processo/detalhe.wsp?tmp.processo_judicial.id_processo_judicial=699286&tmp.processo_judicial.nr_processo_judicial=0502376-62.2017.4.05.8104

Então, preciso desse dois parâmetros para capturar os dados dessa página e colocá-los na planilha. A forma que estava dando certo era ir de página em página até chegar na terceira onde pegaria os dados que estão nessa 3ª página. No entanto, só consegui ir da 1ª até a 2ª página, não estou conseguindo clicar no link da 2ª página que acionaria a 3ª página. Já tentei também com a referência Winhttp5.1 mas não consegui passar os parâmetros da 1ª par a segunda página

Resumindo, o que queria fazer era acessar a primeira página:    http://www.jfce.jus.br/  ,  joga no formulário o número do processo, vai para  segunda página  https://wwws.jfce.jus.br/cretainternetce/consulta/processo/consulta_trf.wsp ,    depois teria que clicar no link contendo o número do processo dentro dessa 2ª página, o que irá mostrar todos os detalhes do processo que consta na 3ª página : https://wwws.jfce.jus.br/cretainternetce/consulta/processo/detalhe.wsp?tmp.processo_judicial.id_processo_judicial=699286&tmp.processo_judicial.nr_processo_judicial=0502376-62.2017.4.05.8104

nessa última estão  todos os dados onde quero tratar na planilha.

O 1º passo, onde deu certo da 1ª p 2ª página:

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim lProcesso    As String
Dim sURL As String
Sub Login()
Dim oHTML_Element As IHTMLElement

On Error GoTo Err_Clear
   sURL = "http://www.jfce.jus.br/"
Set oBrowser = New InternetExplorer
   oBrowser.Silent = True
   oBrowser.timeout = 60
   oBrowser.Navigate sURL
   oBrowser.Visible = True
Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

lProcesso = Range("B2").Value

Set HTMLDoc = oBrowser.Document

 HTMLDoc.forms.Item("consDigSec1").Item(0).Value = lProcesso
 HTMLDoc.forms("consDigSec1").submit
 
Err_Clear:

Resume Next
End Sub

Se alguém poder me ajudar, agradeço.

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this