【求助】如何用代码将记录导出到EXCEL？

panjianhui

我需要用一个EXCEL设计好的票据打印模板打印东西，现需要将ACCESS里查询出来的记录导出到EXCEL里，需要用代码实现！
请问，代码应该怎么写？
思路和关键代码就可以，谢谢！

[ 本帖最后由 panjianhui 于 2008-6-10 12:22 编辑 ]

chenlugen

可以用命令OutputTo命令实现。例：
DoCmd.OutputTo acOutputTable, "总表", , , True, , 0
此命令是说把一个叫“总表”的表中的数据导出，并未指定导出文件的格式，存放路径等；
又例：
DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True，，0
此命令则是说把一个叫“查询结果”的查询所得的结果，导出到Microsoft Excel格式并自动打开导出的文件等

chenwm1973

[:50] [:50] [:50] [:50]

zerk

A. 引用EXCEL
B.
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim Rs As DAO.Recordset, i as Integer
        Dim ExcelFile as String
        ExcelFile=CurrentProject.Path & "\Sample.xls"
        Set xlApp = CreateObject("Excel.Application")
        Set xlApp = New Excel.Application
        Set xlBook = xlApp.Workbooks.Open(Me.ExcelFile)
        Set xlSheet=xlBook.WorkSheets(1)
        Set Rs=Currentdb.OpenRecordset("Select * from SampleQuery")
       i=1
       While Not Rs.EOF
             With xlSheet
                           .Range("A" & i)=Rs("Sample")
             End With
             i=i+1
             Rs.MoveNext
       Wend

zerk

A. 引用EXCEL
B.
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim Rs As DAO.Recordset
        Dim ExcelFile as String
        ExcelFile=CurrentProject.Path & "\Sample.xls"
        Set xlApp = CreateObject("Excel.Application")
        Set xlApp = New Excel.Application
        Set xlBook = xlApp.Workbooks.Open(Me.ExcelFile)
        Set Rs=Currentdb.OpenRecordset("Select * from SampleQuery")
        With xlBook
               .Range("A1")=Rs("Sample")
        End With

tz-chf

打开excel文件,插入数据...