Excel Código VBA - Erro em tempo de execução '91'

[Wanderson VP]

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
 

[Basole]

@Wanderson VP o erro é provavelmente que na pagina Fundamentus pesquisada, nao tenha encontrado nada

 

* Tente alterar a linha abaixo referenciando o nome da planilha antes do endereço da celula cells(2,1)

E certifique-se que na celula A2, da respectiva aba, tenha dados (dados da pesquisa).

Exemplo:

ie.document.getElementsByTagName("input")(0).Value = Planilha2.Cells(2, 1).Value

 

 

[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.

[Midori]

@Wanderson VP Tente usar um loop para interromper enquanto a quantidade de elementos de td for igual a zero,

 

Do While ie.document.getElementsByTagName("td").Length = 0
    DoEvents
Loop
Cells(2, 2) = ie.document.getElementsByTagName("td")(39).innertext
Cells(2, 3) = ie.document.getElementsByTagName("td")(45).innertext