主题：几乎所有的代码都清除了，怎么还是提示设备未就绪啊？

BeforeCloseProject事件，路径不能访问。

Book.Save("c:\mifeng\" & p & format(Date.Now, "ddhhmm") & "销售.xls")

备份目录那里，换一个路径。