《Excel_VBA_Application_方法属性大全.doc》由会员分享，可在线阅读，更多相关《Excel_VBA_Application_方法属性大全.doc（33页珍藏版）》请在金锄头文库上搜索。
1、Application Excel 方法属性Application对象是Excel对象模型中最高层级的对象，代表Excel应用程序自身，也包含组成工作簿的许多部分，包括工作簿、工作表、单元格集合以及它们包含的数据。Application对象包含：应用程序设置和选项，许多选项与“选项”对话框中的选项相同。返回顶级对象的方法，例如ActiveCell、ActiveSheet，等等。本文使用VBA代码示例简要介绍了与Application对象相关的经常使用的对象、方法和属性，其中一些成员能够改变用户与Excel应用程序交互的方式，还能够改变应用程序的外观和式样。熟悉Application对象能够让您
2、扩展和调整Excel的功能，以满足自已的需求。本文主要介绍的内容如下：从Application对象中引用对象Application对象相关的集合 AddIns集合 Columns集合和Rows集合 Dialogs集合 Sheets集合Application对象相关的属性 ActiveCell属性 ActiveChart属性 ActiveSheet属性 ActiveWindow属性 ActiveWorkbook属性 RangeSelection属性 ScreenUpdating属性 Selection属性 StatusBar属性 ThisWorkbook属性Application对象相关的方法
3、FindFile方法和Dialogs集合 GetOpenFilename方法 GetSaveAsFilename方法 InputBox方法 Run方法Application对象相关的事件 激活Application事件监视使用Application对象执行其它任务 删除工作表而显示提示信息（DisplayAlerts属性） 无须提示用户而保存工作表（DisplayAlerts属性） 使用SendKeys方法发送信息到记事本 安排宏在指定的时间和间隔运行（OnTime方法）Application对象的其它一些属性和方法 Caller属性 CutCopyMode属性 Evaluate方法 OnKe
4、y方法 ThisCell属性 WorksheetFunction属性 改变光标显示（Cursor属性） 获取或改变Excel窗口的状态或大小（WindowState属性） 获取系统信息 自动隐藏公式栏（DisplayFormulaBar属性） 将Excel全屏显示（DisplayFullScreen属性） 获取Excel启动文件夹的路径（StartupPath属性） 检测Excel的版本（Version属性） 打开最近使用过的文档（RecentFiles属性） 文件对话框操作（FileDialog属性） 改变Excel工作簿的名称（Caption属性） 调用Windows的计算器（Activa
5、teMicrosoftApp方法） 暂时停止宏运行（Wait方法） 重新计算工作簿（Calculate方法） 控制函数重新计算（Volatile方法） 获取重叠区域（Intersect方法） 获取路径分隔符（PathSeparator属性） 快速移至指定位置（Goto方法） 关闭Excel（Quit方法）从Application对象中引用对象使用Application属性返回Application对象。在引用应用程序之后，要访问Application对象下面的对象，则依次下移对象模型层级。例如，下面的代码设置第一个工作簿的第一个工作表中的第一个单元格的值为20：Application.Work
6、books(1).Worksheets(1).Cells(1, 1) = 20要引用该单元格，上述代码以Application对象开始，移至第一个工作簿，然后到第一个工作表，最后到达单元格。下面的示例代码在另一个应用程序中创建一个Excel工作簿，然后打开该工作簿：Set xl = CreateObject(Excel.Sheet)xl.Application.Workbooks.Open newbook.xls可以使用许多属性和方法返回最常用的用户界面对象，例如活动工作表（ActiveSheet属性），而无须Application对象限定。例如，下面的代码：Application.Activ
7、eSheet.Name = Monthly Sales可以替换为：ActiveSheet.Name = Monthly Sales然而，在使用简短的引用时必须小心，必须已经选择了正确的对象。如果已经使用诸如Worksheet对象的Activate方法选择了合适的工作簿和工作表，那么能够使用下面的代码引用第一个单元格：Cells(1, 1) = 20有一些实例必须使用Application限定引用。例如，OnTime方法、应用程序窗口的Width和Height属性。通常，处理Excel窗口外观的属性或者影响应用程序全部行为的属性需要Application限定，例如DisplayFormulaBa
8、r属性用于显示或隐藏公式栏。Calculation方法也需要限定。Application对象相关的集合本节介绍与Application对象相关的一些集合。AddIns集合AddIns集合代表当前在Excel中装载的所有加载项。就像遍历任何其它集合一样，可以列出应用程序中关于加载项的不同类型的信息。下面的示例列出当前在Excel中装载的加载项的路径和名称：Sub ListAddIns() Dim myAddin As AddIn For Each myAddin In AddIns MsgBox myAddin.FullNameNextEnd SubColumns集合和Rows集合这些集合代表当
9、前工作簿中的列和行，可以使用它们分别选择指定的列和行。Application.Columns(4).Select上述语句选择D列，就像在工作表中单击该列的标题一样。Application.Rows(5).Select上述语句选择第5行，就像在工作表中单击该行的行边一样。Dialogs集合Dialogs集合由应用程序中所有的对话框组成。本文后面将详细介绍该集合。Sheets集合Sheets对象返回指定工作簿或活动工作簿中所有工作表的集合。Sheets集合包含Chart对象或Worksheet对象。下面的示例打印活动工作簿中所有工作表：Application.Sheets.PrintOut下面的示
10、例遍历工作簿中所有的工作表，并打印包含有数据的工作表：For iSheet = 1 To Application.Sheets.Count If Not IsEmpty(Application.Sheets(iSheet).UsedRange) Then Application.Sheets(iSheet).PrintOut copies:=1 End If Next iSheetApplication对象相关的属性在Excel 2007应用程序中，有大量的属性用来访问不同的对象。这里，只探讨经常使用的属性。 ActiveCell ActiveChart ActiveSheet ActiveW
11、indow ActiveWorkbook RangeSelection ScreenUpdating Selection StatusBar ThisWorkbookActiveCell属性Application对象的ActiveCell属性返回Range对象，代表活动工作簿的活动工作表中的活动单元格。如果没有指定对象限定，那么该属性返回活动窗口中的活动单元格。注意区分活动单元格和单元格选区。活动单元格是当前选区里的单个单元格，选区可能包含很多单元格，但仅有一个单元格是活动单元格。下面的示例改变活动单元格的字体格式。注意确保正在处理正确的单元格，Worksheets集合的Activate方法使
12、工作表Sheet1为活动工作表。Worksheets(Sheet1).Activate With ActiveCell.Font .Bold = True .Italic = True End WithActiveChart属性ActiveChart属性返回Chart对象，代表活动图表，无论该图表是嵌入式图表还是图表工作表。当嵌入式图表被选择或者被激活时，该图表是活动图表。下面的示例使用ActiveChart属性在工作表Monthly Sales中添加一个三维柱形图：Sub AddChart() Charts.Add With ActiveChart .ChartType = xl3DColu
13、mn .SetSourceData Source:=Sheets(Sheet1).Range(B3:H15) .Location Where:=xlLocationAsObject, Name:=Monthly Sales .HasTitle = True .ChartTitle.Characters.Text = Monthly Sales by Category End WithEnd SubActiveSheet属性ActiveSheet属性返回Worksheet对象，代表当前所选择的工作表（在顶部的工作表）。在一个工作簿中仅仅有一个工作表是活动工作表。下面的示例显示活动工作表的名字：M
14、sgBox 活动工作表的名字是 & ActiveSheet.Name下面的示例由用户指定复制活动工作表的次数并复制活动工作表，将复制的工作表放置到工作表Sheet1的前面：Sub CopyActiveSheet()Dim x As Integer, numtimes As Integer x = InputBox(请输入复制活动工作表的次数) For numtimes = 1 To x 在工作表Sheet1的前面放置工作表副本 ActiveWorkbook.ActiveSheet.Copy Before:=ActiveWorkbook.Sheets(Sheet1) NextEnd SubAct
15、iveWindow属性ActiveWindow属性返回Window对象，代表活动窗口（在顶部的窗口）。下面的示例显示活动窗口的名称（Caption属性）：MsgBox 活动窗口的名称是 & ActiveWindow.CaptionCaption属性返回活动窗口的名称，允许使用名称而不是索引号来更清楚地访问该窗口。下面的示例选择并打印工作表，然后对第二个工作表重复这一过程：Sub PrintWorksheet() Application.ScreenUpdating = False Sheets(Sales).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets(Expenses).Select ActiveWindow.S
