是否可以制作保存按钮（不另存为按钮）以将文档保存在特定路径中？

Question

我想在 VBA excel 中为我的验证程序制作保存按钮。

保存按钮会将文件保存在特定路径中，并根据文档状态（清洁或错误）自动重命名。

如果文件已经保存，但文件仍然出错，文件将命名为error.xlsm

但是，当我修复文档错误时。该文档将命名为 clean.xlsm。 手动删除第一个文件（error.xlsm）让我很烦。

是否可以在不使用另存为的情况下使保存按钮保存（不是另存为按钮）以将文档保存在特定路径中？

这是我的代码：

Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs Filename:="D:\" & Sheets("C").Range("G23").Text & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

*注意：Sheets("C").Range("G23").Text 包含文档状态（如果公式为干净或错误）

Answer 1

试试这个...

Private Sub CommandButton2_Click()
Dim fName As String
Application.DisplayAlerts = False
fName = ActiveWorkbook.Sheets("C").Range("G23").Value
ActiveWorkbook.SaveAs FileName:="D:\" & fName & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _
    ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
On Error Resume Next
Select Case fName
    Case "Error"
        Kill "D:\Clean.xlsm"
    Case "Clean"
        Kill "D:\Error.xlsm"
End Select
End Sub