excel vba‎ > ‎

VBA - Creates a text files and saves it

posted Oct 1, 2010, 2:26 AM by Roberto Felicini
Sub SKeys()
   Dim ReturnValue
   ReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
   AppActivate ReturnValue
   Application.SendKeys "Copy Data.xls c:\", True
   Application.SendKeys "~", True
   Application.SendKeys "%FABATCH~", True
End Sub

Comments