插入模块,输入以下代码:
Sub otime()'一分钟后自动运行WbSave过程Application.OnTime Now() + TimeValue("00:01:00"), "WbSave"End SubSub WbSave()ThisWorkbook.Save '保存本工作簿Call otime '再次运行otime过程End SubSub otime() '一分钟后自动运行WbSave过程 Application.OnTime Now() + TimeValue("00:01:00"), "WbSave" End Sub Sub WbSave() ThisWorkbook.Save '保存本工作簿 Call otime '再次运行otime过程 End Sub
在ThisWorkbook插入以下代码:
Private Sub Workbook_Open()Call otime '打开工作簿后自动运行otime过程End SubPrivate Sub Workbook_Open() Call otime '打开工作簿后自动运行otime过程 End Sub
另存为XLSM格式,重新打开工作簿,即可得到自动保存的工作簿