让我们的人生更加快乐
qtp 中向EXCEL 写数据
上一篇 /
下一篇 2009-12-14 14:32:02
/ 个人分类:QTP
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 10
For j=1 to 10
xlSheet.Cells(i, j) =10 '给单元格(row,col)赋值
Next
Next
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
收藏
举报
TAG: