【已解决】如何将ACCESS中的表里的数据导出到EXCEL里（要用VB代码）？

panjianhui

我想把ACCESS的“dbl客户代码表”里的数据导出到EXCEL表：示例里，请问用代码如何实现？

[ 本帖最后由 panjianhui 于 2008-10-13 17:18 编辑 ]

panjianhui

别掉下去啊。。。。

kangking

Private Sub Command0_Click()
    Dim rs As DAO.Recordset
    Dim Filnum As Long
    Dim Recnum As Long
    Dim xlapp As Object

    Set rs = Me.导出数据.Form.Recordset
    Set xlapp = CreateObject("excel.application")
    xlapp.Visible = True

    xlapp.Workbooks.Open ("C:\Documents and Settings\bus\桌面\ACCESS示例\ACCESS示例\shili.xls")

    Dim sheet As Object
    Set sheet = xlapp.Sheets("sheet1")

    rs.MoveFirst
    Recnum = 1
    Do Until rs.EOF
        For Filnum = 0 To rs.Fields.Count - 1
            sheet.cells(Recnum, Filnum + 1) = rs.Fields(Filnum)
        Next
        Recnum = Recnum + 1
        rs.MoveNext
    Loop

    'sheet.cells(3, 3) = "12345678"

End Sub

panjianhui

十分感谢，寻觅好久了！

yjb332623

学习[:33] [:33] [:33]

LHB

用宏最简单了!

huzaixin

此功能用宏即可实现了，不用写代码这么麻烦吧？