Excel - Timed Save 1

[DreamerZ]

I know you can set the AutoRecovery in Excel, but I'd like to be able to actually SAVE a workbook based on a period of time.

Is it possible? I can create loops (Do...Until, While...Wend, etc.), but they lock up Excel completely while in the loop. After the time period, the save is performed and I have it go back into the loop which locks up Excel again. Obviously, that's not usable.

Any suggestions? TIA!



DreamerZ
simplesolutions@prodigy.net
[ignore]

http://www.geocities.com/simplesolutions@prodigy.net

[/ignore]

 

[SkipVought]

Hi,

In your Do...Loop, insert a DoEvents statement



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[acron]

Or try Application.OnTime :

The following two subs should get you started

Sub TimerOn()
    Application.OnTime Now + TimeValue("00:15:00"), "TimedBackUp"
End Sub

Sub TimedBackUp()
    Thisworbook.Save
    TimerOn
End Sub

Run the first procedure which will set up XL to save the workbook 15 minutes later by calling the second procedure, TimedBackup. This saves the workbook abd then calls TimerOn so restarting the loop.

This should you leave you free to work between the 15 minute intervals.

A.C.

 

[DreamerZ]

Sheesh! I looked everywhere for some "timing" event. I completely missed the OnTime method.

Thank you A.C. That works perfectly.



DreamerZ
simplesolutions@prodigy.net
[ignore]

http://www.geocities.com/simplesolutions@prodigy.net

[/ignore]