skyhen 发表于 2008-10-6 12:47:51

关于写入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+1to 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:59

For j=0   to 100

改成for j=1 to 100　即可

skyhen 发表于 2008-10-6 14:00:01

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

今天有雾 发表于 2008-10-6 17:30:31

excel不是从１开始嘛?
页: [1]
查看完整版本: 关于写入EXCEL表单内容的问题