Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
OnTime VB
I want to refresh my data every day at 12am. Does something like this
make sence? Public RunWhen As Double Sub StartTimer() RunWhen = Time() = #12:00:00 AM# + TimeSerial(24, 0, 0) Application.OnTime earliesttime:=RunWhen, procedu="The_Sub", _ schedule:=True End Sub Sub The_Sub() ActiveWorkbook.RefreshAll StartTimer End Sub |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
OnTime VB
This makes more sense
Sub StartTimer() RunWhen = Date + 1 + TimeSerial(12, 0, 0) Application.OnTime earliesttime:=RunWhen, procedu="The_Sub", _ schedule:=True End Sub -- HTH Bob Phillips (remove xxx from email address if mailing direct) wrote in message oups.com... I want to refresh my data every day at 12am. Does something like this make sence? Public RunWhen As Double Sub StartTimer() RunWhen = Time() = #12:00:00 AM# + TimeSerial(24, 0, 0) Application.OnTime earliesttime:=RunWhen, procedu="The_Sub", _ schedule:=True End Sub Sub The_Sub() ActiveWorkbook.RefreshAll StartTimer End Sub |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
OnTime VB
You have more responses at your other thread.
wrote: I want to refresh my data every day at 12am. Does something like this make sence? Public RunWhen As Double Sub StartTimer() RunWhen = Time() = #12:00:00 AM# + TimeSerial(24, 0, 0) Application.OnTime earliesttime:=RunWhen, procedu="The_Sub", _ schedule:=True End Sub Sub The_Sub() ActiveWorkbook.RefreshAll StartTimer End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
OnTime VB | Excel Discussion (Misc queries) | |||
Can someone explain OnTime? | Excel Discussion (Misc queries) | |||
Excel 2003 / Windows XP Pulsating Excel screen !! | Excel Discussion (Misc queries) |