自动保存工作簿的完美方案[VBA代码解释]

轩辕轼轲

众所周知，Excel自带的自动保存功能是有缺陷的，当我们工作表处于交互状态的时候，自动保存功能就不怎么管用了，过了时间点，它就要等下一次时间点保存。下面介绍一种完美的进行自动保存的方法（每10分钟自动保存一次），希望大家能够喜欢。

第一步： 添加Thisworkbook的代码如下：      

1. 
   
2. Private Sub Workbook_Open()    '打开工作簿代码生效      
   
3. T = Now          '取当前的系统时间
   
4. For i = 1 To 72       '每10分钟保存一次，打开工作簿后的12个小时有效，所以总共要设置72个时间点  
   
5. Application.OnTime T + (1 / 24 / 6) * i, "自动保存"          '给一个时间进行加1的操作，表示是加1天，所以要换算成分钟
   
6. Next i         
   
7. End Sub         
   
8. Private Sub Workbook_BeforeClose(Cancel As Boolean)       '关闭工作簿的时候，停止ON TIME事件
   
9. On Error Resume Next      '关闭工作簿的时候防错处理
   
10. For i = 1 To 72         
    
11. If T + (1 / 24 / 6) * i > Now Then Application.OnTime T + (1 / 24 / 6) * i, "自动保存", , False    '停止未执行的On Time事件   
    
12. Next         
    
13. End Sub        

复制代码

第二步： 插入一个模块，在这个公共模块里面输入下面的代码：        

游客，如果您要查看本帖隐藏内容请回复

fjmxwrs

学习下老师的代码，谢谢

ilyou2049

实用的代码，学习了

年龄

实用的代码，学习了

tkgg93

收藏备用，谢谢楼主

zjk831

   学习。。。

老糊涂

{:35:}{:35:}

天意fe

{:35:}{:35:}

imuv

收藏备用，谢谢楼主

imuv

收藏备用，谢谢楼主{:011:}