VBA Application 应用
Application对象表示整个Excel应用程序。
通过它可以控制程序的界面元素：如编辑栏、滚动条、状态栏、应用程序的显示设置；
通过它可以获取其它三大对象的集合与它们的控制：工作簿的集合、工作表的集合、区域的集合。
通过它可以获取当前三大对象：当前工作簿、当前工作表、当前单元格。
| Application成员 | 说明 |
|---|---|
| 窗口界面 | |
| DisplayFormulaBar | 隐藏/显示 编辑栏 |
| DisplayScrollBars | 隐藏/显示 滚动条栏 |
| DisplayStatusBar | 隐藏/显示 状态栏 |
| WindowState | 设置 窗口状态： 最大化xlMaximized 最小化xlMinimized 一般xlNormal |
| Visible | 隐藏/显示 整个应用程序 |
| 对象集合与当前对象 | |
| Workbooks | 工作簿集合 |
| Sheets | 工作表集合 |
| Cells | 单元格集合 |
| ActiveWorkbook | 当前工作簿 |
| ActiveSheet | 当前工作表 |
| ActiveCell | 当前选中单元格 |
| 方法 | |
| Quit | 退出应用程序 |
示例
例1：界面元素的隐藏设置的相关属性。
Sub test1_1()
Application.DisplayFormulaBar = False '隐藏 编辑栏
Application.DisplayScrollBars = False '隐藏 滚动条栏
Application.DisplayStatusBar = False '隐藏 状态栏
Application.WindowState = xlMinimized '设置 窗口状态最小化
Application.Visible = False '隐藏 整个application
End Sub
对应显示设置：
Sub test1_2()
Application.DisplayFormulaBar = True '显示 编辑栏
Application.DisplayScrollBars = True '显示 滚动条栏
Application.DisplayStatusBar = True '显示 状态栏
Application.WindowState = xlMaximized '设置 窗口状态 最大化
Application.Visible = True '显示 整个application
End Sub
例2：对象集合与当前对象的相关属性。
Sub test2()
Debug.Print Application.ActiveCell.Value '当前选中单元格的值
Debug.Print Application.ActiveSheet.Name '当前sheet的名称
Debug.Print Application.ActiveWorkbook.Name '当前workbook的名称
Debug.Print Application.Workbooks.Count 'workbook个数
Debug.Print Application.Sheets.Count 'sheets个数
Debug.Print Application.Cells.Cells(1, 1) 'cells中的第1行第1列
End Sub
例3：方法
Sub test3()
Application.Quit '退出应用程序
End Sub