Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Manipular janela pop up do internet explorer pelo VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
anderson.sales



Mensagens : 1
Data de inscrição : 05/12/2012

MensagemAssunto: Manipular janela pop up do internet explorer pelo VBA   Qua Dez 05, 2012 3:33 pm

Caros amigos, bom dia.
Estou desenvolvendo uma macro que entre num sistema web de minha empresa, insira os parametros de pesquisa, mande um submit e após isso, o sistema gera um arquivo em excel para download, ele abre uma janela pop up com as opções de "ABRIR", "SALVAR" e "CANCELAR". Eu quero salvar numa pasta específica que eu definir no código e com um nome específico que eu também defina no código.

Até o ponto de entrar no internet, colocar os parametros e submeter a pesquisa eu consegui, porém não consegui fazer o vba trabalhar com essa janela pop up.
Poderiam me ajudar??

Código:

Public Sub carregar()
On Error Resume Next
ActiveWorkbook.Sheets("Menu").Activate

 
        Set IE = GetObject("", "InternetExplorer.Application.1")
        IE.Visible = True
        IE.Navigate "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
        IE.Navigate "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
       
        Do While IE.Busy
        DoEvents
        Loop
        IE.Navigate "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
        Do While IE.Busy
        DoEvents
        Loop
            'Insere parametro Cluster/Regional
            IE.Document.GetElementbyid("cbCluster").Value = 137
            IE.Document.GetElementbyid("cbRegional").Value = "RIO DE JANEIRO"
            Do While IE.Busy
            DoEvents
            Loop
            'CLICA EM OK
            IE.Document.GetElementbyid("submit").Click
            'Aqui ela espera 1 minuto para gerar o arquivo, pois o Do while IE.Busy não reconhece quando a janela abre, pois o IE continua carregando.
            Call MyWaitMacro
                       
            Do While IE.Busy
            DoEvents
            Loop


Valeu camaradas, agradeço a atenção!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Manipular janela pop up do internet explorer pelo VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Deformação do meu fórum no Internet Explorer e Firefox!
» Erro no Css com internet explorer e Mozilla Firefox
» Código não compatível com Internet Explorer
» A página de registo não aparece no Internet Explorer
» Cursor personalizado no internet explorer

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: