急救啊！！

Question

本人现在遇到困难希望各位大侠帮帮忙的啊！！1
我现在要把数据库里的数据倒入EXECL下
让客户看见里面数据啊
给出代码最好的啊
谢谢啊

Answer 1

http://expert.csdn.net/Expert/topic/1949/1949166.xml
http://expert.csdn.net/Expert/topic/1953/1953625.xml
http://expert.csdn.net/Expert/topic/2255/2255414.xml你可以到csdn搜索页面http://oakhome.xicp.net/search.htm 里面用excel ado做关键字搜索更多的关于excel数据操作的帖子。

Answer 2

access->excel
引用dao 3.51
Private Sub Command1_Click()
    Dim dbSource As Database
    Dim DbPath As String
    Dim CmdStr As String
        
    DbPath = App.Path & "\data.mdb"
    Set dbSource = OpenDatabase(DbPath)
    CmdStr = "SELECT * INTO 类别 IN '" & App.Path & "\data.xls" & "' 'EXCEL 8.0;' FROM 类别"
    dbSource.Execute (CmdStr)
    End
End Sub