51Testing软件测试论坛

标题: 如何向指定的excel文件赋值？ [打印本页]

作者: gdutlzl 时间: 2009-3-18 12:20
标题: 如何向指定的excel文件赋值？
我想把随机产生的一些数据导入到指定的excel文件中，我的解决思路是先把随机产生的数值赋到QTP的date table中，然后在通过导出sheet表的办法把数据导入到指定的excel文件中，但由于对QTP的date tabel这部分不是很熟悉，所以一直没能用代码实现，请高手指点！

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

作者: jinsen 时间: 2009-3-18 12:50
标题: 回复 1# 的帖子
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 时间: 2009-3-18 13:29
不错。多看看QTP的自带文档。

作者: wuei9090 时间: 2009-3-19 14:11
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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)