Excel VBA code to SaveAs a specific filename and close the active workbook

Question

我需要在现有子目录的末尾添加什么VBA代码，以将活动工作簿另存为“ finaloutput.xls”，然后在不保存更改的情况下自动关闭工作簿？

Answer 1

You could use something as simple as this, which I put in another workbook and executed from the Tools...Macros menu (Alt+F8) after activating the workbook to be saved.

Public Sub SaveAsAndClose()

    ActiveWorkbook.SaveAs "finaloutput.xls"
    ActiveWorkbook.Close

End Sub