用VB控制EXCEL生成报表

您现在的位置是：软件 > OA专刊 > Office应用 > Excel > 正文

	T O P 排行
-	走进LINDO世界
-	轻松做电影—DVD制片家
-	JAAS:灵活的Java安全机制
-	Java套接字编程（下）

网校热门

用VB控制EXCEL生成报表

2000-12-23· · 姜利君··yesky

1 2 下一页

做为一种简捷、系统的 Windows应用程序开发工具，Visual Basic 5 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能，我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作。

下面给出一个实例：

首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮，

引用Microsoft Excel类型库:

从"工程"菜单中选择"引用"栏;

选择Microsoft Excel 8.0 Object Library;

选择"确定"。

在FORM的LOAD事件中加入：
　　Data1.DatabaseName = 数据库名称
　　Data1.RecordSource = 表名
　　Data1.Refresh

在按钮的CLICK事件中加入
　　Dim Irow, Icol As Integer
　　Dim Irowcount, Icolcount As Integer
　　Dim Fieldlen() "存字段长度值
　　Dim xlApp As Excel.Application
　　Dim xlBook As Excel.Workbook
　　Dim xlSheet As Excel.Worksheet

　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Add
　　Set xlSheet = xlBook.Worksheets(1)

　　With Data1.Recordset
　　.MoveLast

　　If .RecordCount $#@60; 1 Then
　　　　MsgBox ("Error 没有记录!")
　　　　Exit Sub
　　End If

　　Irowcount = .RecordCount "记录总数
　　Icolcount = .Fields.Count "字段总数

　　ReDim Fieldlen(Icolcount)
　　.MoveFirst

1 2 下一页

【责任编辑：】

【发表评论】【关闭窗口】


	■ 相关内容

	提高EXCEL录入速度十招　 VB高级界面编程(一) 　Delphi中用于读写的文件类型　虚拟设备驱动程序两关键问题(上) 　虚拟设备驱动程序两关键问题(下) 　开发语言之”飞短流长” 　虚拟设备驱动程序的设计与实现

感谢访问天极网，如果您觉得该文章涉及版权问题，请看这里！