关于写入EXCEL表单内容的问题

skyhen

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）赋值 此句报错,请各位大大给点提示,谢谢!!!

今天有雾

For j=0   to 100

改成for j=1 to 100　即可

skyhen

谢谢!!!我想问一下,为什么这里不能赋值为零啊!!!!

今天有雾

excel不是从１开始嘛?