Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Sent key stroke with Application SendKeys

Public Sub SendKeyTest()   Dim ReturnValue As Double   ReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)   Call AppActivate(ReturnValue)      Application.SendKeys "Copy Data.xls c:\", True   Application.SendKeys "~", True   Application.SendKeys "%FABATCH~", True End Sub