Wanderson VP

Então, não expliquei direito, nessa célula devemos escrever o nome da ação que estamos pesquisando, por isso que não retornou resultado na página. Coloque PETR4, por exemplo, e virá os resultados. Estranho é que ao dar o erro, se clicar em depurar e depois F5, roda tudo normal.

Alguém sabe porque essa aplicação retorna o erro '91' quando chega em "Cells(2, 2)"? Sub busca_fundamentos() Range("B2:M2").ClearContents Set ie = CreateObject("internetexplorer.application") ie.navigate "http://www.fundamentus.com.br/index.php" ie.Visible = False Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ie.document.getElementsByTagName("input")(0).Value = Cells(2, 1).Value ie.document.getElementsByClassName("botao")(0).Click Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop Cells(2, 2) = ie.document.getElementsByTagName("td")(39).innertext Cells(2, 3) = ie.document.getElementsByTagName("td")(45).innertext ie.Quit Range("A2:M2").WrapText = False End Sub