BeforeCloseProject事件,路径不能访问。
Book.Save("c:\mifeng\" & p & format(Date.Now, "ddhhmm") & "销售.xls")
备份目录那里,换一个路径。