如何用ADO方式导出查询的结果到EXCEL

你的是有格式的报表，将数据导出到Excel模板内吧？

http://www.accessoft.com/article-show.asp?id=2906通过VBA在excel中打印报表，关键代码如下：

    Dim ExcelApp As Excel.Application
    Dim Book As Excel.Workbook
    Dim ws As Worksheet
    Dim xlsPath As String
    Dim rst As New ADODB.Recordset
    Dim strsql As String
    xlsPath = CurrentProject.Path + "\excel报表.xls"
    Set ExcelApp = New Excel.Application
    Set ws = ExcelApp.Workbooks.Open(xlsPath).Worksheets("sheet1")
    strsql = "select * from 订单表 "
    rst.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 0 To rst.RecordCount - 1
    ws.Cells(4 + i, 1) = rst.Fields(0)
    ws.Cells(4 + i, 2) = rst.Fields(1)
    ws.Cells(4 + i, 3) = rst.Fields(2)
    rst.MoveNext
    Next i
    ExcelApp.Visible = True
    ws.PrintPreview
    Set ExcelApp = Nothing
    Set Book = Nothing