第11章VB与Excel的数据交换

-111- 第 11 章 VB 与 Excel 的 数 据 交 换 Excel是目前非常流行的电子表格软件，很多人都习惯于在EXCEL中处理数据，并在Excel中完成报表输出等功能，但Excel 的数据处理功能相对较弱，而VB 具有强大的数据处理功能，但报表输出功能相对较弱。本章以实例的形式介绍VB 如何从Excel 中获得数据，再将处理后的数据保存到Excel 工作表中，并调用Excel 中的VBA 指令对排版，生成数据报表。 11.1 VB 中Ex cel 的启动与关闭 11.1.1 Excel 对象库引用 在VB 中调用Excel，首先需要打开VB 编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”（Excel 版本不同，这个选项中的的版本号可能不一样）。引用Excel 对象库后，对编写代码会带来很多便利。 11.1.2 Excel 对象声明 EXCEL 是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。编程过程中主要用到以下 4 个层次的对象。 1．Application 对象，即 Excel 程序本身； 2．WorkBook 对象，即 Excel 的工作簿文件对象； 3．WorkSheets 对象，表示的是Excel 的工作表对象集；例如：worksheets(1)表示第一个工作表。 4．Cells、Range、Rows、Columns 对象，分别表示 Excel 工作表中的单元格对象集、区域对象、行对象集、列对象集。例如： Cells(3，5) 表示第 3 行第 5 列的那个单元格 Range("C5") 表示第 3 行第 5 列的那个单元格 Range("A1:C5") 表示从A1 单元格到C5 单元格的矩形区域 Rows(1) 表示第 1 行 Range("1:1") 表示第 1 行 Range("1:10") 表示第 1 到10 行的区域 Columns(1) 表示第 1 列 Range("A:A") 表示第 1 列 Range("A:D") 表示从第 A 到D 列 -112- 11.1.3 VB 中Excel 的启动与关闭 例11-1 新建立一个VB 的工程，在窗体上添加2 个命令按钮（Command1 和Command2），2 个按钮的Caption 分别为“启动 Excel”和“关闭 Excel”，输入以下代码即可。 Dim xls As New Excel.Application '声明一个Excel 应用程序对象 Dim xbook As New Excel.Workbook '声明一个Excel 工作薄对象 Dim xsheet As New Excel.Worksheet '声明一个Excel 工作表象 Private Sub Command1_Click() Set xbook = xls.Workbooks.Add '启动 Excel，并将自动创建的工作薄赋给 xbook Set xsheet = xbook.Worksheets...