如何将一个ado记录集输出到excel表。

(一般) 
Dim MyXlsApp As Excel.Application 
'设MyXlsApp为Excel的Application物件之表单的全域变数 
Private Sub Command1_Click() 
Dim RowData As Variant '用来拆解Text1内的每一行资料 
Dim ColData As Variant '用来拆解Text1内的每一栏资料 
Dim RowTmpDat As Variant 'For each行资料暂存 
Dim ColTmpDat As Variant 'For each栏资料暂存 
Dim R As Long 
Dim C As Long 
R与C是用来记录待会在Sheet上移动后的Row与Column位置Set MyXlsApp = CreateObject("Excel.Application") 
'建立Excel.Application物件 
MyXlsApp.Visible = True 
MyXlsApp.Workbooks.Add 
'新增Wookbooks(Sheets与一些其它物件的集合)RowData = Split(Text1.Text, vbCrLf) 
'依跳行字元把Text1.Text拆成一行行的资料 
R = 0 
For Each RowTmpDat In RowData 
'再从被拆成一行行的资料各别把栏位里的资料提出来 
ColData = Split(RowTmpDat, ",") 
R = R + 1 
C = 64 
For Each ColTmpDat In ColData 
C = C + 1 'Chr(65) = A, Chr(66) = B, Chr(67) = C, ...... 
MyXlsApp.Range(Chr(C) & R).Select 
'移到第C栏第R行 
MyXlsApp.ActiveCell.Value = ColTmpDat 
'把拆得的每一栏资料填到Excel的Cell里 
Next 
Next 
MyXlsApp.Worksheets.PrintPreview 
'启动预览列印 
MyXlsApp.DisplayAlerts = False 
'不提示储存 
MyXlsApp.Quit 
'硬是把Excel给关闭 
End Sub