热门文章 | 热门软件| 热门源码 | 热门电影 | 知识库 | 联系我们
软件 源码 教程 影视 健康 招聘
  HTML | JavaScript | ASP | PHP | JSP | NET | VB | VC | VF | Windows | Linux | Mysql | Mssql | Oracle | Struts 
当前位置： 创世纪计算机资源网 -> 文章频道 ->vb 
站内搜索：
用VB控制EXCEL生成报表
作者：佚名 来源：不详 整理日期：2006-8-17

　　下面给出一个实例：

　　首先建立一个窗体（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

　　　　　　　xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
　　　　　　　　"Excel列宽等于字段长
　　　　　　　xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
　　　　　　　　"向Excel的CellS中写入字段值
　　　　　　Case Else
　　　　　　　Fieldlen1 = LenB(.Fields(Icol - 1))

　　　　　　　If Fieldlen(Icol) < Fieldlen1 Then
　　　　　　　　xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
　　　　　　　　"表格列宽等于较长字段长
　　　　　　　　Fieldlen(Icol) = Fieldlen1
　　　　　　　　"数组Fieldlen(Icol)中存放最大字段长度值
　　　　　　　Else
　　　　　　　　xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
　　　　　　　End If

　　　　　　　xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
　　　　　　End Select
　　　　　Next
　　　　　If Irow <> 1 Then
　　　　　　If Not .EOF Then .MoveNext
　　　　　End If
　　　　Next
　　　With xlSheet
　　　　.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体"
　　　　　"设标题为黑体字
　　　　.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True
　　　　　"标题字体加粗
　　　　.Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous
　　　　"设表格边框样式
　　　End With
　　　xlApp.Visible = True "显示表格
　　　xlBook.Save "保存
　　　Set xlApp = Nothing "交还控制给Excel
　　End With

　　本程序在中文Windows98、中文VB5下通过。
【相关文章】
最新文章

IIf函数的使用
VB入门技巧50例(六)
VB入门技巧50例(五)
VB入门技巧50例(四)
VB入门技巧50例(三)
VB入门技巧50例(二)
VB入门技巧50例(一)
GetSystemMetrics函数参数nIndex的定义

热门文章

VB+Access设计图书管理系统
用VB控制EXCEL生成报表
VB中Winsock控件的使用
VB中列表框的使用技巧说明
VB访问SQL Server数据库技术全揭密
VB编程之路－如何让界面美化
Visual Basic 界面设计大观
怎样在VB中控制Word?

| 设为首页 | 加入收藏 | 联系站长 | 网站地图 | 版权申明 | 管理登录 | 

CopyRight © 2001～2006 www.gold98.net All Rights Reserved
备案号：湘ICP备06012244号