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