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

❮上一节 VBA Range的遍历下一章第09章 VBA 图表❯

第08章 VBA Excel对象

VBA Application 应用

VBA 教程