Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Excel - Timed Save 1

Status
Not open for further replies.

DreamerZ

Programmer
Jul 11, 2001
254
US
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][/ignore]
 
Or try Application.OnTime :

The following two subs should get you started
Code:
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.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top