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

COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

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.
mibs
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jun 26, 2020 4:19 pm

COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

Mensagem por mibs »

Boa noite!

estou tentando realizar o acesso em um site através do vba no navegador IE. Travei em uma parte em que preciso filtrar uma informação num objeto que eu não sei se é um menu suspenso ou uma caixa de listagem, gostaria da ajuda de voces, estou começando agora então me desculpem a minha ignorancia, rsrs.

Segue código:

On Error Resume Next
Dim Endereço As String
Dim MyBrowser As SHDocVw.InternetExplorer
Dim SWs As New SHDocVw.ShellWindows

Endereço = "http://www.fnde.gov.br/painel/painelmapa_ppp_pr.html#"

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate (Endereço)
ie.Visible = True

ie.Document.getElementByID("div.modal-content").Focus
ie.Document.getElementByID("concordo").Click

'Tentativas de selecionar a opção "QUILO" no menu "Unidade de Medida"
ie.Document.getElementByID("col-xs-6 last").Focus
ie.Document.all.Item("VISAO_UNIDADE_MEDIDA").selectedindex = 3
ie.Document.getElementByID("VISAO_UNIDADE_MEDIDA").Item.Value = "QUILO"
ie.Document.getElementByID("VISAO_UNIDADE_MEDIDA").selectedindex = 3


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

Mensagem por webmaster »

mibs,

O id do dropdown de Unidade de Medida é VISAO_PRODUTO. Tentou pegar ele via getElementByID?

Att


mibs
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jun 26, 2020 4:19 pm

Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

Mensagem por mibs »

Oi, obrigada pela resposta, já tentei e não acontece nada :cry:


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

Mensagem por webmaster »

mibs,

O problema é que o controle VISAO_PRODUTO está dentro de um iframe. Algo do tipo precisa ser feito:

Código: Selecionar todos

Set iframe = ie.document.frames(1)
Primeiro, você tem que achar qual dos iframes o controle esta (se houver mais de um). Depois dessa linha, você pode usar todas as funções disponíveis no IE.Document, como iframe.getElementById, etc.

Att


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.


mibs
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jun 26, 2020 4:19 pm

Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

Mensagem por mibs »

obrigada pela resposta,

Vou tentar aqui!


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