Ist es möglich, die Schaltfläche Speichern (nicht als Schaltfläche speichern) zu speichern, um das Dokument in einem bestimmten Pfad zu speichern?

Question

Ich möchte speichern Schaltfläche für mein Validierungsprogramm in VBA Excel.

Mit der Schaltfläche Speichern wird die Datei in einem speziellen Pfad gespeichert und automatisch in den Status des Dokuments (Clean oder Error) umbenannt.

Wenn das Dokument speichern wurde, wenn das Dokument noch Fehler, wird die Datei error.xlsm benannt wird

Aber, wenn ich den Fehler des Dokuments beheben. Das Dokument wird als clean.xlsm bezeichnet. Es nervt mich, die erste Datei (error.xlsm) manuell zu löschen.

Ist es möglich, Speichern Schaltfläche speichern (nicht als Schaltfläche speichern) zu speichern Dokument in bestimmten Pfad speichern ohne Speichern als?

Hier ist mein Code:

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 

* Anmerkung: Sheets("C").Range("G23").Text enthält Status des Dokuments (sauber oder Fehler, wenn Formel)

Answer 1

diesen einen Versuch geben ...

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