Automatically Opens a Workbook in given date and time

[villy]

Hi everyone,
I'm here again for a new thread that would also be helpful to others, I guess so.
I just want to know how I can instruct excel to open automatically in a given date and time. Not only that but, it will run a vba program then close (note that it should be done unnoticeable by any user-it means a program run through a workbook like nothing happens).

I know someone is really brilliant to know it is so simple.

Thanks in advance.

________________________________
"There's a perfect place and time for everything."

 

[Sektor]

Tell Excel to open himself?

 

[villy]

Something like that.. I know it is possible to give .ontime value to make it automatically open and close the workbook. How?I don't know...

Any idea will be greatly appreciated thanks

 

[Sektor]

Ah, I see now. Something like that:

[COLOR="Blue"]Sub[/COLOR] Launcher()
[COLOR="Green"]    ' Run Sub at 3PM.[/COLOR]
    Application.OnTime [COLOR="Blue"]Date[/COLOR] + TimeSerial(15, 0, 0)
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

[COLOR="Blue"]Sub[/COLOR] OpenWorkbook()
    [COLOR="Blue"]Dim[/COLOR] wkb [COLOR="Blue"]As[/COLOR] Workbook
    [COLOR="Blue"]Set[/COLOR] wkb = Workbooks.Open("PATH_TO_WORKBOOK")
[COLOR="green"]    ' Execute Sub in opened workbook.[/COLOR]
    wkb.Application.Run "Module1.CloseWorkbook"
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[villy]

I go it but can you make it a little clearer?
where should I put the sub part and where it should be called to?

What "Module1.CloseWorkbook" do?
supposed I have a module name modLog it will be replaced to Module1 right? and why it is .closeworkbook can you explain please..
thanks

 

[Sektor]

I apologize - I forgot to mention Sub to be called.

[COLOR="Blue"]Sub[/COLOR] Launcher()
[COLOR="Green"]    ' This launches "OpenWorkbook" Sub at 3PM.[/COLOR]
    Application.OnTime [COLOR="Blue"]Date[/COLOR] + TimeSerial(15, 0, 0), "OpenWorkbook"
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

[COLOR="Blue"]Sub[/COLOR] OpenWorkbook()
    [COLOR="Blue"]Dim[/COLOR] wkb [COLOR="Blue"]As[/COLOR] Workbook
    [COLOR="Blue"]Set[/COLOR] wkb = Workbooks.Open("PATH_TO_WORKBOOK")
[COLOR="green"]    ' This statement calls "CloseWorkbook" Sub in module "Module1" in opened workbook.[/COLOR]
    wkb.Application.Run "Module1.CloseWorkbook"
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[villy]

Thanks for that let me try it and be back to you in time..
Thanks again

 

[villy]

I just remember my workbook has a password, will it work with it? How can I overpass the password dialog or can I set into code to input the password automatically?
Thanks

 

[Sektor]

[COLOR="Blue"]Set[/COLOR] wkb = Workbooks.Open("PATH_TO_WORKBOOK", [B][COLOR="Red"]Password:="YOUR_PASSWORD"[/COLOR][/B])

 

[villy]

Thanks let me try this one...