sd526 发表于 2010-9-13 16:51:32

如何把一个变量写入到指定的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:45

QTP安装目录中
D:\Program Files\HP\QuickTest Professional\CodeSamplesPlus
UsingExcel.vbs这个文件有很多Excel操作的函数，重点看SetCellValue这个

sd526 发表于 2010-9-14 14:20:45

谢谢！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
页: [1]
查看完整版本: 如何把一个变量写入到指定的Excel中！