需要VB代码将运行时检索到的数据粘贴到Excel工作表的QTP脚本中。

Question

我正在运行QTP脚本，其中动态生成数据。我在运行时检索数据，然后我需要将这些数据粘贴到Excel工作表（在列中）。请建议如何编码。

Answer 1

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

---

第二个模型

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