Question

用VBA另存excel文件，提示错误：运行错误’1004‘，方法’SaveAs‘作用于对象’-workbook‘时失败！！

用下面的语句另存excel文件，如果选择一个已经存在的文件覆盖保存，就会提示：在当前位置发现已经存在名为“***”的文件，您希望将该文件替换掉吗？如果我选择“N 不”或者“取消”会出错：运行错误’1004‘，方法’SaveAs‘作用于对象’-workbook‘时失败。
我要怎样做才能不出错呢？请各位专家、大虾们帮忙修改一下次代码！让这个EXCEL另存为的时候不再提示因上图提示的更新源文件而产生的运行错误！谢谢！
程序代码：
Private Sub CommandButton3_Click()
Dim afnold As String
ZCanSave = True
afnold = Application.ActiveWorkbook.FullName
If Application.Dialogs(xlDialogSaveAs).Show Then
Application.ActiveWorkbook.SaveAs afnold
End If
ZCanSave = False
End Sub

Answer 1

Dim afnold As String
ZCanSave = True
afnold = Application.ActiveWorkbook.FullName
If Application.Dialogs(xlDialogSaveAs).Show = False Then
Application.ActiveWorkbook.SaveAs afnold
Else
ActiveWorkbook.Close savechanges = False
End If
ZCanSave = False