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

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 包含文档状态（干净或错误的 if 公式）

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

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

Is it possible to make save button (not save as button) to save document in specific path?

vba

excel

save

save-as