Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Method 'OnTime' of object'_Application failed
Can anyone tell me why I get the following error when running the code
below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Method 'OnTime' of object'_Application failed
Untested but I think that the following variable is incorrectly declared.
Public RunWhenSplash As Boolean Try the following. Public RunWhenSplash As Date. I think that the following line will return False instead of a time when the variable is declared as Boolean instead of Date RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) -- Regards, OssieMac "ordnance1" wrote: Can anyone tell me why I get the following error when running the code below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Method 'OnTime' of object'_Application failed
Thanks for your reply.
I changed the Workbook_BeforeClose to what you see below. As to your other comment I changed from Public RunWhenSplash As Boolean, to Public RunWhenSplash As Double Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedu=cRunWhat, _ Schedule:=False On Error GoTo 0 End Sub "OssieMac" wrote in message ... Untested but I think that the following variable is incorrectly declared. Public RunWhenSplash As Boolean Try the following. Public RunWhenSplash As Date. I think that the following line will return False instead of a time when the variable is declared as Boolean instead of Date RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) -- Regards, OssieMac "ordnance1" wrote: Can anyone tell me why I get the following error when running the code below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Method 'OnTime' of object'_Application failed
Solved
"ordnance1" wrote in message ... Can anyone tell me why I get the following error when running the code below? Method 'OnTime' of object'_Application failed I have the following items in a public module Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated data from Calendar (in seconds) Public Const cRunWhat = "TheSub" ' the name of the procedure to run Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen (in minutes) Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in minutes) Public bSELCTIONCHANGE As Boolean Public Cancel As Boolean Public RunWhen As Double Public RunWhenSplash As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0) Application.OnTime RunWhenSplash, "ShowMySplash", , False End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Method 'MacroOptions' of object'_Application' failed Runtime Error 1004 | Excel Discussion (Misc queries) | |||
Method "Method 'Open' of object 'Workbooks' failed | Excel Programming | |||
ontime method? | Excel Programming | |||
ontime Method | Excel Programming | |||
Help me with OnTime Method | Excel Programming |