Sou iniciante no assunto, mas tenho muita vontade de aprender...
Preciso navegar até a página do Tribunal de Justiça de SP.
No canto direito (Consulta processos), preencher os dois campos e clicar em pesquisar.
Após, capturar as informações do Andamento processual e retornar para uma planilha excel.
No código abaixo, consegui preencher os campos, mas quando uso o comando 'click' a página do TJ retorna um erro diz que os valores não foram preenchidos. Acredito que precise usar alguma validação entre o primeiro e segundo campo, que não estou conseguindo fazer, alguém pode me dar um luz? Só preciso fazer ele acessar a página do processo, o resto eu mesmo quero ir fazendo para ir me familiarizando com o VBA.
Código: Selecionar todos
Sub AndamentoSP()
'
' AndamentoSP Macro
'
Dim caminho, processo, N_unica, movimento, dt_mov As String
Dim ie As InternetExplorer
processo = Cells(Selection.Row, 1)
'exemplo de processo: "001091205183"
caminho = "http://www.tjsp.jus.br/"
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate caminho
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.all.Item("ctl00_cphConteudoGeral_PesquisaRapida1_ddlTiposPesquisa").Selectedindex = 1
ie.Document.all("ctl00_cphConteudoGeral_PesquisaRapida1_txtNumeroPesquisadoSomenteNumero").innertext = processo
ie.Document.all("ctl00_cphConteudoGeral_PesquisaRapida1_btnPesquisar").Click
'
End Sub
Abraços,