VBA执行保存后excel 不能退出

...
mySheet.Rows(myJGH).Delete Shift:=xlUp

eapp.ActiveWorkbook.Save

...

EAPP.ActiveWindow.Close
EAPP.ActiveWorkbook.Close
EAPP.Quit
set eapp=nothing


执行过一下代码后发现不能关闭EXCEL
请教如何正确关闭? --------------------编程问答-------------------- 回答过N次了
http://www.google.cn/search?q=tiger_zhao+excel+%E9%87%8A%E6%94%BE+site%3Atopic.csdn.net --------------------编程问答-------------------- 把eapp.ActiveWorkbook.Save 
改为eapp.ActiveWorkbook.Saveas试试
--------------------编程问答-------------------- mySheet.Rows(myJGH).Delete Shift:=xlUp
...
eapp.ActiveWorkbook.Save
eapp.Quit
Set eapp = Nothing
--------------------编程问答-------------------- 也就是说，下面的两句是多余的：
EAPP.ActiveWindow.Close 
EAPP.ActiveWorkbook.Close  --------------------编程问答-------------------- 不懂，up --------------------编程问答-------------------- 不懂，up --------------------编程问答-------------------- Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
...
...
 Pathfile = "C:\xxx.xls"
    xlApp.ActiveWorkbook.SaveAs Pathfile
  'ShowMsg"退出Excel 程序..."
    xlApp.Quit
    'ShowMsg "释放内存..."
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
我用上面的，都可以释放掉内存啊。
-----------------
另外一种方法就是：
For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit
参考：
若要将一个工作簿标记为已保存，而不真正写入磁盘，请将该工作簿的 Saved 属性设为 True。
如果是第一次保存工作簿，请使用 SaveAs 方法为该文件指定文件名。
--------------
第三种方法：
xlApp.ActiveWorkbook.Close SaveChanges:=False
xlApp.quit


参考查看：
Workbook.Close(SaveChanges, Filename, RouteWorkbook)

SaveChanges      Variant 类型，可选。如果工作簿没有改变则忽略此参数；如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿，则仍然忽略此参数；如果工作簿发生了改变并且没有在另外的窗口中打开，则此参数将指定是否在工作簿中保存所发生的更改。取值与操作如下表所示：

值 作用 
True 将改变保存到工作簿。如果该工作簿尚未命名，则使用 FileName 指定的名称。如果省略 FileName 参数，则要求用户输入文件名。 
False 不将改变保存到此文件。 
省略 显示一个对话框，要求用户决定是否保存所做的更改。 

FileName      Variant 类型，可选。以此文件名保存所做的更改。

这么多的方法，只要你安全无误的退出workbook，然后再用quit,set app=nothing 应该能释放内存的。 --------------------编程问答-------------------- 第三种方法：
xlApp.ActiveWorkbook.Close SaveChanges:=False  '退出不保存。

xlApp.ActiveWorkbook.Close SaveChanges:=True   '退出并保存。

xlApp.ActiveWorkbook.Close SaveChanges:=True Filename:="C:\xxx.xls"  '退出并保存。并指定保存路径。 --------------------编程问答-------------------- 好像都不行啊！ --------------------编程问答-------------------- 楼上几位提供的代码没有问题，检查一下你代码的所有有关EAPP等对象的语句，看看是不是改变过 --------------------编程问答--------------------

补充：VB ,  VBA