用VB调用EXCEL 调用完以后,在任务管理器中还是有EXCEL.EXE 代码如下:

PrivateSubCommand3_Click()DimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsh... Private Sub Command3_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim m As Integer
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\vb与excel应用练习\EXCEL\各厅任务\生成任务汇总表")
xlapp.Visible = False
Set xlsheet = xlbook.Worksheets(Label7.Caption)
m = WorksheetFunction.CountIf(xlsheet.Range("B1:B5000"), (Text1.Text))
Text3.Text = m
xlbook.Close
xlapp.Quit
Set xlapp = Nothing
Set xlsheet = Nothing
Set xlbook = Nothing
End Sub
为什么一直没有释放EXCEL呢,导致任务管理器中还是有它,但是关闭VB以后任务管理器中的EXCEL就没有了
展开
 我来答
newudiab
2011-02-12 · TA获得超过131个赞
知道小有建树答主
回答量:177
采纳率:100%
帮助的人:142万
展开全部
使用xlapp.Quit后,理论上是退出Excel了。
虽然不知道为什么会发生楼主说的这样,但1楼的回答有点问题:
Set xlapp = CreateObject("excel.application")
是新打开了一个Excel 应用程序,
Set xlbook = xlapp.Workbooks.Open("C:\Documents......
不会打开新的Excel进程,只是在前面打开的Excel中打开了指定的Excel文档。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wwj805
2011-02-12 · TA获得超过1412个赞
知道小有建树答主
回答量:692
采纳率:55%
帮助的人:394万
展开全部
Set xlapp = CreateObject("excel.application")
这句是多余的吧,你新建了一个EXCEL进程。
下面这句是打开了一个进程
Set xlbook = xlapp.Workbooks.Open("C:\Documents......

而后面只退出了一个进程。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式