51Testing软件测试论坛

标题: 脚本运行结束后，怎么关闭EXCEL进程，求代码 [打印本页]

作者: csj 时间: 2010-6-10 17:08
标题: 脚本运行结束后，怎么关闭EXCEL进程，求代码
每次QTP运行脚本都会打开EXCEL进程，随着脚本数目的增加，EXCEL的进程会很多，占用很多资源。求关闭该进程的vbs代码。

作者: 琛杰 时间: 2010-6-10 17:33
是不是用了Excel后没有关掉释放吧

作者: csj 时间: 2010-6-10 18:00
标题: 回复 2# 的帖子
是啊，关键是怎么释放啊？求代码

作者: yujie6832 时间: 2010-6-10 18:29
set a = createobject("excel.application")
.....
.....

excel.quit

set a = nothing

作者: csj 时间: 2010-6-11 09:18
标题: 回复 4# 的帖子
不行，说是excel对象不存在

[ 本帖最后由 csj 于 2010-6-11 09:24 编辑 ]

作者: xyan 时间: 2010-6-11 09:37
运行完后，直接杀死进程。systemUtil.CloseProcessByName("excel.exe")

作者: ls_721521 时间: 2010-6-11 11:38
关闭前得保存当前的sheet页。Workbooks。save 然后再excel.quit

作者: csj 时间: 2010-6-11 11:51
标题: 回复 7# 的帖子
给个代码啊，不知道怎么弄撒

作者: 郝宁 时间: 2010-6-11 15:26
'*********************************************************************************************
' 函数说明：打开工作薄
' 参数说明：
'       (1)ExcelSH:Excel中要使用的Sheet对象;
'       (2)sheetName:要打开的工作薄Sheet名称;
'       (3)path:要打开的工作薄路径;
' 返回结果：
'       (1)成功：工作表对象ExcelSH
'       (1)失败：Nothing
' 调用方法:
'       OpenExcel (excelSH, "Test Data","C:\Documents and Settings\Administrator\Desktop\Test_Data.xls")
' @Version 1.0
' @Version
'*********************************************************************************************
Function OpenExcel (byRef excelSH, filePath, sheetName)
On Error Resume Next
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True
Set excelWK = excelApp.Workbooks.Open(filePath)
Set excelSH = excelWK.Worksheets(sheetName)
On Error GoTo 0
End Function

'*********************************************************************************************
' 函数说明：关闭Excel应用程序;
' 参数说明：
'       (1)ExcelApp:Excel应用程序名称;
' 调用方法:
'          CloseExcel(ExcelApp)
' @Version 1.0
' @Version
'*********************************************************************************************
Sub CloseExcel ()
On Error Resume Next
excelWK.Save
excelApp.Quit
Set excelSH = Nothing
Set excelWK = Nothing
Set excelApp = Nothing
err = 0
On Error GoTo 0

End Sub

作者: wyrf584 时间: 2010-6-11 20:49
看帮助文档吧。貌似SystemUtil有个方法是关闭QTP打开的东西

作者: csj 时间: 2010-6-12 11:28
标题: 回复 9# 的帖子
Thank god

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)