需要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