Need VB code to paste data retrived during runtime in QTP script in a column of an Excel sheet.

I am running a QTP script where a data is produced dynamically. I am retrieving the data during runtime and then开发者_开发百科 I need to paste that data in an Excel sheet (in a column). Please suggest how to code it.

dim excls
set excls=Createobject("Excel.Application")
set Book=excls.workbooks.add
set sheet1=Book.activesheet
sheet1.cells(1,1)="******** ********"
sheet1.saveas "Path of file"
excls.quit

Second model

Datatable.addsheet "Sheet name"
datatable.importsheet"File name,source sheer","destination sheet"
'now all the data are stored in sheet name at run time
'any query pls mail to me : vasuth2008@gmail.com