在thisworkbook文件的代码窗口 粘贴下面代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open ("D:\Users\lan\Desktop\excel2011.xls")
Workbooks(1).Close
End Sub
这是你要打开的文件全名包括路径：D:\Users\lan\Desktop\excel2011.xls
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024