大家帮我看看这段代码吧 有关EXCEL的

Question

Private Sub Command1_Click()
Dim ExcelID As Excel.Application
Set ExcelID = New Excel.Application
ExcelID.Visible = True
ExcelID.Workbooks.Add
ExcelID.Workbooks.Open ("D:\yang.xls")
ExcelID.Worksheets(1).Activate
Dim rs As New ADODB.Recordset
rs.Open "select * from 工资表 where 所属工资月份=(select 月份 from 月份表)  order by 班组名称,工号", Cnn, adOpenKeyset, adLockOptimistic
Dim i As Integer, r As Integer, c As Integer
For i = 0 To rs.Fields.Count - 1
ExcelID.Cells(2, i + 1) = rs.Fields(i).Name
Next i
rs.MoveFirst
Do Until rs.EOF
r = rs.AbsolutePosition
For c = 0 To rs.RecordCount - 1
Worksheets(1).Cells(r + 4, c + 1) = rs.Fields(c)  代码执行到这里只是在一行里从第一条记录读到最后一条，
                                                              我想做到都在excel中全都显示出来
Next c
rs.MoveNext
Loop
'ExcelID.Worksheets(1).Rows(8).PageBreak = 1
End Sub

Answer 1

代码换了看看rs.MoveFirst
 r = 0
Do Until rs.EOF 
r = rs.AbsolutePosition 
For c = 0 To rs.RecordCount - 1 
Worksheets(1).Cells(r + 4, c + 1) = rs.Fields(c)  
Next c 
r =r +1
rs.MoveNext 
Loop 

Answer 2

错了，改正一下
rs.MoveFirst
 r = 0
Do Until rs.EOF 
'r = rs.AbsolutePosition 
For c = 0 To rs.RecordCount - 1 
Worksheets(1).Cells(r + 4, c + 1) = rs.Fields(c)  
Next c 
r =r +1
rs.MoveNext 
Loop