Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?
COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?
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
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?
mibs,
O id do dropdown de Unidade de Medida é VISAO_PRODUTO. Tentou pegar ele via getElementByID?
Att
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?
Oi, obrigada pela resposta, já tentei e não acontece nada
Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?
mibs,
O problema é que o controle VISAO_PRODUTO está dentro de um iframe. Algo do tipo precisa ser feito:
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
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)
Att
Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?
obrigada pela resposta,
Vou tentar aqui!
Vou tentar aqui!