VB中将数据输出到Excel模版打印出现错误

老是说实时错误'3265':在所对应所需的名称或序数的集合中未找到项目
点击调试后说这句有问题：
exlapp.Sheets(1).Cells(i, j + 1) = Adodc1.Recordset(j + 2)

下面是代码：
Option Explicit
Dim exlapp As New Excel.Application '定义Excel对象
Dim exlbook As Excel.Workbook '定义Excel工作簿对象
Dim exlsheet As Excel.Worksheet '定义Excel工作表对象
Private Sub Command1_Click()
Dim i As Integer, j As Integer
If Adodc1.Recordset.RecordCount > 0 Then
Set exlapp = New Excel.Application
exlapp.Workbooks.Open App.Path & "\职工表1.xlt"
Adodc1.Recordset.MoveFirst
exlapp.Sheets(1).Cells(2, 2) = Adodc1.Recordset(3)
Adodc1.Recordset.MoveFirst
i = 4
Do While Adodc1.Recordset.EOF = False
For j = 0 To 8
If IsNull(DataGrid1.Text) = False Then
exlapp.Sheets(1).Cells(i, j + 1) = Adodc1.Record

如何在VB中将EXCEL中的数据调出来?谢谢 vb 数据 导出到excel vb 数据 输入 输出 在delphi中将DBGRID中显示的将数据信息导入到Excel表中? VB调用Excel数据 VB要输出一个完整的表格（WORD或EXCEL），并在表格内输出相应数据 用VB如何讲数据导入到excel VB中如何将MSFlexGrid数据导入到Excel中?? 如何用VB把EXCEL数据导入到Access? excel中将一个表中不同的数据集,分组插入到一个Execl中的不同的Sheet中