用VB控制EXCEL生成报表

  做为一种简捷、系统的 Windows应用程序开发工具，Visual Basic 5 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能，我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作。 <BR><BR>　　下面给出一个实例：<BR><BR>　　首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮，引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 8.0 Object Library;选择"确定"。<BR><BR>　　在FORM的LOAD事件中加入：<BR><BR>Data1.DatabaseName = 数据库名称<BR>Data1.RecordSource = 表名<BR>Data1.Refresh  <BR>　　 <BR>　　在按钮的CLICK事件中加入<BR><BR>　　Dim Irow, Icol As Integer<BR>　　Dim Irowcount, Icolcount As Integer<BR>　　Dim Fieldlen() "存字段长度值<BR>　　Dim xlApp As Excel.Application<BR>　　Dim xlBook As Excel.Workbook<BR>　　Dim xlSheet As Excel.Worksheet　　 <BR>　　Set xlApp = CreateObject("Excel.Application")<BR>　　Set xlBook = xlApp.Workbooks.Add<BR>　　Set xlSheet = xlBook.Worksheets(1)<BR><BR>　　With Data1.Recordset.MoveLast<BR><BR>　　　If .RecordCount < 1 Then<BR>　　　　MsgBox ("Error 没有记录!")<BR>　　　　Exit Sub<BR>　　　End If<BR><BR>　　　Irowcount = .RecordCount "记录总数<BR>　　　Icolcount = .Fields.Count "字段总数<BR><BR>　　　ReDim Fieldlen(Icolcount).MoveFirst<BR><BR>　　　For Irow = 1 To Irowcount + 1<BR>　　　　For Icol = 1 To Icolcount<BR>　　　　　Select Case Irow<BR>　　　　　　Case 1 "在Excel中的第一行加标题<BR>　　　　　xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name<BR>　　　　　　Case 2 "将数组FIELDLEN()存为第一条记录的字段长<BR><BR>　　　　　　　If IsNull(.Fields(Icol - 1)) = True Then<BR>　　　　　　　　Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)<BR>　　　　　　　　"如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度<BR>　　　　　　　Else<BR>　　　　　　　　Fieldlen(Icol) = LenB(.Fields(Icol - 1))<BR>　　　　　　　End If<BR><BR>　　　　　　　xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)<BR>　　　　　　　　"Excel列宽等于字段长<BR>　　　　　　　xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)<BR>　　　　　　　　"向Excel的CellS中写入字段值<BR>　　　　　　Case Else<BR>　　　　　　　Fieldlen1 = LenB(.Fields(Icol - 1))<BR><BR>　　　　　　　If Fieldlen(Icol) < Fieldlen1 Then<BR>　　　　　　　　xlSheet.Columns(Icol).ColumnWidth = Fieldlen1<BR>　　　　　　　　"表格列宽等于较长字段长<BR>　　　　　　　　Fieldlen(Icol) = Fieldlen1<BR>　　　　　　　　"数组Fieldlen(Icol)中存放最大字段长度值<BR>　　　　　　　Else<BR>　　　　　　　　xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)<BR>　　　　　　　End If<BR><BR>　　　　　　　xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)<BR>　　　　　　End Select<BR>　　　　　Next<BR>　　　　　If Irow <> 1 Then<BR>　　　　　　If Not .EOF Then .MoveNext<BR>　　　　　End If<BR>　　　　Next<BR>　　　With xlSheet<BR>　　　　.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体"<BR>　　　　　"设标题为黑体字<BR>　　　　.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True<BR>　　　　　"标题字体加粗<BR>　　　　.Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous<BR>　　　　"设表格边框样式<BR>　　　End With<BR>　　　xlApp.Visible = True "显示表格<BR>　　　xlBook.Save "保存<BR>　　　Set xlApp = Nothing "交还控制给Excel<BR>　　End With<BR><BR><BR>　　本程序在中文Windows98、中文VB5下通过。 <BR>

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" />

<img src="images/post/smile/dvbbs/em02.gif" />

还挺实用的，做报表很好用

很好用