vb导出excel报表

VB 是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。

一、VB读写EXCEL表：

能获取到表的行数的代码：edRange.Rows.Count

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作EXCEL表常用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值'给单元格（row,col）赋值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL 操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

二、EXCEL的宏功能：

EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub

Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("sheel1") '设置活动工作表，sheet1表示表名，可以使用字符型变量代替。

xlSheet.Activate '激活工作表，让它处于前台活动中。

xlBook.RunAutoMacros (xlAutoOpen) '运行自动开启宏Macro1()，在EXCEL中加入以下宏'Sub auto_open() '这是VBA中的自动打开时运行的宏

' 您要宏自动运行的程序，比如可以call其它的宏，这样VB在打开EXCEL时，使用上面的语句就可以先运行这个宏

'End Sub

xlSheet.Cells.Item(行数,列数) =值'给EXCEL对象中的表的单元格附值。

xlSheet.Rows("7:7").Select '选定EXCEL表的第7行

xlApp.Selection.Delete shift:=xlUp '删除选定的行

xlSheet.Rows(7).Insert '在第7行处插入一行

ActiveSheet.PageSetup.CenterHeader ="页眉内容" '给页眉附值

xlSheet.Range("f7:h7").Select '选定f7:h7之间的单元格，下面的程序是把它们合并。Application.CutCopyMode = False

With xlApp.Selection

.HorizontalAlignment = xlGeneral

.V erticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

如果有自己不会的可以用录制宏的办法，用手功操作一次你要的功能，然后看录下的宏程序，VBA中的宏程序几乎所有的宏在VB中都可以直接使用，关键是对象一定要搞清楚。

VB操作EXCEL的介绍

全面控制Excel

首先创建Excel 对象，使用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1) 显示当前窗口：

ExcelID.Visible := True;

2) 更改Excel 标题栏：

ExcelID.Caption := '应用程序调用Microsoft Excel';

3) 添加新工作簿：

ExcelID.WorkBooks.Add;

4) 打开已存在的工作簿：

ExcelID.WorkBooks.Open( 'C:ExcelDemo.xls' );

5) 设置第2个工作表为活动工作表：

ExcelID.WorkSheets[2].Activate;