砥砺前行,蜗牛也上网
电脑、VPS技术分享站

WPS表格自己做定时保存

对于office和wps,能看到这篇文章的朋友大多都接触过,我个人之前喜欢用office现在更喜欢用wps,原因很简单:它有很多人性化的功能,运行速度也比office同时期的版本更快(我曾经用同一个表格文件做过测试,WPS用的最新11.1.0.11691、office为2021专业版,wps下几乎是无感操作,点哪儿指哪儿,计算也感觉不到;反观office2021打开后状态栏就一直显示在计算,还有个百分比,这时你点哪儿都转圈)。但现在新版的wps有个功能我用不惯-----那就是自动保存,现在最新版改成了“备份中心”,但这个自动备份并不是直接备份你现在编辑的文件,而是给这个文件保存一个副本,当程序异常退出后可以恢复,但如果是正常操作则不会出现。这种设计我不喜欢,天晓得当出现异常时文档能不能恢复,我更喜欢能自己掌控的方式。忙的时候只顾着噼哩啪啦做事,不会想着隔断时间保存一下,万一出现异常文件没法恢复,真是想死的心都有。OK,废话不再说了,直接进入正题-----自己整一个随心所欲的自动定时保存

既然说了我喜欢用WPS,那么接下来的操作都是在WPS里完成的

首先你得把工作簿文件保存为.xlsm(启用了的工作簿)。然后打开vb编辑器,先插入一个“模块”,在下图位置点右键调菜单,按图操作

接着双击”模块1“插入代码

下面这段代码是用来定时的,Now + TimeValue("00:00:20")是说在当前时间基础上加20秒(这里间隔多久你作主,第一个00是小时,第二个00是分钟,最后这个是秒),要做什么呢?Procedure:="auto_save"这里说了,运行名为"auto_save"的过程

Sub timestart()
Application.OnTime Now + TimeValue("00:00:20"), Procedure:="auto_save"
End Sub

"auto_save"过程做些什么呢?就两件事:1、保存工作簿;2、再次启动定时过程;

Sub auto_save()
ThisWorkbook.Save
timestart
End Sub

上面两个过程什么时候运行呢?接着看图

你按图中顺序操作,这什么意思呀?"ThisWorkbook"是指本工作簿(也就是你现在编辑的这个文件),我们在工作簿打开时(Open)启动定时过程,运行上面的timestart。

上面提到的"timestart"和"auto_save"是自定义的过程名称,可以自行更改。

完成以上工作后妈妈再也不用担心我的文件没保存而丢失数据啦!

写在最后:这种方法首先需要有一定动手能力才能完成,另外只对单个文件有效,你要是有多个文件需要设置自动保存,那上面的步骤都得走一遍。优点也有:定时保存时间更自由,可以精确到秒;文件是直接保存而非保存为副本。



微信扫描下方的二维码阅读本文

赞(0) 打赏

本站所有附件解压密码均为:zxmvps.com

未经允许不得转载:上网的蜗牛 » WPS表格自己做定时保存

请不吝赐教 抢沙发

  • Q Q (选填)
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址 (选填)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏