Página 1 de 1

COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?

Enviado: Dom Jun 28, 2020 1:43 am
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

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

Enviado: Dom Jun 28, 2020 10:10 pm
por webmaster
mibs,

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

Att

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

Enviado: Seg Jun 29, 2020 5:02 pm
por mibs
Oi, obrigada pela resposta, já tentei e não acontece nada :cry:

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

Enviado: Ter Jun 30, 2020 2:13 pm
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

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

Enviado: Qua Jul 01, 2020 2:45 pm
por mibs
obrigada pela resposta,

Vou tentar aqui!