Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

SendKeys to another application

Sub SKeys()          Dim dReturnValue As Double          dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)          AppActivate dReturnValue          Application.SendKeys "Copy Data.xlsx c:\", True          Application.SendKeys "~", True          Application.SendKeys "%FABATCH%S", True      End Sub