[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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)