Excel Application对象应用大全

《Excel Application对象应用大全》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ExcelApplication对象应用大全(1)[完美Excel]本文以MSDN中的技术文章《DevelopersGuidetotheExcel2007ApplicationObject》为线条，参考了一系列相关技术文章和图书资料，全面整理和总结了Application对象应用知识。Application对象是Excel对象模型中最高层级的对象，代表Excel应用程序自身，也包含组成工作簿的许多部分，包括工作簿、工作表、单元格集合以及它们包含的数据。Application对象包含：应用程序设置和选项，许多选项与“选项”对话框中的选项相同。·返回顶级

2、对象的方法，例如ActiveCell、ActiveSheet，等等。·本文使用VBA代码示例简要介绍了与Application对象相关的经常使用的对象、方法和属性，其中一些成员能够改变用户与Excel应用程序交互的方式，还能够改变应用程序的外观和式样。熟悉Application对象能够让您扩展和调整Excel的功能，以满足自已的需求。本文主要介绍的内容如下：从Application对象中引用对象Application对象相关的集合AddIns集合·Columns集合和Rows集合·Dialogs集合·Sheets集合·Application对象相关的

3、属性ActiveCell属性·ActiveChart属性·ActiveSheet属性·ActiveWindow属性·ActiveWorkbook属性·RangeSelection属性·ScreenUpdating属性·Selection属性·StatusBar属性·ThisWorkbook属性·Application对象相关的方法FindFile方法和Dialogs集合·GetOpenFilename方法·GetSaveAsFilename方法·InputBox方法·Run方法·Application对象相关的事件激活Application事件监视·

4、使用Application对象执行其它任务删除工作表而显示提示信息（DisplayAlerts属性）·无须提示用户而保存工作表（DisplayAlerts属性）·使用SendKeys方法发送信息到记事本·安排宏在指定的时间和间隔运行（OnTime方法）·Application对象的其它一些属性和方法Caller属性·CutCopyMode属性·Evaluate方法·OnKey方法·ThisCell属性·WorksheetFunction属性·改变光标显示（Cursor属性）·获取或改变Excel窗口的状态或大小（WindowState属性）·获取系统

5、信息·自动隐藏公式栏（DisplayFormulaBar属性）·将Excel全屏显示（DisplayFullScreen属性）·获取Excel启动文件夹的路径（StartupPath属性）·检测Excel的版本（Version属性）·打开最近使用过的文档（RecentFiles属性）·文件对话框操作（FileDialog属性）·改变Excel工作簿的名称（Caption属性）·调用Windows的计算器（ActivateMicrosoftApp方法）·暂时停止宏运行（Wait方法）·重新计算工作簿（Calculate方法）·控制函数重新计算（Vola

6、tile方法）·获取重叠区域（Intersect方法）·获取路径分隔符（PathSeparator属性）·快速移至指定位置（Goto方法）·关闭Excel（Quit方法）·从Application对象中引用对象使用Application属性返回Application对象。在引用应用程序之后，要访问Application对象下面的对象，则依次下移对象模型层级。例如，下面的代码设置第一个工作簿的第一个工作表中的第一个单元格的值为20：Application.Workbooks(1).Worksheets(1).Cells(1,1)=20要引用该单元格，上

7、述代码以Application对象开始，移至第一个工作簿，然后到第一个工作表，最后到达单元格。下面的示例代码在另一个应用程序中创建一个Excel工作簿，然后打开该工作簿：Setxl=CreateObject("Excel.Sheet")xl.Application.Workbooks.Open"newbook.xls"可以使用许多属性和方法返回最常用的用户界面对象，例如活动工作表（ActiveSheet属性），而无须Application对象限定。例如，下面的代码：Application.ActiveSheet.Name="MonthlySales"

8、可以替换为：ActiveSheet.Name="MonthlySales"然而，在使用简短的引用时必须小心，