Notifications
Clear all

problema com a funcao Shell

2 Posts
2 Usuários
0 Reactions
894 Visualizações
(@paulovitor)
Posts: 29
Eminent Member
Topic starter
 

prezados colegas, o codigo abaixo dah argumento ou chamada de procedimento invalida. mas nao consigo ver o erro. ao que me consta, esta tudo certo aqui. podem me dar uma luz

Sub teclas()
    Dim x As String

     x = Shell("C:Userspaulo.vitorDesktopexcelteste.txt", vbNormalFocus)
     AppActivate "teste.txt", False

     SendKeys "123", True

End Sub
 
Postado : 27/04/2017 7:54 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

paulovitor

Bom dia!

Troque para:

Sub teclas()
     Shell "Notepad ""C:Userspaulo.vitorDesktopexcelTeste.txt""", vbNormalFocus
     SendKeys "123", True
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2017 8:09 am