Fábio Gomes_726715

Estou com um certo problema para inserir um número que tenho numa planilha em numa página da internet. Acontece que pelo objCollection(i).Value não é possível.

A questão é somente conseguir inserir o número do processo judicial via VBA na página http://www.tjrs.jus.br/busca/?tb=proc
O nome do objeto na página é: num_processo_mask

O captcha estou ciente que vai ser adicionado manualmente.

Segue código:

Public Sub InserirNrProc()
On Error Resume Next

Dim i As Long

Dim IE As Object
Dim objElement As Object
Dim objCollection As Object

Set IE = CreateObject("InternetExplorer.Application")

  IE.navigate ("http://www.tjrs.jus.br/busca/?tb=proc")


IE.Visible = True


Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop

Set objCollection = IE.document.getElementsByTagName("input")


i = 0
While i < objCollection.Length

If objCollection(i).Name = "num_processo_mask" Then

objCollection(i).Value = 123456789

End If

i = i + 1

Wend

End Sub


Desde já agradeço.

Att