1、首先在电脑上鼠标右键单击任意Excel表格,在右键菜单中选择打开命令。
2、进去Excel界面之后,选择Excel菜单栏中的文件按钮。
3、然后选择新页面中的选项按钮。
4、然后在Excel选项窗口左侧选择保存按钮,接着勾选图示自动保存设置。
5、最后设置自动保存路径,然后单击下方的确定选项即可。
用自动保存的功能不好么?
'程序开头声明一个:
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
'跑一个死循环,循环里面含一个
sleep(6000)
SendKeys ("^s")
Sub 自动保存()
Dim NewTime
NewTime = Now + TimeValue("00:01:00")
ThisWorkbook.Save
Application.OnTime NewTime, "自动保存"
End Sub