导入Excel文件的有关问题

导入Excel文件的问题
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第一行第一列导入
，因为，我还要做个表头，我想把数据导入到第四行第二列，如何修改

[解决办法]
http://download.csdn.net/detail/veron_04/2341786