是否可以使保存按鈕（不保存爲按鈕）將文檔保存在特定路徑中？

Question

我想爲VBA excel中的驗證程序製作保存按鈕。

保存按鈕將文件保存在spesicic路徑中並根據文檔狀態自動重命名（Clean或Error）。

如果文件已經保存在文檔還是錯誤，該文件將被命名爲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