51Testing软件测试论坛

标题: 关于写入EXCEL表单内容的问题 [打印本页]

作者: skyhen 时间: 2008-10-6 12:47
标题: 关于写入EXCEL表单内容的问题
Dim xlApp
Dim xlBook
Dim xlSheet
Dim i
Dim j
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对象

小第,在网上看到这个代码经过调试,系统出现报错,系统提示"未知的错误",代码为 xlSheet.Cells(i, j) =200 '给单元格（row,col）赋值此句报错,请各位大大给点提示,谢谢!!!

作者: 今天有雾 时间: 2008-10-6 13:43
For j=0 to 100

改成for j=1 to 100　即可

作者: skyhen 时间: 2008-10-6 14:00
谢谢!!!我想问一下,为什么这里不能赋值为零啊!!!!

作者: 今天有雾 时间: 2008-10-6 17:30
excel不是从１开始嘛?

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