正在阅读:用VB控制EXCEL生成报表用VB控制EXCEL生成报表

2004-12-27 15:13 出处: 作者:zaowei21 责任编辑:linjixiong

  做为一种简捷、系统的 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 < 1 Then
    MsgBox ("Error 没有记录!")
    Exit Sub
   End If

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

   ReDim Fieldlen(Icolcount).MoveFirst

   For Irow = 1 To Irowcount + 1
    For Icol = 1 To Icolcount
     Select Case Irow
      Case 1 "在Excel中的第一行加标题
     xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name
      Case 2 "将数组FIELDLEN()存为第一条记录的字段长

       If IsNull(.Fields(Icol - 1)) = True Then
        Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)
        "如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度
       Else
        Fieldlen(Icol) = LenB(.Fields(Icol - 1))
       End If

热点推荐:
 强!Java实现MSN Messenger聊天 C++程序员容易犯的10个C#错误
 精彩:ASP遗留的二十大积习 软件开发入门学习的个人看法
 Java编程学习:自己DIY一个JSP日历 设计模式的有趣解释-追MM
 网页编程必看:XML文法分析 Windows管理员六大必备下载




察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:

键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品