如何把一个变量写入到指定的Excel中！

sd526

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

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

TIB

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

sd526

谢谢！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