导入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