Run Macro with Windows Task scheduler

Ive been looking at a bunch of examples, but everything that I have tried just gives me errors. Can someone help me with what code to use to make a vbs script to run in windows task scheduler that will...

Open "J:\Groups\BSHEETS\SDA\New EOD.xlsm"
Run the macro named "EODPrint"
Save the workbook
and close the workbook
Leaving excel open if other instances exist.

The issue there, is that other people put information into this spreadsheet daily, and I don't want it to print every time that its opened. Only at my scheduled time.

Originally Posted by scottatbuckman

The issue there, is that other people put information into this spreadsheet daily, and I don't want it to print every time that its opened. Only at my scheduled time.

You can add If statements to check the user/computer/time and decide if you want it to run a macro or not.

http://office.microsoft.com/en-us/ex...080557165.aspx

I would recommend you consider building a workbook template for multiple data submissions and have the macro workbook do reconciliation.

I have used two methods.

1. Make your own workbook and put in Windows Schedule and make it do what is needed in its Open event. In this method, I added a MsgBox so it will wait for a time so that I can cancel it should I want to edit it first.

2. Add a BAT file to Windows Schedule and pass parameters that your file would act on. For this method, see: http://www.vbforums.com/showthread.php?t=366559

So if I go the route of using another workbook, how would I go about running the macro in the workbook im needing to? I tried this, but it don't work.

Private Sub Workbook_Open()

Workbooks.Open "J:\Groups\BSHEETS\SDA\New EOD.xlsm"
Run "EODPrint"

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

Originally Posted by scottatbuckman

So if I go the route of using another workbook, how would I go about running the macro in the workbook im needing to? I tried this, but it don't work.

Private Sub Workbook_Open()

Workbooks.Open "J:\Groups\BSHEETS\SDA\New EOD.xlsm"
Run "EODPrint"

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

'Application.Run ("'Workbookname'!macroname")
Application.Run ("'New EOD.xlsm'!EODPrint")

I looked at it quite a bit, and tryed all kinds of things, the workbook opens, but i get an error saying the macro might not be available.

I also tried

Application.Run "New EOD.xlsm!EODPrint"

that worked, thanks slx