如何在SaveAs期间保留原始工作簿

Question

我正在尝试保留原始工作簿的打开并关闭所有其他已保存（使用不同名称保存）的文件而不重新打开。我通过点击按钮进行SaveAs。对此有何建议？

=--MID(SUBSTITUTE(B2,".",REPT(" ",99)),5*99,99)<>0

Answer 1

如果我必须使用您的代码，请尝试以下内容：

Option Explicit

Sub save()

    Dim obj_wb As Object

    Set obj_wb = ThisWorkbook

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "Audit checklist" & ".xlsm"
    MsgBox "File Saved successfully!", , "Save"
    Debug.Print obj_wb.Name
    Application.DisplayAlerts = True

    Set obj_wb = Nothing

End Sub

obj_wb是旧文件，可通过此变量访问。使用“ThisWorkbook”而不是“ActiveWorkbook”可能是个好主意。或者将它始终作为变量引用，而不是任何使用它们。