导入Excel文件的问题

Question

    Dim i As Integer, j As Integer    
    Dim myexcel As New Excel.Application '定义一个新的Excel对象
    Dim mybook As New Excel.Workbook '定义一个新的BOOK对象
    Dim mysheet As New Excel.Worksheet '定义一个新的SHEET对象
    Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
    Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
    
     For i = 1 To Adodc1.Recordset.Fields.Count
     For j = 3 To Adodc1.Recordset.RecordCount
     mysheet.Cells(i, j) = Adodc1.Recordset.Fields.Item(j - 1).Value
     If (i * j) Mod 500 = 0 Then
     DoEvents
     End If
     Next j
     Adodc1.Recordset.MoveNext
     Next i
 
     myexcel.Visible = True
End Sub
此代码将 Adodc1查询的数据从Excel第一行第一列导入
，因为，我还要做个表头，我想把数据导入到第四行第二列，如何修改

Answer 1

http://download.csdn.net/detail/veron_04/2341786