Capturar dados em formulario web com resultado em outra aba

[LEANDRO SANTOS SOARES]

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.