VBA/Excel/Access/Word/Application/Application SendKeys

Clears Immediate window

   <source lang="vb">

Sub SendKeyActionToImmediateWindow()

   Application.VBE.Windows.Item("Immediate").SetFocus
   Application.SendKeys "^a"
   Application.SendKeys "{Del}"

End Sub

</source>
   
  

Sent key stroke with Application.SendKeys

   <source lang="vb">

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

</source>