Access如何制作报表

如题所述

很明显,使用 Excel 输出报表第一个弱点能够必须同时打开 Access 和 Excel (当然,您得在一台机器上同时安装 Access 和 Excel),当然可能您和我一样拥有工作在 966MHz 上的 CPU 和 256M 内存还有大空间硬盘时,那就不必考虑了,继续吧。第1步找到 VBA 编程界面并找到"软件"菜单并点击"引用..."菜单项,在弹出的"引用"窗体中找到"现有引用"列表,在名为"Microsoft Excel x.0 Object Library"的项目前的方框内打钩。接下来,您要做好一张空白的 Excel 电子表格,设定好显示字体、边框、打印纸张等等并用其存盘。(下面示例中该表格名为 "temp.xls" )当然啦,直接使用空白的 Excel 文件也是能够的,但是您要编程自动生成表格边框、背景颜色、单元格格式等多数内容,这些涉及到 Excel 编程,我将来会在 Excel 专栏里详细叙述,这里就不多说了。接下来您就能够在 Access 里面制作您个人的打印预览窗体了,在窗体中安排 2 个命令选项,在名为预览的选项的 click 事件里敲入下面代码:Private Sub ExcelPrevIE游览器w_Click()Dim xlApp As Excel.ApplicationDim xlBook As Workbook, xlSheet As WorksheetSet xlApp = CreateObject("Excel.Application")Set xlApp = New Excel.ApplicationxlApp.Visible = TrueSet xlBook = xlApp.Workbooks.Open("c:\reprot\temp.xls")Set xlSheet = xlBook.Worksheets(1)xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"'以上只更改了一个单元格内的数据,可根据就得没有限次加入
温馨提示:答案为网友推荐,仅供参考
相似回答