anderson.sales
Mensagens : 1
Data de inscrição : 05/12/2012
 | | Assunto: 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! | |
|
