高分求救：请看下面这段代码，为什么在执行command2_click()后，内存中运行的Excel程序没有关闭

Question

Quit时，会有提示，
先设一下，试一试xlApp.DisplayAlerts = False
我要下班，明天见了

Answer 1

还是不行啊。quit时系统就没有提示

Answer 2

这些都不行。Excel 的窗口被关闭了，但是内存中的Excel程序仍在运行。
拜托哪位老大帮帮我，小弟感激不尽。我都快疯了，明天就要交程序啊!

Answer 3

在上面的代码中，如果在exc_app.quit后面再加上ENd结束程序，内存中的Excel就结束了，这到底时为什么？哪位高手能帮忙解决啊？

Answer 4

没有办法，我试了有半年了。我的解决方法是绕开关闭。即在程序开头打开对象,程序结束时再关闭。当中就用workbook对文件进行操作。一般是没问题的。

Answer 5

另：据“问专家”网站的李海说可以用这样的语句关闭，我没试过：    exc_app.quit
    set exc_app = nothing你可以试试，反正死马当活马医，如果可以请支一声。

Answer 6

严重错误!:exc_app.quit虽然能将EXCEL结束但是你的程序还没有释放EXCEL的资源,导致EXCEL结束以后将无法再次打开需重启系统的问题,而且你再点击COMMAND1的时候程序就会报错(在调试环境下将只能结束,在运行时则会弹出运行错误提示,点击OK后程序将结束).
下面告诉你真正的结束EXCEL的方法:
其实很简单,只要将你引用的资源全部释放即可!
完整的代码如下:
  '--------------------------- 
     exc_app.Quit
     Set exc_Sheet = Nothing
     Set exc_Book = Nothing
     Set exc_app = Nothing
'------------------------------
顺序不能颠倒.

Answer 7

顺序如下：生成application
生成workbook
生成worksheet
关闭workbook
set worksheet=nothing
set workbook=nothing
application.quit
set application=nothing
如果有这几个步骤，应该不会有问题的

Answer 8

这个问题我在使用Word对象遇到过，很多人没法解决。最后是exc_app.Visible = false就可以了，别的和你的程序一样，是一下。：）

Answer 9

'-------------------------------------------------------------
回复人：　lcooky(今夜无雪)　(2002-1-22 0:45:12)  得0分 
这个问题我在使用Word对象遇到过，很多人没法解决。最后是exc_app.Visible = false就可以了，别的和你的程序一样，是一下。：）  
'-----------------------------------是不行的,必须象tonton(tonton)和我说的才能真正关闭office,word也是一样的操作　

Answer 10

       Dim Ex As New excel.Application
       Dim ExBook As excel.Workbook
       Dim ExSheet As excel.Worksheet
       Ex.Quit
       Set ExSheet = Nothing
       Set ExBook = Nothing
       Set Ex = Nothing
绝对有效，我的程序中就是这样处理的。

Answer 11

关闭workbook
set worksheet=nothing
set workbook=nothing
application.quit
set application=nothing