如何用Excel控件制作简单报表
发布时间:2022-09-22 19:19:45
①报表的概念
这张报表包含了报表的基本元素,即页眉、页脚、横表头、竖表头、表头交叉区、单元格。
页 眉:位于报表的最上部分。作为报表的描述性信息,概括性的说明报表的名称、表号、批准机关、批准文号等。
页 脚:位于报表的最下部分,用于说明报表的其它信息,例如:单位负责人、部门负责人、制表人等信息。
横表头:也叫宾栏,位于报表的横方向的表头,它是统计的约束条件,也可能是描述信息。对于统计表来说横表头是可以分层的,并且上层的条件对它下面各层都起作用。
竖表头:也叫甲栏,报表竖方向的表头,它在统计表中与横表头起相同的作用,也是统计的约束性条件,也可能是描述性信息。在分层结构中,上层的条件对它下面各层都起作用。
表头交叉区:在报表的左上角,可以分栏说明报表的横表头和竖表头。
单元格:报表的主体部分。在统计报表中是其相对应横表头和竖表头的两个条件的统计情况,在查询表中是横表头的查询信息,也可能是简单的计算统计结果。单元格内容在新建报表后是空的,要通过统计查询这一步来填充,在填充后也可以修改。
②Visual Basic中制作报表
Visual Basic中制作报表,通常是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer),或者使用第三方产品(如非常有名的Crystal Report)来完成并通过ActiveX控件输出。但对于大多数程序员来说,设计报表往往他们费尽心思。然而,我们可以有更简单的方法来满足他们的要求。由于Visual Basic的可扩展性,使用和融入Office2000的特性,包括Excel是相当方便的。Excel可以用作OLE服务器,向外部输出某些属性,方法和事件.Visual Basic可以利用这些功能,实现与Excel的集成。下面,我们来具体阐述一个用VB来创建Excel报表的例子。
③Excel对象
微软的Excel对象模型包括了128个不同的对象,从矩形,文本框等简单的对象到透视表,图表等复杂的对象.下面我们简单介绍一下其中最重要,也是用得最多的四个对象.
A、Application对象
Application对象处于Excel对象层次结构的顶层,表示Excel自身的运行环境.
B、Workbook对象
Workbook对象直接地处于Application对象的下层,表示一个Excel工作薄文件.
C、Worksheet对象
Worksheet对象包含于Workbook对象,表示一个Excel工作表.
D、Range对象
Range对象包含于Worksheet对象,表示Excel工作表中的一个或多个单元格.
④Access2000的报表解决方案
A、在Excel中做一个模板
在用Visual Basic生成Excel报表之前,应先按照用户的要求在Excel中做好一个模板,包括页眉,页脚,表头等等。
B、在VB中创建Excel对象,打开Excel文件
和其它的第三方控件一样,使用之前必须引用或作为部件导入。要在VB中创建和作用Excel对象,就必须先引用Microsoft Excel 9.0 object library。然后我们就可以在VB的编程操作Excel对象了。
关键代码入下:
Dim excelFile As String
excelFile = App.Path & "myReport.xls" 'Excel文件名
'定义Excel的Application对象,Application对象相当于Excel程序
Dim xlApp As Excel.Application
'定义Excel的Workbook对象,Workbook对象相当于Excel文件
Dim xlbook As Excel.Workbook
'定义Excel的Worksheet对象,Worksheet对象相当于Excel文件中的一个表
Dim xlsheet As Excel.Worksheet
'给Application分配内存空间,将其实例化
Set xlApp = New Excel.Application
'创建Application对象
Set xlApp = CreateObject("Excel.Application")
'隐藏被VB打开的Excel程序
xlApp.Visible = False
'打开工作簿,excelFile为一个EXCEL报表文件
Set xlbook = xlApp.Workbooks.Open(excelFile)
'打开Excel工作表
Set xlsheet = xlbook.Worksheets(1)
C、控制Excel工作表,对其进行编辑
如果是通过ADO打开了一个记录集,想把记录集中的数据显示在单元格中,关键代码为:
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
xlsheet.Cells(j + 1, i + 1) = rs.Fields(i)
Next
rs.MoveNext
j = j + 1
Loop
猜你喜欢
- 1:编辑好你的Excel后,文件另存为。点击加密。 2:在这里,填写你要设置的密码。点击确定就行。在点击保存。
- 第1步,打开Word2013文档窗口,依次单击“文件”→“另存为”按钮,并选择Word文档保存位置。 第2步,在打
- 其实大多数人使用Word,都是编辑文字文本的,因此很少有用到背景。当然偶尔也是会遇到需要背景图文的,那么这种文档要怎样完整的打印出来呢?接下
- 我们在平时的工作或者生活中打印的文件通常都市水平格式,但是在有些单位,需要打印一些垂直文字的文件。那么,我们应该怎样打印垂直格式的文件呢?一
- 假设在“工价统计表”中的单价,根据工种自动填入;1、设立工价表,选中A列,在名称栏输入:工种 回车;见图一2、转到工价统计表,选中工种所在的
- 1、打开word。2、点击word窗口右下解百分比数字,如下图:3、在弹出的显示比例窗口,选择整页或100%(二选一)4、点击确定,完成。
- 如何在Word 2016中打印之前预览文档?在打印之前,请预览Word 2016中最终文档的外观。是的,即使您的文档在屏幕上的外观与在纸上的
- 最近有win10用户说自己在安装字体之后,浏览网页信息却出现乱码的情况,很影响自己使用电脑。那我们在使用电脑的过程中遇到这一问题要怎么解决呢
- 在目前处于测试阶段的 iOS 16 中,苹果对 iPhone 锁屏墙纸进行了彻底改造,让用户可以进行个性化定制,包括时钟字体的颜色和样式到用
- 在应用程序中使用快捷键,可以使我们避免在键盘与鼠标之间来回切换,从而节省大量的时间,显著地提高工作效率。多掌握一些常用的快捷键,可以使您告别
- 电脑在长时间的使用下难免会出现一些问题,最近有用户反映,自己在使用Win10系统的时候,遇到了Win10网络通但不能上网的情况,这是什么原因
- 在使用文档过程中,经常会遇到一些“特殊”符号,比如说文本之间的方框或省略号等,这些要如何删除呢?本期Word小编与大家分享相关的解决办法。常
- 如何查找无法在Word 2007中键入的内容?Word 2007使您可以轻松地在文档中查找特殊的,不可打印的字符。使用“查找和替换”对话框,
- 我们都知道win10系统中的蓝牙功能是一个十分方便且好用的功能,能很好的去帮助我们快速的连接上蓝牙外接设备,但是很多的用户们都不知道在哪里,
- word文档内打字,后面的字会随着消失,原因在于word文档里设置了改写的模式,取消该设置以后,文字就不会随着消失了,以word2003为例
- 在Word2010文档中,通过启用“键入时标记语法错误”功能,可以在输入英文短语和句子等内容时使用绿色波浪线标记出可能存在语法错误的位置。在
- word当表格中的单元格比较窄时,用竖向文字较好。那怎样输入竖向文字呢?下面给大家简单的介绍一下方法一1.选中文字2.点击【布局】3.点击【
- Win10电脑的任务栏浅色模式无法勾选怎么办?许多用户在使用电脑的时候都会进行一些个性化的设置,有些小伙伴会将任务栏的颜色变浅。但是在操作的
- Word2007中如何快速准确移动文字块呢?今天就由小编教大家解决这个问题!希望能帮到大家!word快速准确移动文字块1、打开一段需要进行文
- 如果我们使用的电脑是win101909版本的系统,一些合作伙伴可能不太喜欢该系统的默认字体,并且想要用他们需要的字体替换它。然后,小编认为我