Excel VBA 自动保存

我想在 Excel 中通过 VBA 实现将表 ABCD 保存为 D:\OEM.CSV ，不需要确认，如果有就覆盖，谢谢了。

在什么时候自动保存？假设在当前文件关闭前。
ALT+F11，双击THISWORKBOOK，添加代码

============================================

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False '关闭提示信息
Application.ScreenUpdating = False '关闭屏幕显示
Sheets("ABCD").Copy '指定工作表复制为独立文件
ActiveWorkbook.SaveAs Filename:="D:\OEM.CSV ", FileFormat:=xlCSV
ActiveWindow.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

先添加模块，输入： sub autosave()     dim start, pausetime     do while true         pausetime = 3600    '3600秒，1小时，根据需要换其他时间         start = timer         do while timer < start + pausetime             doevents         loop         activeworkbook.save     loop end sub在thisworkbook的open事件中的代码： private sub workbook_open()   application.ontime now + timevalue("00:00:10"), "autosave"    '打开后稍等片刻，开始进入自动判断时间，时间达到要求后保存，并一直循环直到关闭 end sub