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!!
guedesjr7,
Bom dia!
Seja muito bem vindo ao fórum.
Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371
Solicitamos, por gentileza, da próxima vez que postar código VBA aqui no fórum, utilizar a ferramenta CODE existente no início da caixa de mensagens. Isso mantém o fórum de forma organizada.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel