VBS读EXCEL后如何关闭EXCEL进程

xiaoqiang_888

读excel代码如下

1. 
   
2. Function ImportDataSheet(sFileName,sSheetName,sDataTable)
   
3.     On Error Resume Next
   
4.                 Dim excelApp
   
5.                 Dim excelSheet
   
6.                 Dim colCount
   
7.                 Dim rowCount
   
8.                 Dim param
   
9.                 DataTable.DeleteSheet sDataTable
   
10.                 DataTable.AddSheet sDataTable
    
11.                 Set excelApp = CreateObject("Excel.Application")
    
12.                 excelApp.workBooks.open(sFileName)
    
13.                 bSheetExist=False
    
14.                 For i=1 to excelApp.sheets.Count
    
15.                         If sSheetName=excelApp.sheets.item(i) Then
    
16.                                 bSheetExist=True
    
17.                         End If
    
18.                 Next
    
19.                 If bSheetExist Then
    
20.                         Set excelSheet = excelApp.sheets.item(sSheetName)
    
21.                         colCount = excelSheet.usedRange.columns.count
    
22.                         For i = 1 to colCount
    
23.                                 param = excelSheet.cells(1,i)
    
24.                                 DataTable.GetSheet(sDataTable).AddParameter param,""
    
25.                         Next
    
26.                         rowCount = excelSheet.usedRange.rows.count
    
27.                         For i = 2 to rowCount
    
28.                         DataTable.GetSheet(sDataTable).SetCurrentRow i-1
    
29.                         For j = 1 to colCount
    
30.                                 param = excelSheet.cells(i,j)
    
31.                                 DataTable.Value(j,sDataTable) = param
    
32.                         Next
    
33.                 Next
    
34.                 excelApp.Application.Close
    
35.                 excelApp.Application.Quit
    
36.                 Set excelApp=Nothing
    
37.                 End If
    
38.                 If err.Number<>0 Then
    
39.                         excelApp.Application.Close
    
40.                         excelApp.Application.Quit
    
41.                         Set excelApp=Nothing
    
42.                         Call QTPSystemLog("ImportDataSheet",err)
    
43.                         Err.Clear
    
44.                 End If
    
45.         On Error Goto 0
    
46. End Function
    

复制代码

各位看看代码有什么错误，问题在于每次执行后进程中仍然会有Excel进程，而且频繁使用taskkill杀死Excel.exe进程，会导致taskkill进程死锁，各位有什么好方法。
请别说使用qtp自带的导入excel方法。

user603

这论坛怎么了，回复老是显示不成功，但实际成功了。

xiaoqiang_888

回复 4# user603
大哥您看代码了嘛？

1. 
   
2. excelApp.Application.Close
   
3. excelApp.Application.Quit
   
4. Set excelApp=Nothing
   

复制代码

user603

回复 3# xiaoqiang_888

就算没帮到你，你也不用这样。

xiaoqiang_888

回复 4# user603
嗯？晕 我哪样了？只是把你说的解决方案又贴出来了一边而已~您想到哪去了？

mimmy

Set wkBook=excelApp.workBooks.open(sFileName)
......
wkBook.Save
wkBook.Close
excelApp.Quit
Set wkBook=Nothing
Set excelApp=Nothing

xiaoqiang_888

回复 6# mimmy
读也要save？

还有其他代码是不是和下面的效果是一样的？
Set excelApp = CreateObject("Excel.Application")
excelApp.workBooks.open(sFileName)
……
excelApp.Application.Close
excelApp.Application.Quit
Set excelApp=Nothing

是不是Set wkBook=Nothing也相当吧excelApp.workBooks.open给关了？
但是发现vb对于线程以及对象的处理很弱，发现即使=Nothing了 但是对象未必销毁了

mimmy

回复 7# xiaoqiang_888
只是读文件的话可以不用save

xjwldlover

如6楼，添一句 excelApp.Quit