脚本运行结束后，怎么关闭EXCEL进程，求代码
每次QTP运行脚本都会打开EXCEL进程，随着脚本数目的增加，EXCEL的进程会很多，占用很多资源。求关闭该进程的vbs代码。 是不是用了Excel后没有关掉释放吧回复 2# 的帖子
是啊，关键是怎么释放啊？求代码 set a = createobject("excel.application").....
.....
excel.quit
set a = nothing
回复 4# 的帖子
不行，说是excel对象不存在[ 本帖最后由 csj 于 2010-6-11 09:24 编辑 ] 运行完后，直接杀死进程。systemUtil.CloseProcessByName("excel.exe") 关闭前得保存当前的sheet页。Workbooks。save然后再excel.quit
回复 7# 的帖子
给个代码啊，不知道怎么弄撒:( '*********************************************************************************************' 函数说明：打开工作薄
' 参数说明：
' (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 看帮助文档吧。貌似SystemUtil有个方法是关闭QTP打开的东西
回复 9# 的帖子
Thank god
页:
[1]
