做为一种简捷、系统的 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
156
|
