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