Notifications
Clear all

Macro ALT+TAB e executar tarefa

2 Posts
2 Usuários
0 Reactions
1,266 Visualizações
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Bom dia amigos;

Caros, possuo o código abaixo, para realizar uma tarefa de baixar arquivos de um site, a questão é:

- Como faço para executar a macro e acessar essa pagina já aberta, e realizar o script abaixo, ja tentei usar: SendKeys ("%{TAB}"), mais ele não sai do excel:
Outra duvida, consigo colocar quantas etapas ele deve fazer o comando: SendKeys "{ENTER}", True , porque tem dias que tenho menos arquivo, outros tenho mais que 50 para baixar.

Sub Baixar_arquivos()
   
    SendKeys ("%{TAB}")
       
     sng = Timer
        Do While sng + 2 > Timer
    Loop
    
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
        
    sng = Timer
        Do While sng + 1 > Timer
    Loop
    SendKeys "{ENTER}", True
        sng = Timer
        Do While sng + 1 > Timer
    Loop
    SendKeys "{TAB}", True
    
    SendKeys "{ENTER}", True
        sng = Timer
        Do While sng + 1 > Timer
    Loop
    SendKeys "{TAB}", True
    
    MsgBox ("Arquivos baixados, verificar na pasta DOWNLOAD")
    
End Sub
 
Postado : 21/10/2016 7:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Conforme resposta em:
https://gurudoexcel.com/forum/viewtopic.php?f=12&t=3339

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/10/2016 8:44 am