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

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