Set MyApp = CreateObject("Excel.Application")
MyApp.Visible = False
Set MyBook = MyApp.Workbooks.Add()
Set MySheet = MyBook.Worksheets(1)
'*************写列头标题***********************
For k = 1 To Rs.Fields.Count
Strcell = Rs.Fields(k).Name
MySheet.Cells(1, k) = StrCell
Next
'***************写行内容***********************
j = 2
Do Until Rs.EOF
For i = 1 To Rs.Fields.Count
MySheet.Cells(j, i) = Rs.Fields(i - 1)
Next
Rs.MoveNext
j = j + 1
Loop
这是个从ACCESS读取后写入EXCEL的例子,自己参考