51Testing软件测试论坛

标题: 如何把一个变量写入到指定的Excel中！ [打印本页]

作者: sd526 时间: 2010-9-13 16:51
标题: 如何把一个变量写入到指定的Excel中！
程序中需要上传一个Excel数据表，表中有多个sheet，如图，我想把一个得到的变量值a写入到文件名为CompositeFile的表中，并且是写入到“检测汇总”栏的第2行第1个单元格中，如图中1308的位置处；QTP中a的值为：a=Browser("xxx").Page("xxx").Frame("I2").WebTable("序号").GetCellData(2,5);

本人是QTP初学者，请高手详细指点。。。先拜谢各位了！

作者: TIB 时间: 2010-9-13 17:00
QTP安装目录中
D:\Program Files\HP\QuickTest Professional\CodeSamplesPlus
UsingExcel.vbs这个文件有很多Excel操作的函数，重点看SetCellValue这个

作者: sd526 时间: 2010-9-14 14:20
谢谢！TIB指点，我已经编辑好了，并执行成功，贴出来供大家指点学习。
a=Browser("xxx").Page("xxx").Frame("I2").WebTable("序号").GetCellData(2,5);

      Dim srcData,srcDoc
      set srcData = CreateObject("Excel.Application")
      srcData.Visible = True
      set srcDoc = srcData.Workbooks.Open("E:\test\CompositeFile.xls")
      srcDoc.Worksheets("检测汇总").Activate
      srcDoc.Worksheets("检测汇总").Cells(2,1).value = a

   Dim WshShell
   Set WshShell=CreateObject("Wscript.Shell")
   WshShell.SendKeys "^s"
   wait(1)

      srcData.Workbooks.Close
      Set srcDoc = nothing

      Window("text:=Microsoft Excel").Close

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