Interação VBA com i...
 
Notifications
Clear all

Interação VBA com internetExplorer: importar página

2 Posts
2 Usuários
0 Reactions
948 Visualizações
(@guedesjr7)
Posts: 4
New Member
Topic starter
 

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
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

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

 
Postado : 15/12/2017 6:27 am