Pessoal, por favor, me ajudem.
Objetivo acessar um site, inserir uma informação no campo de formulário, submeter, importar a página inteira para a planilha "Tela" e ir para o próximo argumento de pesquisa.
Já conseguir abrir o link e submeter a consulta. Mas estou emperrado no passo importar o conteúdo da página inteira.
Bem, estou utilizando uma planilha que consulta CEP como base.
Eis meu código:
-------------------
Sub lReferenciaIE()
Dim ObRef
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1
End Sub
Sub lsPesquisarCEPFaixa()
lReferenciaIE
Dim IE As InternetExplorer
Dim lArgumento As String
Dim lUltimaLinhaAtiva As Long
Dim lContador As Long
lUltimaLinhaAtiva = Worksheets("Processos").Cells(Worksheets("Processos").Rows.Count, 1).End(xlUp).Row
Set IE = New InternetExplorer
IE.Visible = True
For lContador = 2 To lUltimaLinhaAtiva
IE.Navigate "https://m.tjdft.jus.br/1inst.asp"
While IE.ReadyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 3 > Timer
Loop
lArgumento = Range("B" & lContador).Value
IE.Document.all("CHAVE").innertext = lArgumento
IE.Document.forms("inst1").submit
While IE.ReadyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 3 > Timer
Loop
'''A PARTIR DAQUI QUE DÁ O PROBLEMA
For Each i In IE.Document.body.getElementsByTagName("table")
If InStr(i.innertext, "Faixa de CEP") > 0 Then
For Each l In i.getElementsByTagName("tr")
If InStr(l.innertext, lCidade) Then
Range("C" & lContador).Value = l.getElementsByTagName("td")(1).innertext
End If
Next l
End If
Next i
Next lContador
MsgBox "Concluído!"
End Sub
------
Obrigado, pessoal!!
Postado : 05/12/2017 7:32 am