Boa noite,
Seguinte, estou acessando uma página com a macro, ela insere os dados, faz a consulta, mas na hora de capturar os dados da consulta ele não preenche na planilha, poderia por favor me ajuar?
Segue código da macro e o print do HTML do site, a área de resultado está armazenada em id=area, preciso dos resultados das label;
(imagemHTMLsite)
http://oi64.tinypic.com/20aqahh.jpg
Sub Consulta()
'Inclui a referência se não houver
lReferenciaIE
Dim IE As InternetExplorer
Dim lNUM As String
Dim lCEP As String
Dim lUltimaLinhaAtiva As Long
Dim lContador As Long
Dim lBairro As String
'Identifica a última célula ativa da lista
lUltimaLinhaAtiva = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count, 1).End(xlUp).Row
'Cria um objeto Internet Explorer
Set IE = New InternetExplorer
'Torna o objeto visível
IE.Visible = True
'Faz um loop por todas as linhas da planilha
For lContador = 2 To lUltimaLinhaAtiva
'Navega ao site
IE.Navigate "
https://www.site.com.br"
'Identifica se a página já foi totalmente carregada
While IE.ReadyState <> READYSTATE_COMPLETE
Wend
'Página possui JavaScript que cria os objetos que são preenchidos após a carga completa (painel resposta de consulta)
'é necessário aguardar um tempo, altera conforme a necessidade.
sng = Timer
Do While sng + 3 > Timer
Loop
'Carrega os dados de CEP e NUM que serão preenchidos na página
lNUM = Range("B" & lContador).Value
lCEP = Range("A" & lContador).Value
'Carrega os dados de CEP e NUM na página e submete os dados do formulário
IE.Document.all("numero-logradouro-ins").Value = lNUM
IE.Document.all("cep-ins").Value = lCEP
For Each Button In IE.Document.getElementsByClassName("btn btn-primary btn-sm") 'FAILED
Button.Click
Next
'Identifica se a página já foi totalmente carregada
While IE.ReadyState <> READYSTATE_COMPLETE
Wend
'Página possui JavaScript que cria os objetos que são preenchidos após a carga completa (painel resposta de consulta)
'é necessário aguardar um tempo, altera conforme a necessidade.
sng = Timer
Do While sng + 5 > Timer
Loop
'Faz um loop pelos objetos do tipo panel-body na página e procura pelo campo "Bairro" preenchido.
For Each i In IE.Document.body.getElementsByTagName("area")
If InStr(i.innertext, "Bairro") > 0 Then
For Each l In i.getElementsByTagName("label")
If InStr(l.innertext, lBairro) Then
Range("C" & lContador).Value = l.getElementsByClassName("form-control")(1).innertext
End If
Next l
End If
Next i
Next lContador
MsgBox "Concluído!"
End Sub