QTP向EXCEL中写数据

    Dim xlApp
        Dim xlBook
        Dim xlSheet
        Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

        Set xlBook = xlApp.Workbooks.Open("c:\test.xls") '打开已经存在的EXCEL工件簿文件

        xlApp.Visible = True '设置EXCEL对象可见（或不可见）

        Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
  xlsRowCount = xlSheet.UsedRange.Rows.Count

        xlsColumnCount = xlSheet.UsedRange.Columns.Count

 
   For i=xlsRowCount+1  to 100
    For j=0   to 100
                      xlSheet.Cells(i, j) =200 '给单元格（row,col）赋值
    Next
 Next
       

        xlBook.Close (True) '关闭工作簿

        xlApp.Quit '结束EXCEL对象

        Set xlApp = Nothing '释放xlApp对象