三度网教程:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

Access图文教程 怎么制作复杂报表

时间:2023-7-9作者:未知来源:三度网教程人气:


Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点,是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

   1、首先找到 VBA 编程界面并找到"工具"菜单并单击"引用..."菜单项,在弹出的"引用"窗体中找到"现有引用"列表,在名为"Microsoft Excel x.0 Object Library"的项目前的方框内打钩。

  2、其次,你要做好一张空白的 Excel 电子表格,设定好显示字体、边框、打印纸张等等并将其存盘。(以下示例中该表格名为 "temp.xls" )当然啦,直接使用空白的 Excel 文件也是可以的,不过你要编程自动生成表格边框、背景颜色、单元格格式等一些内容,这些涉及到 Excel 编程,我以后会在 Excel 专栏里详细叙述,这里就不多说了。www.3lian.com

  3、然后你就可以在 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:reprottemp.xls")

  Set xlSheet = xlBook.Worksheets(1)

  xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"

  '以上只更改了一个单元格内的数据,可根据需要无限次加入

  xlBook.Save

  xlSheet.PrintPreview '如果是要打印,只要把 PrintPreview 改为 PrintOut

  xlBook.close

  xlApp.Quit

  End Sub


Microsoft Access在很多地方得到广泛使用,例如小型企业,大公司的部门。

关键词:  Access图文详细教程  怎样制作复杂报表





Copyright © 2012-2018 三度网教程(http://www.3du8.cn) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版