Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Problema em clicar em botão

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
gustavoh
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 18, 2020 1:13 pm

Problema em clicar em botão

Mensagem por gustavoh »

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 ?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Problema em clicar em botão

Mensagem por Raygsson »

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)

Código: Selecionar todos

objIE.Document.Frames.Item(0).Document.getElementById("ctl00_contentPlaceHolderConteudo_BuscaNomeEmpresa1_btnTodas").Click


gustavoh
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 18, 2020 1:13 pm

Re: Problema em clicar em botão

Mensagem por gustavoh »

Entendi, o problema é esse então. Muito obrigado!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder