Caros, muito bom dia a todos!
Estava tentando desenvolver uma rotina para tentar buscar uma informação de uma página da internet, sendo que o termo buscado seria o innertext de uma "TD". Encontrei na internet uma rotina que eu acredito que faça isso, porém durante a execução da rotina o "FOR" se encerra sem ao menos começar e isso me deixou confuso. A rotina que estou utilizando é:
Sub Extract_TD_text()
Dim URL As String
Dim IE As InternetExplorer
Dim HTMLdoc
Dim TDelements
Dim TDelement
Dim r As Long
'Saved from www vbaexpress com/forum/forumdisplay.php?f=17
URL = " http://www.bmfbovespa.com.br/Cias-Listadas/Empresas-Listadas/ResumoEmpresaPrincipal.aspx?codigoCvm=17639&idioma=pt-br"
Set IE = New InternetExplorer
With IE
.Navigate URL
.Visible = True
'Wait for page to load
While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set HTMLdoc = .Document
End With
Set TDelements = HTMLdoc.getElementsByTagName("TD")
r = 0
For Each TDelement In TDelements
'Look for required TD elements - this check is specific to VBA Express forum - modify as required
If TDelement.innerText Like "*(Quantidade de Ações)*" Then
Sheets(1).Range("A1").Offset(r, 0).Value = TDelement.innerText
r = r + 1
End If
Next
End Sub
Alguém saberia o motivo?
Agradeço antecipadamente qualquer ajuda.
Atenciosamente,
Silmar
Postado : 16/02/2013 12:06 am