[推荐]定时保存工作簿

hhzjxss

问：怎样用VBA实现时间间隔工作?

 

比如说,我要求工作表每15分钟自动保存,怎样用VBA实现呢???????

 http://www.excelpx.com/forum.php?mod=viewthread&tid=25183&replyID=25183

答：

如下：

 

[此贴子已经被作者于2007-8-31 20:42:19编辑过]

hxqzccct

看一看

  学一学

lisenning

看看

hhzjxss

贴上代码：

'在下午 17:00:00 的时候显示一个对话框。
Sub Run_it()
Application.OnTime TimeValue("17:00:00"), "Show_my_msg"
'设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。
End Sub

Sub Show_my_msg()
msg = MsgBox("现在是 17:00:00 ！", vbInformation, "自定义信息")
End Sub

'模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次
Sub auto_open()
MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！"
Call runtimer '打开文档时自动运行
End Sub

Sub runtimer()
Application.OnTime Now + TimeValue("00:00:05"), "saveit"
' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。
End Sub

Sub SaveIt()
msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _
& "选择是：立刻存盘" & Chr(13) _
& "选择否：暂不存盘" & Chr(13) _
& "选择取消：不再出现这个提示", vbYesNoCancel + 64, "休息一会吧！")
'提示用户保存当前活动文档。
If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub
Call runtimer '如果用户没有选择取消就再次调用 Runtimer
End Sub

皮可

OKOK

哎哟-醉虾

大雨老师，你怎么不去过7段呢？

liyh67

[em17][em17]

龙行天下8888

开哈眼界

hhzjxss

QUOTE:

以下是引用哎哟-醉虾在2007-9-2 16:39:54的发言：
大雨老师，你怎么不去过7段呢？

六段都没过呀，七段就不敢去了！汗！

zhangyilike

把这帖顶出来[em01]