Timed Executable

KennethMungwira · July 24th, 2006, 09:19 AM

I have an excel file which contains Macros which I would like to run every day before I get to work. Since my company makes us shut down our computers, I would like to place an executable on one of the servers to Fire my Macros @ 7:00A.M everyday.

Does anyone have any code to do this?

To fire at 7:00 am,
1)Open Test.xls -on my- "Y:\Cost\Wally\Past Daily Runs\Test.xls
2)Execute macro 'Sub Test'
3)Shut down.

Thank you

Appreciate your help

DanRoche · July 28th, 2006, 10:55 AM

Add Microsoft Excel 9.0 Object Library as a reference

Put this in your general declarations

Code:

Dim oExcel As New Excel.Application

Put this in your Form's initialize event

Code:

oExcel.Visible = False
oExcel.DisplayAlerts = False
oExcel.Workbooks.Open ("Y:\Cost\Wally\Past Daily Runs\Test.xls")

Add a Timer control to your form. Change the interval property from 0 to 1.

In the timer event of the Timer control, put the following code

Code:

If Time = "7:00:00 AM" Then
  oExcel.Run "Sub Test"
  oExcel.ActiveWorkbook.Save
  oExcel.Quit
  End
End If

This worked for me using VB6 and Excel 2000