如何制作复杂报表——利用Excel输出复杂报表
如何制作复杂报表——利用Excel输出复杂报表
__ __ __ __ 在读这篇文章以前首先要提醒大家,Access __ 本身的报表也具有很强的实用性和强大的功能,只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 __ Excel __ 输出报表。很明显,使用 __ Excel __ 输出报表第一个弱点就是必须同时打开 __ Access __ 和 __ Excel __ (当然,你得在一台机器上同时安装 __ Access __ 和 __ Excel),当然如果你和我一样拥有工作在 __ 966MHz __ 上的 __ CPU __ 和 __ 256M __ 内存以及大容量硬盘时,那就不必考虑了,继续吧。 __
__ __ __ __ 首先找到 __ VBA __ 编程界面并找到"工具"菜单并单击"引用..."菜单项,在弹出的"引用"窗体中找到"现有引用"列表,在名为"Microsoft __ Excel __ x.0 __ Object __ Library"的项目前的方框内打钩。
__ __ __ __ 其次,你要做好一张空白的 __ Excel __ 电子表格,设定好显示字体、边框、打印纸张等等并将其存盘。(以下示例中该表格名为 __ "temp.xls" __ )当然啦,直接使用空白的 __ Excel __ 文件也是可以的,不过你要编程自动生成表格边框、背景颜色、单元格格式等一些内容,这些涉及到 __ 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
__ __ __ OK,然后就可以单击该按钮看看生成的表格如何了。