优化每10分钟自定义目录自动备份代码

zylz9941

YZC51老师的代码：

Public yzc
Sub auto_open()                                     '打开文件后每10分钟执行宏
    Application.OnTime Now + TimeValue("00:10:00"), "auto_open"
    If yzc > 0 Then Call 备份
    yzc = yzc + 1
End Sub

Sub 备份()
    Dim yy, y
'    y = Format(Now, "ddhhmmss\.\x")                   '时间
    y = Format$(yzc, "000.\x")                          '时间
    yy = Replace(ActiveWorkbook.FullName, ".x", y)   '当前工作簿的路径和名称
    ActiveWorkbook.SaveCopyAs yy
End Sub

备份的文件名是原文件名+001，原文件名+002，原文件名+003.....,而且是在原文件目录中备份
如果把模块1里面的代码删除，备份的文件名不会变，扩展名中间少了.x(原文件的扩展名是.xlsm)
文件中的其他代码不要，只需要每10分钟在自定义目录中备份，备份的文件名按“ 原文件名+yyyy-mm-dd hhmm  ”命名
小白请各位老师赐教，谢谢 每10分钟自动备份文件.zip (20.67 KB, 下载次数: 4)

2024-11-19 11:09 上传

点击文件名下载附件

cidanji

换一个

cidanji

1. Public saveT As Date
   
2. Sub auto_open()
   
3.     Call 备份
   
4.     saveT = Now + TimeValue("00:10:00")
   
5.     Application.OnTime saveT, "auto_open"
   
6. End Sub
   
7. 
   
8. Sub auto_close()
   
9.     On Error Resume Next
   
10.     Application.OnTime saveT, "auto_open", , False
    
11. End Sub
    
12. 
    
13. Sub 备份()
    
14.     Set wb = ThisWorkbook
    
15.     wb.Save
    
16.     fn = wb.FullName
    
17.     nn = Left(fn, InStrRev(fn, ".") - 1)
    
18.     hz = Right(fn, Len(fn) - InStrRev(fn, ".") + 1)
    
19.     t = Format(Now, "yyyy-mm-dd hhmm")
    
20.     ActiveWorkbook.SaveCopyAs nn & t & hz
    
21. End Sub

复制代码

zylz9941

cidanji 发表于 2024-11-19 12:11

老师：你好，刚刚测试了一下，备份的文件名效果达到了，但是不管修改成多少分钟都不能自动备份，另外能不能增加个自定义备份的目录呢？这个代码还是备份在原文件目录的，麻烦老师再帮忙看看，谢谢。

zylz9941

cidanji 发表于 2024-11-19 12:11

老师：与版本有关系吗？我用的是office2010

zylz9941

cidanji 发表于 2024-11-19 13:08
换一个

老师：还有点小问题，麻烦再帮忙修改一下
1、用压缩包里面的原文件能够满足需求，但是文件已经关闭，还是会自动打开并备份（经测试，需要把excel所有文件关闭才会停止执行）
2、如果把代码粘贴到新建的文件中，打开不会自动备份，可以手动备份，到设定的备份时间提示“无法运行“’C:\Users\Administrator\Desktop\备份测试.x1s’!备份”宏。可能是因为该宏在此工作簿中不可用，或者所有的宏都被禁用。”，所有的宏确定都是启用了的。

cidanji

我也不知道为什么，我的电脑上不会
按理关闭簿时任务都取消过了

zylz9941

cidanji 发表于 2024-11-19 16:00
我也不知道为什么，我的电脑上不会
按理关闭簿时任务都取消过了

看您用的是wps，会不会是版本问题哟

cidanji

WPS、微软office一样的，我的两个软件都不会，会才是异常

zylz9941

cidanji 发表于 2024-11-19 16:58
WPS、微软office一样的，我的两个软件都不会，会才是异常

好像有个规律：如果是一个窗口打开几个文件就会出现异常，必须把所有文件关闭才能终止自动备份，已经非常感谢老师了