用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就没有了 展开
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就没有了 展开
展开全部
使用xlapp.Quit后,理论上是退出Excel了。
虽然不知道为什么会发生楼主说的这样,但1楼的回答有点问题:
Set xlapp = CreateObject("excel.application")
是新打开了一个Excel 应用程序,
Set xlbook = xlapp.Workbooks.Open("C:\Documents......
不会打开新的Excel进程,只是在前面打开的Excel中打开了指定的Excel文档。
虽然不知道为什么会发生楼主说的这样,但1楼的回答有点问题:
Set xlapp = CreateObject("excel.application")
是新打开了一个Excel 应用程序,
Set xlbook = xlapp.Workbooks.Open("C:\Documents......
不会打开新的Excel进程,只是在前面打开的Excel中打开了指定的Excel文档。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询