接收不到 关闭excel文件的事件 ，如何解决？！！^0^
Sub openExcel(strFileName)
set app = createobject("excel.application")
app.visible=true
set xlBook = app.Workbooks.open(strFileName)
xlBook.Activate
xlBook.RunAutoMacros(1) '(xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros(2) '运行EXCEL关闭宏
xlBook.Save
End Sub
Sub Auto_Open()
msgbox("junjun55_open")
End Sub
Sub Auto_Close()
msgbox("junjun55_close")
End Sub
打开、关闭都接不到响应！！ 望各位帮忙解决！！ 谢谢！！！
