vba怎样每隔10分钟自动保存文件？

gululukkk

有时太马虎会点到“不保存”按钮，工作簿所做的修改前功尽弃。想写一个每隔10分钟就自动保存文件的宏。咋写？

micch

1. Sub ontime()
   
2.     allpication.ontime Now() + TimeValue("00:10:00"), "wbsave"
   
3. End Sub
   
4. 
   
5. Sub wbsave()
   
6.     ThisWorkbook.Save
   
7.     Call ontime
   
8. End Sub
   
9. 
   
10. Private Sub workbook_open()
    
11. Call ontime
    
12. End Sub
    
13. 
    

复制代码

别怕 225页，

YZC51

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

Sub bc() '保存工作簿
    ThisWorkbook.Save
End Sub

YZC51

请参考
每隔10分钟自动保存文件.rar (12.55 KB, 下载次数: 192)

2018-12-22 12:42 上传

点击文件名下载附件

YZC51

或者
Public yzc
Sub auto_open()                                     '打开文件后每10分钟执行宏
    Application.OnTime Now + TimeValue("00:10:00"), "auto_open"
    If yzc > 0 Then ThisWorkbook.Save '‘Call bc
    yzc = yzc + 1
    'Sheet2.Cells(yzc, 1) = yzc
End Sub

啵啵岚

YZC51 发表于 2018-12-22 11:49
Public yzc
Sub auto_open()                                     '打开文件后每10分钟执行宏
    Appli ...

你好，请问这两行是做什么用的呢？   一定要有的吗？
yzc = yzc + 1
    'Sheet2.Cells(yzc, 1) = yzc

本人刚学没多久，看不大懂，还请带带哈。

feiyingdpm

啵啵岚 发表于 2020-2-19 00:03
你好，请问这两行是做什么用的呢？   一定要有的吗？
yzc = yzc + 1
    'Sheet2.Cells(yzc, 1) = yzc
...

不是必须有，只是用来避免第一次就保存，还可以记录你保存的次数，但是可能会运行出错，因为你不一定有sheet2去存这个数字，即使有sheet2，也可能抹掉原先的数据，所以推荐micch的代码

YZC51

啵啵岚 发表于 2020-2-19 00:03
你好，请问这两行是做什么用的呢？   一定要有的吗？
yzc = yzc + 1
    'Sheet2.Cells(yzc, 1) = yzc
...

可以试试
Options.SaveInterval = 10

啵啵岚

feiyingdpm 发表于 2020-2-19 04:32
不是必须有，只是用来避免第一次就保存，还可以记录你保存的次数，但是可能会运行出错，因为你不一定有sh ...

哦哦  这样啊   学到了   非常感谢您的回复