#VBA #Excel #Application.SendKeys
Sem muito para escrever aqui, mas o vídeo está bem legal :)
Código do vídeo:
Sub VamosTestarOSendKeys()
Application.SendKeys "%" 'ALT
Application.SendKeys "a"
End Sub
Sub Teste()
With Application
.SendKeys "^{ESC}"
.Wait Now + TimeValue("00:00:01")
.SendKeys "Chrome"
.Wait Now + TimeValue("00:00:01")
.SendKeys "~"
.Wait Now + TimeValue("00:00:01")
.SendKeys "Microsoft Excel"
.SendKeys "~"
.Wait Now + TimeValue("00:00:01")
.SendKeys "{TAB}"
.Wait Now + TimeValue("00:00:01")
.SendKeys "~"
.Wait Now + TimeValue("00:00:01")
.SendKeys "~"
.Wait Now + TimeValue("00:00:01")
End With
End Sub
Método Application.SendKeys: docs.microsoft.com/pt-br/office/vba/api/excel.application.sendkeys
Acesse também
BLOG ► www.tomasvasquez.com.br/blog/
FÓRUM ► www.tomasvasquez.com.br/forum/
CURSO ONLINE DE C# ► www.tomasvasquez.com.br/cursocsharp
Aqui também!
FACEBOOK ► facebook.com/tomasvaquezsites
TWITTER ► twitter.com/tomamais
GOOGLE+ ► plus.google.com/+TomasvasquezBr/
Roteiro, apresentação, edição, etc, etc ► eu mesmo :)
Негізгі бет VBA - A mágica do Application.SendKeys
Пікірлер: 93