Macro ALT+TAB E Executar Tarefa [RESOLVIDO] - Tomás Vásquez

Trang chủ » Visual Basic Sendkeys Alt Tab » Macro ALT+TAB E Executar Tarefa [RESOLVIDO] - Tomás Vásquez

Có thể bạn quan tâm

Re: Macro ALT+TAB e executar tarefa

  • Citar

Mensagem por Mikel Silveira Fraga » Sex Out 21, 2016 11:54 am

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.
  • Share on Facebook
  • Share on Twitter

Từ khóa » Visual Basic Sendkeys Alt Tab