这个时候应该用SaveAs语句，用法如下：ThisWorkbook.SaveAs s你也可以指定路径：ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & s ThisWorkbook.SaveAs “D:\指定文件夹\" & s
因为在关闭之前，文件是打开的。就像你试图给一个正在打开的文件改名一样，会跳出警告。
