Macro ALT+TAB e executar tarefa [RESOLVIDO]

[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

[Mikel Silveira Fraga]

Badchico, boa tarde.

Bem, quando falamos de interação entre Excel e Web, interessante seria utilizar uma das bibliotecas existentes para esse propósito.

Aqui no fórum, temos vários modelos para utilização da Microsoft Internet Control e do Selenium VBA. As duas bibliotecas seriam indicadas para se trabalhar com esse tipo de situação.

No entanto, existe um código que faz uma varredura em todas as janelas abertas na Barra de Tarefas do Windows e, conforme teste realizado (geralmente o endereço/URL do navegador), ele atribui este janela para um objeto. Segue código abaixo:

Código: Selecionar todos

Sub Assumir_Instancia_Aberta()

    Dim ShllWn As SHDocVw.ShellWindows
    Dim IntExp As SHDocVw.InternetExplorer

    Set ShllWn = New SHDocVw.ShellWindows
    
    For Each IntExp In ShllWn
        
        With IntExp
            
            If IntExp.LocationURL = "Título Google Chrome" Then
        
        	'Executa os comando necessários.
                
            End If
            
        End With
        
    Next
    
    Set ShllWn = Nothing
    Set IntExp = Nothing

End Sub

Sobre a quantidade de SendKeys, com a função {TAB}, não posso dizer muito, já que nunca fiz uso desse recurso. Mas, até onde conheço do mesmo, não existe limite para tal.

Espero que as dicas possam dar uma ajuda.

Abraços e bom final de semana.

[badchico]

ok Mikel, vou aprofundar o conhecimento do selenium que não conhecia,

um abraço e muito obrigado.

[Silva_Dhytm]

This code is:
Application.SendKeys ("%{TAB}")