Thread: 2 Timers
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Harald Staff Harald Staff is offline
external usenet poster
 
Posts: 1,327
Default 2 Timers


Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,
schedule:=True
If Minute(Time) = 15 Then
If Second(Time) <= 30 Then UpdateOtherFile
End If
End Sub

HTH. Best wishes Harald

"Al" skrev i melding
...
OK Here is the 30 second code.....

Public RunWhen As Double
Public Const cRunIntervalSeconds = 30
Public Const cRunWhat = "Macro2"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,

schedule:=True
End Sub


Sub Stop_Timer()
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,

schedule:=False

End Sub


Sub Macro2()
Application.ScreenUpdating = False

On Error Resume Next
Kill "G:\Operations Planning\PowerWorld\mwdata.xls"
On Error GoTo 0
Workbooks.OpenText Filename:="G:\MyPath\Myfile.txt _
Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,

_
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:= _
"G:\mypath\myfile.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
' added line to schedule the next run
StartTimer
Application.ScreenUpdating = True
End Sub

Then every hour at 15 after my sub UpdateOtherFile() would run




"Harald Staff" wrote:

Hi Al

I'd put a "what time is is ?" check into the 30 sec loop and have that

one
call the once-an-hour-procedure at the right time. But you provide too
little detail to make me say "That's the very best solution" ;-)

HTH. Best wishes Harald


"Al" skrev i melding
...
I have code that runs every 30 second to update a file. I have

another
macro
that I need to run at 15 minutes after the hour to update another

file.
What
is the best approach to accomplish this?
Thanks for the help!
Al