[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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)