EXCEL文件关闭时自动另存为

发布网友发布时间：2022-04-30 14:40

共5个回答

热心网友时间：2022-06-23 06:47

可以通过VBA实现，写一个宏，设定为关闭时运行。
另存为VBA代码如下：
Do While Not Flag '循环要求必须输入文件名或者选择文件名
fm=Application.GetSaveAsFilename(fileFilter:="Excel Files(*.xls),*.xls,All files(*.*),*.*")
If fm <>Flase Then
Activeworkbook.saveAs fm '当前活动工作薄另存
flag=true
end if
loop

热心网友时间：2022-06-23 06:47

工具---常规---默认文件位置----设置需要保存的位置---确定。

热心网友时间：2022-06-23 06:48

你把这个文件放在这个文件夹下，以后每次打开就都在这个文件夹下了。

热心网友时间：2022-06-23 06:48

不能自动另存到指定位置，但是可以生成另外的文件。
文件-另存为-工具-常规选项-勾选生成备份文件！
PS:也可以用VBA实现！

热心网友时间：2022-06-23 06:49

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
ThisWorkbook.SaveAs ("F:\456.xlsm")
End Sub