跟你扯不清出书版番外:Access利用excel制作复杂报表的方法 - 木子软件工作室(MUZ SOFTWARE...
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 02:40:50
Access利用excel制作复杂报表的方法
在读这篇文章以前首先要提醒大家,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
OK,然后就可以单击该按钮看看生成的表格如何了。
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/mzoffice/archive/2009/01/22/3850491.aspx
在读这篇文章以前首先要提醒大家,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
OK,然后就可以单击该按钮看看生成的表格如何了。
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/mzoffice/archive/2009/01/22/3850491.aspx
Access利用excel制作复杂报表的方法 - 木子软件工作室(MUZ SOFTWARE...
如何用WINRAR制作安装程序 - 木子软件工作室(MUZ SOFTWARE) - CSD...
第七课 使鼠标指向按钮时变成手形 - 木子软件工作室(MUZ SOFTWARE) - CS...
Access如何制作复杂报表
CHM电子书制作软件(CHM-Software)工具集锦简介2
利用用友软件UFO报表模板编制现金流量表
利用三张报表的勾稽关系编制报表
自己动手制作Excel万年历 - Excel 电子表格软件
自己动手制作Excel万年历 - Excel 电子表格软件
教程/办公软件 EXCEL制作图表的小技巧
VBA制作Excel报表 - Let It Go - JavaEye技术网站
用Excel制作工资条的方法
一张报表引发的思考!制作Web报表为什么
Word/Excel 复杂的编号
利用用友软件UFO报表模板编制现金流量表---绝对适用
Access教程 第四章 报表1
奇智视听软件工作室的日志
利用Word制作调查问卷的一般方法
教你制作超复杂Excel表头(1)
教你制作超复杂Excel表头(2)
教你制作超复杂Excel表头(3)
教你制作超复杂Excel表头(4)
教你制作超复杂Excel表头(1)
Godaddy虚拟主机Access 数据库的设置方法