Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

[access报表]编程实现从报表导出到excel?

时 间:2008-06-10 09:40:47
作 者:李响   ID:2333  城市:无锡
摘 要:导出excel
正 文:

       DoCmd.DeleteObject acQuery, "try导出数据"
        Dim y, yes As Integer
        Dim str As String
        Dim db As Database
        Dim Qdf As QueryDef
        Dim SSQL As String
        Set db = CurrentDb
        SSQL = Me.List1.RowSource
        Set Qdf = db.CreateQueryDef("try导出数据", SSQL)
        str = InputBox("导出位置:", "导出代工成仓结存数据", "D:")
        If str <> "" Then
            DoCmd.OutputTo acOutputQuery, "try导出数据", acFormatXLS, str & "\导出代工成仓结存数据" & Me.Combo1 & ".xls"
            y = MsgBox("导出成仓结存数据后请修改后重新命名存盘....以免数据覆盖!", vbInformation, "提示信息!")

            yes = MsgBox("是否要打开 导出代工成仓结存数据" & Me.Combo1 & "!", vbQuestion + vbYesNo, "提示信息!!!")
            If yes = vbYes Then
                Dim RetVal
                RetVal = Shell("EXCEL " + Chr(34) + str & "\导出代工成仓结存数据" & Me.Combo1 & ".xls" + Chr(34), vbMaximizedFocus)
            End If
        End If

上面的代码是我找到的一段关于list数据导出到excel的程序,但是我想实现这样的功能:首先从窗体上的2个日期控件分别点选时间为按日期查询的开始时间和结束时间,然后在报表里形成按日期查询的报表,不过我想用按钮实现导出到excel里,不知道从这样的数据怎么导出到excel里?上面的代码可以参考,就是不知道怎么该。那位朋友能帮我看看,谢谢!!!



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助