如何向指定的excel文件赋值？

gdutlzl

我想把随机产生的一些数据导入到指定的excel文件中，我的解决思路是先把随机产生的数值赋到QTP的date table中，然后在通过导出sheet表的办法把数据导入到指定的excel文件中，但由于对QTP的date tabel这部分不是很熟悉，所以一直没能用代码实现，请高手指点！

或者有没有其他的更好的解决思路，谢谢！

jinsen

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing
以上是QTP帮助文档中的实例。

peterz

不错。多看看QTP的自带文档。

wuei9090

ls 的ls和楼主的意思不太一样。。。

你是用vbs做的

楼主的意思是操作datatable

也许有用的一些小代码
给global sheet “入力值”列 当前行复制 aaa
DataTable ("入力値",dtGlobalSheet) = aaa

导出可以用Export导出整个datatable 或者 ExportSheet 导出某一个sheet
DataTable.Export “d:\test.xls"
DataTable.ExportSheet “d:\test.xls",1