Can we save an exported Excel sheet directly from QTP?

[Akhila]

Hi There,

I stored some values to Data table and exported them to an Excel sheet using following script
datatable.ExportSheet "C:\book.xls", "MySheet"

Now can it possible save the file book.xls in C drive... directly from QTP. If so can you please advice?

Thanks,

[ssvali]

You can write those values directly in Excel and Save it where you want by using QTP.

Code:

Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = TRUE
Set sWorkbook = ObjExcel.Workbooks.Add
Set sWorksheet = sWorkbook.Worksheets("sheet1")

sWorkbook.Worksheets("sheet1").Cells(1,1).Value = "User Name"
sWorkbook.Worksheets("sheet1").Cells(1,2).Value = "Password"

sWorkbook.SaveAs "C:/Book.xls"

Set sWorksheet = Nothing
set sWorkbook = Nothing
set ObjExcel = Nothing

[Akhila]

Thanks for the solution.

Now i can save the excel file by your method of creating an excel obj.
I am also assuming that there is no way we can save the excel file from qtp when we export data from DT to Excel. If I am wrong please correct it.

Thanks,
Akhila