從QTP

Question

刪除Excel文件，我有一個QTP下面的代碼：

Dim objexcel 
Set objexcel = createobject("Excel.application") 

objexcel.Visible = True 

objexcel.Workbooks.Add 
objexcel.Cells(1,1).Value = "ABCDE" 
objexcel.ActiveWorkBook.SaveAs("J:\Test.xls") 

如何關閉該文件並刪除它，我嘗試過很多辦法，但我結束了越來越對象錯誤。

由於前請先

Answer 1

您需要創建Filesystemobject類的對象，刪除任何文件，所以代碼應該是這樣的

Dim objExcel,objFSO 
Set objExcel = createobject("Excel.application") 
Set objFSO = CreateObject("Scripting.Filesystemobject") 
objExcel.Visible = True 
objExcel.Workbooks.Add 
objExcel.Cells(1,1).Value = "ABCDE" 
objExcel.ActiveWorkBook.SaveAs("J:\Test.xls") 
objExcel.Workbooks.Close 
objExcel.Quit 
set objExcel = nothing 
objFSO.DeleteFile("J:\Test.xls") 
Set objFSO = nothing