Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3787|回复: 7

怎么用VBA定时保存工作表

[复制链接]
发表于 2013-8-15 23:33 来自手机 | 显示全部楼层 |阅读模式
怎么用VBA定时保存工作表,最好上传附件
发表于 2013-8-15 23:38 | 显示全部楼层
http://www.excelpx.com/thread-25186-1-1.html
贴上代码:

'在下午 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
回复

使用道具 举报

 楼主| 发表于 2013-8-16 00:47 来自手机 | 显示全部楼层
我对VBA不熟,能不能传过附件给我?谢谢!!
回复

使用道具 举报

发表于 2013-8-16 07:31 | 显示全部楼层
本帖最后由 我心飞翔410 于 2013-8-16 07:37 编辑
sghy_w123 发表于 2013-8-16 00:47
我对VBA不熟,能不能传过附件给我?谢谢!!


呜呜
还是要学的 不然你不会根据自己情况处理问题

1234.rar

5.47 KB, 下载次数: 11

回复

使用道具 举报

 楼主| 发表于 2013-8-16 22:51 | 显示全部楼层
先谢过了!!
回复

使用道具 举报

 楼主| 发表于 2013-8-17 12:14 | 显示全部楼层

RE: 怎么用VBA定时保存工作表

我心飞翔410 发表于 2013-8-16 07:31
呜呜
还是要学的 不然你不会根据自己情况处理问题

老师你定时保存工作表这附件是定在几时保存的???
回复

使用道具 举报

发表于 2013-8-17 12:17 | 显示全部楼层
sghy_w123 发表于 2013-8-17 12:14
老师你定时保存工作表这附件是定在几时保存的???


他有个时间嘛  你自己试试 你可以自己输啊 你看看代码都有说明的啊 研究哈 你就明白了
回复

使用道具 举报

发表于 2020-2-29 17:46 | 显示全部楼层
不错,有用,拷贝下来。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 20:03 , Processed in 0.302173 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表