excel 点保存时自动另存一个文件

来源：百度知道 编辑：UC知道 时间：2024/05/21 03:58:19
比如: 文件.xsl 在 D:\ab 下面

当点执行宏时, 同时要保存到 E:\cd 下面 文件名不变 ( 当前文件名 )

如下代码就可以实现：用现有文件名，保存到指定位置了，如果目标位置有同名文件，直接覆盖！

Sub SaveFlie()
Dim fName As String
On Error GoTo Err
fName = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="E:\CD\" & fName, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Err:
Application.DisplayAlerts = True
End Sub

可能是下面的一个或多个原因。

  1. 阅读的文档原来是在邮件上、云端或其他非本地磁盘上的。-解决办法是：先把文档下载到本地再阅读，如有修改这样可以直接保存。


2.文件属性是只读、有保护工作表的或以只读的方式打开的。-解决办法是：打开文件后先保存再阅读，这样即使突然断电也可恢复修改的内容。


3.其他非EXCEL文件（如PDF、Word文件），用了EXCEL打开。-解决办法是：尽量使用专门软件打开。


4.excel软件运行问题。-解决办法是：保存后再重启软件，最好是电脑重启。


5.宏病毒影响。-解决办法是：点击视图-宏，删除没必要的宏。