qtp - QTP から Excel ファイルを削除する

Question

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