Olá pessoal, estou tentando fazer um código simples de clicar em botão com VBA + IE, mas estou obtendo um erro de "Erro em tempo de execução 424 . O Objeto é obrigatório". Não estou entendendo o motivo desse erro porque é um código muito simples, onde o objeto possui ID. Segue o código:
Sub empresas()
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
Dim botao As Variant
objIE.Visible = True
objIE.Navigate "http://www.b3.com.br/pt_br/produtos-e-s ... stadas.htm"
While objIE.Busy Or objIE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
botao = objIE.Document.getElementById("ctl00_contentPlaceHolderConteudo_BuscaNomeEmpresa1_btnTodas")
Application.Wait (Now + TimeValue("00:00:02"))
botao.Click 'O erro acontece aqui
End Sub
Alguém sabe qual o problema ?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Problema em clicar em botão
Re: Problema em clicar em botão
O seu elemento esta dentro de um Iframe e este está bloqueado para acesso por automação/macro, a resposta recebida é "Acesso Negado"
Um código para acessar o elemento seria este: (se não estivesse bloqueado)
Um código para acessar o elemento seria este: (se não estivesse bloqueado)
Código: Selecionar todos
objIE.Document.Frames.Item(0).Document.getElementById("ctl00_contentPlaceHolderConteudo_BuscaNomeEmpresa1_btnTodas").Click