用VB创建Excel报表

\| 网站首页 \| 新　　闻 \| 双龙文学 \| 电子图书 \| 职教信息 \| 电子教程 \| 英语频道 \| 试题中心 \| 招生信息 \| 就业信息 \| 教研成果 \| \| 网上党校 \| 教务信息 \| 青春期 \| 团学工作 \| 政教信息 \| 资源下载 \| 图片信息 \| 本站留言 \| 校友录 \| 校园邮局 \| 网络办公 \|

您现在的位置：双龙网 >> 电子教程 >> 编程学习 >> VB编程 >> 教程正文

用户登录

新用户注册

用VB创建Excel报表

★★★

【字体：小大】

用VB创建Excel报表

作者：佚名教程来源：本站原创点击数：更新时间：2007-11-21

　　---- 在Visual Basic中制作报表,通常是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer),或者使用第三方产品来完成并通过ActiveX控件输出.但对于大多数习惯于Excel报表的用户而言,用以上两种方法生成的报表在格式和功能等方面往往不能满足他们的要求. 由于Visual Basic的可扩展性,使用和融入Office97的特性,包括Excel是相当方便的．Excel可以用作OLE服务器，向外部输出某些属性，方法和事件．Visual Basic可以利用这些功能，实现与Excel的集成．下面，我们来具体阐述一个用VB来创建Excel报表的例子．

---- 一．Excel对象

---- 微软的Excel对象模型包括了128个不同的对象，从矩形，文本框等简单的对象到透视表，图表等复杂的对象．下面我们简单介绍一下其中最重要，也是用得最多的四个对象．

---- 1. Application对象

---- Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境．

---- 2. Workbook对象

---- Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件．

---- 3. Worksheet对象

---- Worksheet对象包含于Workbook对象，表示一个Excel工作表．

---- 4. Range对象

---- Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格．

---- 二．一个实例

---- １．在Excel中做一个模板

---- 在用Visual Basic生成Excel报表之前，应先按照用户的要求在Excel中做好一个模板（文件后缀为.xlt）．当然，对于那些格式不固定，需要动态生成的报表，也可在程序中控制其格式．本例需要为用户提供一个工程师工作的评价报告，我们所做的模板Engineer.xlt

---- ２．在Visual Basic程序中生成Excel报表

---- 我们的例子中使用ADO从数据库中获取工程师工作的有关信息，然后按照模板Engineer.xlt的格式将数据写入Excel工作表中．

---- （１）创建一个新的标准EXE工程文件．

---- （２）在窗体frmEngineer中添加两个命令按扭，属性设置如下：

Name　cmdOK
Caption OK
Name cmdCancel
Caption Cancel

---- （３）定义全局变量，并为Form_Load事件编程.

---- （４）对OK按钮被击事件进行响应.

---- （５）对Cancel被击事件进行响应

---- ３．运行程序，生成Excel报表

---- 三．结束语

---- 　　通过在VB中使用ADO(ActiveX Data Object)和Excel提供的OLE对象，我们能够很容易地将数据库中的数据输出到Excel工作表里．用Visual Basic生成的Excel报表可以利用Excel本身的功能来进行打印预览，打印和保存，这样大大减少了程序员的工作量．

教程录入：王春宏责任编辑：王春宏

上一篇教程： VB调用Excel简化表格处理

下一篇教程：没有了

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

本站版权属易门职中所有联系地址：云南省易门县职业高级中学
邮编：651100 　电话：0877-4970486 　备案序号:滇ICP备05006926号
本站域名：ymzz.net 　　ymzz.vicp.net　　接入IP：220.165.94.6
云南省易门县电信局提供网络接入站长：王春宏 QQ:283444485 <% response.write "
页面执行时间：" & CStr(FormatNumber((Timer-BeginTime)*1000,2)) & "毫秒" %>