Este fórum está sendo desativado

[badchico]

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 (Chrome), 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.

Código: Selecionar todos

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

[alexandrevba]

Bom dia!!

Leia:
http://www.tomasvasquez.com.br/blog/mic ... -webdriver

Deve te ajudar!

Att

[Mikel]

Badchico, boa tarde.

Havia respondi o mesmo tópico postado n Fórum do Tomás:
- Macro ALT+TAB e executar tarefa

Praticamente mesma sugestão do amigo Alexandre.

[DJunqueira]

Se vc tiver o link p/ um arquivo txt, csv, alguma planilha no site q vc quer baixar o arquivo vc pode baixa-lo direto p/ a sua planilha e ainda com algum tratamento de dados usando Nova Consulta.
Eu faço isso com algumas planilhas disponíveis p/ download da Bovespa.