Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Creates a text files and saves it

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