VBA - Creates a text files and saves it

Post date: Oct 1, 2010 9:26:27 AM

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