欢迎来到天天文库
浏览记录
ID:34595556
大小:43.67 KB
页数:10页
时间:2019-03-08
《在vb应用程序中调用excel2000》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、一、Excel对象模型 为了在VB应用程序中调用Excel,必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构,所提供的对象很多,其中最重要的对象,即涉及VB调用Excel最可能用到的对象有: 二、调用Excel 在VB应用程序中调用Excel,实质是将Excel作为一个外部对象来引用,由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。 1、在VB工程中添加对Excel类型库的引用 为了能从VB应用程序中访问Excel丰富的内部资源,使
2、Excel应用程序运行得更快,需要在VB工程中添加对Excel类型库的引用。具体步骤如下: a)从VB5“工程”菜单中选择“引用”; b)在“引用”对话框中选择Excel类型库:"MicrosoftExcel9.0ObjectLibrary"; c)单击左边小方框,使之出现“√”符号; d)按“确定”退出。 注:要想在VB应用程序中调用Excel,你的计算机系统中必须安装Excel。 2、引用Application对象 Application对象是Excel对象模型的顶层,表示整个Excel应用程
3、序。在VB应用程序中调用Excel,就是使用Application对象的属性、方法和事件。为此,首先要声明对象变量: DimVBExcelAsObject 或直接声明为Excel对象: DimVBExcelAsExcel.Application 在声明对象变量之后,可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。 a)用CreateObject函数生成新的对象引用: SetVBExcel=CreateObject("Exce
4、l.Application") 字符串“Excel.Application”是提供Excel应用程序的编程ID,这个变量引用Excel应用程序本身。 b)用GetO场ect函数打开已存在的对象引用: SetAppExcel=GetObject("SAMP.XLS") 上面语句打开文件SAMP.XLS。 3、Application对象常用的属性、方法 属性、方法方法 Visible属性取True或False,表明Excel应用程序是否可见。 Left,Top属性Excel窗口的位置; He
5、ight,Width属性Excel窗口的大小; WindowState属性指定窗口的状态,取:XIMaximized(最大化)X1Minimized(最小化)x1Normal(缺省)。 Quit方法退出MicrosoftExcel; Calculate方法重新计算所有打开的工作簿、工作表或单元格。 Evaluate方法求值数学表达式并返回结果。 示例1:求值数学表达式: DimVBExcelAsObject SetVBExcel=CreateObject("Excel.Application"
6、) X=VBExcel.Evaluate("3+5*(cos(1/log(99.9)))") 三、使用Excel应用程序 如前所述,在VB应用程序中调用Excel应用程序,就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。 1、使用工作薄 Workbook对象代表Excel应用程序中当前打开的一个工作簿,包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的ActiveWorkbook对象访问Workbook对象。 常用的方法有:
7、 属性、方法意义 Add方法创建新的空白工作簿,并将其添加到集合中。 Open方法打开工作簿。 Activate方法激活工作簿,使指定工作簿变为活动工作簿,以便作为ActiveWorkbook对象使用。 Save方法按当前路径和名称保存现有工作簿(如是首次保存,则将其保存到缺省名称中,如BOOK1.XLS)。 SaveAs方法首次保存工作簿或用另一名称保存工作簿。 Close方法关闭工作簿。 PrintOut方法打印工作簿,语法为: PrintOut(from,To,Copies,Pre
8、view,Printer,ToFile,Collate) 可选参数: From:打印的起始页号。如省略将从起始位置开始打印。 To:打印的终止页号。如省略将打印至最后一页。 Copies:要打印的份数。如省略将只打印一份。 Preview:如果为True则Excel打印指定对象之前进行打印预览。如果为False,或省略则立即打印该对象。 Printer:设置活
此文档下载收益归作者所有