关闭之前保存一下不就好了在关闭的代码前再加一行，Thisworkbook.save
在代码开始加上Application.DisplayAlerts = False在代码结束加上Application.DisplayAlerts = true不知道能否满足你的要求
Workbooks("Book1.xls").Close False
