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

ccittbeauty 2003-10-20 12:28:29

程序相关内容如下：
'变量对象及参数初始化
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).为什么会出现上面的错误呢？

请高手帮忙！！
非常感谢！！！！！！！！！！！！！！

...全文

356 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

ccittbeauty 2003-11-17

打赏
举报

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

ccittbeauty 2003-11-17

打赏
举报

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

WangPengAn 2003-11-17

打赏
举报

關閉的時候用下面的這句不保存退出應該可以了

xlApp.ActiveWindow.Close False
xlApp.Quit

taosihai1only 2003-11-01

打赏
举报

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

guoyx 2003-10-30

打赏
举报

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

ccittbeauty 2003-10-29

打赏
举报

再UP一下，解决问题另送100分。
能不能发个源码过来。

hansblue 2003-10-29

打赏
举报

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

ccittbeauty 2003-10-22

打赏
举报

to:hhjjhjhj
我用你的方法另存为xlt文件,则打印时直接进入EXCEL后会自动马上关闭.不知什么原因.
不用set xxxx=nothing这个对象会清掉吗?

您的意思是不是将set xlapp=new excel.application放在form_load里.
但每次使用要不要关xlbook.close 和xlapp.quit?
能再讲清楚一点吗?第一次使用excel和vb,烦请指教.

ccittbeauty 2003-10-21

打赏
举报

up一下,盼有人解决.

bigpig 2003-10-21

打赏
举报

hhjjhjhj 2003-10-21

打赏
举报

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

ccittbeauty 2003-10-21