[已解决]代码为什么不能关闭EXCEL程序

向前650809

各位网友好，现想利用代码不保存工作簿关闭工作簿，退出EXCEL程序界面，代码如下
ActiveWorkbook.Close savechanges:=False
    Application.Quit '关闭EXCEL程序
运行后，工作簿关闭，但不能退出EXCEL程序界面。如何修改代码，才能关闭工作簿同时也退出EXCEL程序界面。

请指导，谢谢。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-18 08:25

  
把2句顺序倒过来即可
     Application.Quit '关闭EXCEL程序
   ActiveWorkbook.Close savechanges:=False

跳转到最佳答案楼层

zjdh

  
把2句顺序倒过来即可
     Application.Quit '关闭EXCEL程序
   ActiveWorkbook.Close savechanges:=False

无聊的疯子

关闭的是当前程序的工作薄，则应该将 application.quit 放到 close 事件中

1. 
   
2. Public Tf As Boolean
   
3. Sub cc()
   
4.   Tf = True
   
5.   ActiveWorkbook.Close , False
   
6. End Sub
   
7. 
   
8. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
9. If Tf Then Application.Quit
   
10. End Sub
    

复制代码