(新)vb程序调用excel数据.pdfVIP

Visual Basic 调用Excel 之技巧 吴声松 (湖北省水利水电勘测设计院地质大队 湖北 430070) Visual Basic(以下简称VB)是一套可视化、面向对象、事件驱动方 式的结构化程序设计语言，已经成为许多程序设计者甚至专业程序员用 来开发WINDOWS 应用程序的首选开发工具。但用过VB 的程序设计人员都 知道，要想用VB 输出复杂的表格来，是十分困难的。能不能用VB 调用 EXCEL 呢？Active 技术标准为我们解决了这个问题。最近笔者为单位开 发“土工试验数据整理”的某个模块时，涉及到复杂数据表格的输出问 题，经过笔者的摸索，用VB 调用EXCEL，取得了很好的效果。本文从编 程实践的角度对使用VB 控制EXCEL 的技术作简要说明。 1 EXCEL 的对象模型 如果一个应用程序支持自动化技术，那么其它的应用就可以通过其 暴露的对象，对它进行控制，控制程序称为客户机，而被控制的一方就 称为服务器，被控制的对象就是Active 对象。VB 正是通过EXCEL 显露 的各级对象来控制EXCEL 工作的。每个对象都有各自的方法和属性，通 过方法可以实现对对象的控制，而属性则可以改变对象的各种状态。 理解EXCEL 的对象模型是对其编程的基础。EXCEL 是以层次结构组 织对象的，其对象模型中含有许多不同的对象元素，这些对象元素就是 VB 可以操纵的。在EXCEL 对象的层次结构中，最顶层是Application 对 象，是Excel 本身。从该对象开始往下依次是： .workbooks 对象集，是Application 对象的下层，其指的是Excel 的工 作簿文件。 .worksheets 对象集，是Workbooks 对象集的下层，它表示的是Excel 的一个工作表。 .Cells 和Range 对象，它们是worksheets 对象的下层，它则指向Excel 工作表中的一个或多个单元格。 以上介绍的四个对象是Excel 中最重要也是用得最多的对象，而且 从上面的介绍中也不难看出，要控制Excel 中的某个具体对象，如某个 工作簿中某一表格中的单元格，就必须从Excel 层次结构对象的最上层 即Application 对象开始遍历。 2 Excel 对象的使用 2.1 application 对象的使用 如前所述，Application 对象位 Excel 层次结构对象的最上层，它代 表的是 Excel 自身，我们的应用程序理应从Application 对象的建立开 始。VB 控制 Excel 的启动方式有几种，在这里我们使用了API 调用，可 以确保目前系统中只有一个Excel 副本在运行，程序代码和说明如下： Option Explicit Public xlapp As Object‘Excel 对象 Public xlbook As Object‘工作簿 Public xlsheet As Object‘工作表 Declare Function FindWindow Lib user32 Alias _ FindWindowA (ByVal lpClassName As String, _ ByVal lpWindowName As Long) As Long Declare Function SendMessage Lib user32 Alias SendMessageA_ (ByVal hwnd As long,ByVal wMsg As Long, ByVal wParam As Long, lParam_ As Any) As_ Long 以上是公有变量和API函数应在模块中声明。 Sub GetExcel() Dim MyXL As Object 用于存放 Microsoft Excel 引用的变量。 Dim ExcelWasNotRunning As Boolean 用于最后释放的标记。 On Error Resume Next 延迟错误捕获。 不带第一个参数调用 Getobject 函数将返回对该应用程序的实例 的引用。 如果该应用程序不在运行，则会产生错误。 Set MyXL = GetObject(, Excel.Application) If Err.Number 0 Then ExcelWasNotRunning = True Err.Clear 如果发生错