脚本运行结束后，怎么关闭EXCEL进程，求代码

csj

每次QTP运行脚本都会打开EXCEL进程，随着脚本数目的增加，EXCEL的进程会很多，占用很多资源。求关闭该进程的vbs代码。

琛杰

是不是用了Excel后没有关掉释放吧

csj

是啊，关键是怎么释放啊？求代码

yujie6832

set a = createobject("excel.application")
.....
.....

excel.quit

set a = nothing

csj

不行，说是excel对象不存在

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

xyan

运行完后，直接杀死进程。systemUtil.CloseProcessByName("excel.exe")

ls_721521

关闭前得保存当前的sheet页。Workbooks。save  然后再excel.quit

csj

给个代码啊，不知道怎么弄撒

郝宁

'*********************************************************************************************
' 函数说明：打开工作薄
' 参数说明：
'          (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

看帮助文档吧。貌似SystemUtil有个方法是关闭QTP打开的东西

csj

Thank god