在VB应用程序中调用Excel2000

　　Visual Basic简称(VB)是设计Windows应用程序强有力的开发工具，“全球绝大多数Windows应用程序都是用VB开发的”； Excel是目前使用最广泛的办公应用软件之一，它具有强大的数学分析与计算功能，包括很多VB没有的求值数学表达式的函数和方法。由于Excel的应用程序对象是外部可创建的对象，所以能从VB应用程序内部来程序化操纵Excel。本文结合自己的实践和体会，谈谈如何在VB6.0应用程序中调用Exce12000，供大家参考。

　　一、Excel对象模型

　　为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多，其中最重要的对象，即涉及VB调用Excel最可能用到的对象有：

　　二、调用Excel

　　在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。

　　1、在VB工程中添加对Excel类型库的引用

　　为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下：

　　a）从VB5“工程”菜单中选择“引用”；

　　b） 在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"；

　　c）单击左边小方框，使之出现“√”符号；

　　d）按“确定”退出。

　　注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。

　　2、引用Application对象

　　Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量：

Dim VBExcel As Object
　　或直接声明为Excel对象：

Dim VBExcel As Excel.Application
　　在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。

　　a）用CreateObject函数生成新的对象引用：

Set VBExcel=CreateObject ("Excel.Application")
　　字符串“Excel.Application”是提供Excel应用程序的编程ID，这个变量引用Excel应用程序本身。

　　b）用GetO场ect函数打开已存在的对象引用：

Set AppExcel=GetObject("SAMP.XLS")
　　上面语句打开文件SAMP.XLS。

　　3、Application对象常用的属性、方法

属性、方法 方法 Visible属性 取True或False，表明Excel应用程序是否可见。 Left,Top属性 Excel窗口的位置； Height, Width属性 Excel窗口的大小； WindowState属性 指定窗口的状态，取：XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)。 Quit方法 退出Microsoft Excel； Calculate方法 重新计算所有打开的工作簿、工作表或单元格。 Evaluate方法 求值数学表达式并返回结果。
　　示例1：求值数学表达式：

Dim VBExcel As Object
Set VBExcel=CreateObject ("Excel.Application")
X=VBExcel. Evaluate ("3 5*(cos (1/log (99. 9)))") 　　三、使用Excel应用程序

　　如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。

　　1、使用工作薄

　　Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。

　　常用的方法有：

属性、方法 意义 Add方法 创建新的空白工作簿，并将其添加到集合中。 Open方法 打开工作簿。 Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。 Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。 SaveAs方法 首次保存工作簿或用另一名称保存工作簿。 Close方法 关闭工作簿。 PrintOut方法 打印工作簿，语法为：

PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate)

　　可选参数：

　From：打印的起始页号。如省略将从起始位置开始打印。
　To：打印的终止页号。如省略将打印至最后一页。
　Copies：要打印的份数。如省略将只打印一份。
　Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。
　Printer：设置活动打印机的名称。
　ToFile：如果为True则打印输出到文件。
　Collate：如果为True则逐份打印每份副本。
　　下面语句将活动工作簿的2到5页打印3份：

ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3
　　示例2：生成、保存、关闭工作簿

Dim VBExcel As Excel.Application
Set VBExcel== CreateObject("Excel.Application")

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有