ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
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
Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
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
Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
Re: COMO FILTRAR LISTA SUSPENSA NO INTERNET EXPLORER COM VBA?
obrigada pela resposta,
Vou tentar aqui!
Vou tentar aqui!