下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 EXCEL VBA:用Excel控件制作简单报表

EXCEL VBA:用Excel控件制作简单报表.doc

EXCEL VBA:用Excel控件制作简单报表

快乐在分享
2013-08-30 0人阅读 举报 0 0 暂无简介

简介:本文档为《EXCEL VBA:用Excel控件制作简单报表doc》,可适用于IT/计算机领域

EXCELVBA:用Excel控件制作简单报表本文标签: EXCEL , VBA , 制作 , 报表 , 控件 , 简单通过在VB中使用ADO(ActiveXDataObject)和Excel提供的OLE对象我们能够将数据库中的数据输出到Excel工作表里。然后再用VisualBasic生成的Excel报表利用Excel本身的功能来进行打印预览打印和保存这样大大减少了工作中的工作量。下面我们就来学习Excel中与报表有关的知识及实现方法。①报表的概念这张报表包含了报表的基本元素即页眉、页脚、横表头、竖表头、表头交叉区、单元格。页眉:位于报表的最上部分。作为报表的描述性信息概括性的说明报表的名称、表号、批准机关、批准文号等。页脚:位于报表的最下部分用于说明报表的其它信息例如:单位负责人、部门负责人、制表人等信息。横表头:也叫宾栏位于报表的横方向的表头它是统计的约束条件也可能是描述信息。对于统计表来说横表头是可以分层的并且上层的条件对它下面各层都起作用。竖表头:也叫甲栏报表竖方向的表头它在统计表中与横表头起相同的作用也是统计的约束性条件也可能是描述性信息。在分层结构中上层的条件对它下面各层都起作用。表头交叉区:在报表的左上角可以分栏说明报表的横表头和竖表头。单元格:报表的主体部分。在统计报表中是其相对应横表头和竖表头的两个条件的统计情况在查询表中是横表头的查询信息也可能是简单的计算统计结果。单元格内容在新建报表后是空的要通过统计查询这一步来填充在填充后也可以修改。②VisualBasic中制作报表VisualBasic中制作报表通常是用数据环境设计器(DataEnvironmentDesigner)与数据报表设计器(DataReportDesigner)或者使用第三方产品(如非常有名的CrystalReport)来完成并通过ActiveX控件输出。但对于大多数程序员来说设计报表往往他们费尽心思。然而我们可以有更简单的方法来满足他们的要求。由于VisualBasic的可扩展性,使用和融入Office的特性包括Excel是相当方便的。Excel可以用作OLE服务器向外部输出某些属性方法和事件.VisualBasic可以利用这些功能实现与Excel的集成。下面我们来具体阐述一个用VB来创建Excel报表的例子。③Excel对象微软的Excel对象模型包括了个不同的对象从矩形文本框等简单的对象到透视表图表等复杂的对象.下面我们简单介绍一下其中最重要也是用得最多的四个对象.A、Application对象Application对象处于Excel对象层次结构的顶层表示Excel自身的运行环境.B、Workbook对象Workbook对象直接地处于Application对象的下层表示一个Excel工作薄文件.C、Worksheet对象Worksheet对象包含于Workbook对象表示一个Excel工作表.D、Range对象Range对象包含于Worksheet对象表示Excel工作表中的一个或多个单元格.④Access的报表解决方案   A、在Excel中做一个模板在用VisualBasic生成Excel报表之前应先按照用户的要求在Excel中做好一个模板包括页眉页脚表头等等。B、在VB中创建Excel对象打开Excel文件和其它的第三方控件一样使用之前必须引用或作为部件导入。要在VB中创建和作用Excel对象就必须先引用MicrosoftExcelobjectlibrary。然后我们就可以在VB的编程操作Excel对象了。  关键代码入下:DimexcelFileAsStringexcelFile=AppPath"myReportxls"'Excel文件名'定义Excel的Application对象,Application对象相当于Excel程序DimxlAppAsExcelApplication'定义Excel的Workbook对象Workbook对象相当于Excel文件DimxlbookAsExcelWorkbook'定义Excel的Worksheet对象Worksheet对象相当于Excel文件中的一个表DimxlsheetAsExcelWorksheet'给Application分配内存空间将其实例化SetxlApp=NewExcelApplication'创建Application对象SetxlApp=CreateObject("ExcelApplication")'隐藏被VB打开的Excel程序xlAppVisible=False'打开工作簿excelFile为一个EXCEL报表文件Setxlbook=xlAppWorkbooksOpen(excelFile)'打开Excel工作表Setxlsheet=xlbookWorksheets()C、控制Excel工作表对其进行编辑如果是通过ADO打开了一个记录集想把记录集中的数据显示在单元格中关键代码为:DoUntilrsEOFFori=TorsFieldsCountxlsheetCells(j,i)=rsFields(i)NextrsMoveNextj=jLoop转载请保留链接: EXCELVBA:用Excel控件制作简单报表

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/3

EXCEL VBA:用Excel控件制作简单报表

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利