作者twtimbow (上班不专心的ㄚ碰)
看板Visual_Basic
标题Re: [VB6 ] Excel WorkBook关闭问题
时间Wed Apr 9 11:29:01 2008
※ 引述《forkome (丁丁是个人材)》之铭言：
: 请问各位前辈
: 小弟的VB程式是使用一个Excel档当作范本
: 之後开启Excel物件塞值
: 不过因为某条件，需放弃塞值
: 但会残留EXCEL.EXE在工作管理员
: 爬文说需将WorkBook先close，不过问题来了
: 将塞值塞到一半的WorkBook给关闭会询问是否要存档
: 就算按否EXCEL.EXE依然存在
: 有什麽方式在WorkBook塞值後，Close时放弃存档呢？
: 也就是要如何才能成功关闭Excel物件，谢谢
: ExcelWookBook.Close SaveChanges:=False
: xlexcel.Application.quit
: Set xlexcel = Nothing
: 都无效，觉得是SaveChanges那边会有问题
以下给你参考一下...
Set xlap = New Excel.Application
Set xlwb = xlap.Workbooks.Open("C:\book1.xls")
xlwb.ActiveSheet.Range("a1").Formula = "1"
xlap.DisplayAlerts = False
xlwb.Close False
xlap.DisplayAlerts = True
xlap.Quit
Set xlwb = Nothing
Set xlap = Nothing
第1行的 New 是EXCEL.EXE在工作管理员内可以消失的关键
DisplayAlerts = False 则是WorkBook Close时放弃存档是否显示询问的点
--
赚P币~~赚P币~~赚P币~~赚P币~~赚P币~~赚P币~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.128.170.130
※ 编辑: twtimbow 来自: 220.128.170.130 (04/09 11:35)
1F：推 forkome:感谢~~ 04/10 21:20