当前Excel中加入如下的工作簿代码即可。Private Sub Workbook_BeforeClose(Cancel As Boolean)Workbooks.Open "D:\1234.xls"End Sub