为什么我的用下面的方法关掉EXCEL，进程中总有EXCEL.exe存在，当关机的时候却总要提示保存模板？？

Question

程序相关内容如下：
'变量对象及参数初始化
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open(App.Path + "\table\到款累计明细表.xls")
    Set xlSheet = xlBook.Worksheets("Sheet1")
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = True
    
..........'程序内容略
Screen.MousePointer = 13
      xlApp.Visible = True
    Set xlBook = Nothing
    Set xlApp = Nothing
    
    Screen.MousePointer = 0
用户想调出EXCEL然后可以进行修改另存为副本，如何让模板只读？？为什么我总是关不掉EXCEL。EXE这些文件呢？程序可照样执行，有四个这样的模板，我写了四个这样的函数。
函数内的程序段都与上面的程序结构相同。即每次申请一个新的application.然后关掉它。（set xlapp=nothing).为什么会出现上面的错误呢？请高手帮忙！！
非常感谢！！！！！！！！！！！！！！

Answer 1

xlApp.Application.Quit
xlApp.Quit
其它的你再找找,看哪个对象都有QUIT这个方法,都调用一下~~

Answer 2

不只是xlapp＝nothing就行，还用到其他activesheet之类的东西都要释放，才算结束，是在找不到，就用postmessage给进程中的excel.exe发结束消息（下下之选）

Answer 3

xlbook.close
set xlbook=nothing
xlapp.quit
set xlapp=nothing

Answer 4

如果用xlapp.quit 和 xlbook.close会退出EXCEL啊,直接进入后会提示是否保存模板.如果按否就退出了EXCEL,可是用户要求可以调出EXCEL修改.(只修改副本).
这个该如何去做?又如何让模板只读呢?
非常感谢大家的回答,请继续关注!!谢谢!!!!!!!!!!

Answer 5

1."如何让模板只读？？"-----设计前把 “到款累计明细表.xls”另存为.xlt文件 ----用这个文件
2。如要让客户自己关EXCEL
Set xlApp = New Excel.Application  ‘这句一次就够了
所有 Set XXXX = Nothing 都不需要
3。代码中不能用active 和 this 开头的对象
 每句都应以定义好的对象开始

Answer 6

to:hhjjhjhj
我用你的方法另存为xlt文件,则打印时直接进入EXCEL后会自动马上关闭.不知什么原因.
不用set xxxx=nothing这个对象会清掉吗?您的意思是不是将set xlapp=new excel.application放在form_load里.
但每次使用要不要关xlbook.close 和xlapp.quit?
能再讲清楚一点吗?第一次使用excel和vb,烦请指教.

Answer 7

帮你UP一下吧,我也遇到这样的问题,不知道为什么总是关不掉,但如果app对象,又会直接关掉EXCEL.
关注....

Answer 8

xlSheet.SaveAs (App.Path + "\" + strDestination) 
    xlQuery.Delete
    xlBook.Close
    Set xlQuery = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing  '"交还控制给Excel

Answer 9

xlBook.Close
    Set xlQuery = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing  '"交还控制给Excel

Answer 10

xlbook.close就会将excel直接关闭了,不能调出excel.

Answer 11

弹出对话框,询问是否要保存?如果点取消可以进EXCEL,但关闭EXCEL后,还是有excel.exe进程存在.

Answer 12

關閉的時候用下面的這句不保存退出應該可以了
        
        xlApp.ActiveWindow.Close False
        xlApp.Quit