设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 90|回复: 1

关于Access引用excel报表问题

[复制链接]
发表于 2018-1-7 11:33:22 | 显示全部楼层 |阅读模式
采用网上这篇:
在读这篇文章以前首先要提醒大家,Access 本身的报表也具有很强的实用性和强大的功能,只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显,使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel (当然,你得在一台机器上同时安装 Access 和 Excel),当然如果你拥有工作在 966MHz 上的 CPU 和 256M 内存以及大容量硬盘时,那就不必考虑了,继续吧。   首先找到 VBA 编程界面并找到"工具"菜单并单击"引用..."菜单项,在弹出的"引用"窗体中找到"现有引用"列表,在名为"Microsoft Excel x.0 Object Library"的项目前的方框内打钩。 其次,你要做好一张空白的 Excel 电子表格,设定好显示字体、边框、打印纸张等等并将其存盘。(以下示例中该表格名为 "temp.xls" )当然啦,直接使用空白的 Excel 文件也是可以的,不过你要编程自动生成表格边框、背景颜色、单元格格式等一些内容,这些涉及到 Excel 编程。   然后你就可以在 Access 里面制作你自己的打印预览窗体了,在窗体中安排 2 个命令按钮,在名为预览的按钮的 click 事件里输入以下代码:
  Private Sub ExcelPreview_Click()
Dim xlApp As Excel.Application  
Dim xlBook As Workbook, xlSheet As Worksheet  
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application xlApp.Visible = True  Set xlBook = xlApp.Workbooks.Open("c:/reprot/temp.xls")
Set xlSheet = xlBook.Worksheets(1)  xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"
'以上只更改了一个单元格内的数据,可根据需要无限次加入
xlBook.Save  
xlSheet.PrintPreview '如果是要打印,只要把 PrintPreview 改为 PrintOut xlBook.close
xlApp.Quit
End Sub
报表只能调用表字段信息第一组数据。
如果调用的是查询字段,则不显示任何信息。
请问如何采用excel生成筛选出的指定一组信息的报表?谢谢

点击这里给我发消息

发表于 2018-1-7 11:55:48 来自手机 | 显示全部楼层
数据可以通过ado或dao传递过去
来自: 微社区
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-4-21 09:37 , Processed in 0.131386 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表