Excel VBA 自动保存
答案:2 悬赏:60 手机版
解决时间 2021-01-26 20:14
- 提问者网友：欺烟
- 2021-01-26 00:31
我想在 Excel 中通过 VBA 实现将表 ABCD 保存为 D:\OEM.CSV ，不需要确认，如果有就覆盖，谢谢了。
最佳答案
- 五星知识达人网友：封刀令
- 2021-01-26 01:44
在什么时候自动保存？假设在当前文件关闭前。
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
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
全部回答
- 1楼网友：人间朝暮
- 2021-01-26 03:15
先添加模块，输入：
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯