Ilustres, bom dia!
Tenho uma macro no Excel 2010 que funcionava perfeitamente no IE 8, porém ontem quando
migrei para IE 9 passou a dar a seguinte mensagem: " O método 'frames'
do objeto 'JScriptTypeInfo' falhou. Na rotina, que reproduzo abaixo, dá erro em todas as linhas que há o objeto "Frames".
Alguém saberia o motivo p/ me ajudar?
A macro que menciono é a seguinte:
Sub AcessaPagina()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate
"http://www.bmfbovespa.com.br/Cias-Listadas/Empresas-Listadas/ResumoEmpresaPrinc
ipal.aspx?codigoCvm=20800&idioma=pt-br "
ie.Visible = True
'Essa daqui é novidade. Faz loop até que a página seja totalmente
carregada e assim você não tem um erro em tempo de execução
'quando executar todo o código
Do While ie.Busy
Loop
Do Until ie.Document.ReadyState = "complete"
Loop
' Nesta parte está dando erro;
Do Until
ie.Document.frames("ctl00_contentPlaceHolderConteudo_iframeCarregadorPaginaExter
na").Document.ReadyState
= "complete"
Loop
'Quando retiro a parte de cima, aparece o erro nesta parte
Dim objTABLE As Object
Set objTABLE =
ie.Document.frames("ctl00_contentPlaceHolderConteudo_iframeCarregadorPaginaExter
na").Document.all.tags("table")
ThisWorkbook.Worksheets(1).Range("A1") = objTABLE(2).Cells(2).innertext
ThisWorkbook.Worksheets(1).Range("A2") = objTABLE(2).Cells(3).innertext
End Sub
Agradeço antecipadamente, qualquer ajuda.
Milena
Postado : 28/08/2012 3:54 am