IT编程技术

天行健，君子以自强不息；地势坤，君子以厚德载物；

Excel VBA第十三节-Excel常用的对象之Application对象

2021-2-7 博主：Splendor EXCEL VBA基础

常用的Application对象

Application对象
在前面我们知道applicationn对象处于Excel对象层次结构的顶层（就相当一个盘子，但盘子里还没有菜，这个盘子就是所有菜的承载平台）。这对于作为一个程序员的你究竟意味着什么？这意味着你可以使用 Application对象来控制应用程序级的设置和选项，诸如在“工具”、“选项”菜单中可以找到的项目一样。
Sub setApplication()
    With Application
        .ReferenceStyle = xlR1C1
        .UserName = "Sharon Podlin"
        .StandardFont = "Arial"
        .StandardFontSize = "10"
        .DefaultFilePath = " C:\WINNT\Profiles\Administrator\Personal"
        .EnableSound = False
        .RollZoom = False
    End With
    Application.DisplayStatusBar = False
End Sub
说明：
ReferenceStyle：设置 Microsoft Excel 是以 A1 引用样式还是以 R1C1来表示
UserName：置当前用户的名称
StandardFont ：设置标准字体的名称
StandardFontSize：设置标准字体大小
DefaultFilePath：设置 Microsoft Excel 打开文件时使用的默认路径
EnableSound：设置 Microsoft Office 启用声音
RollZoom：智能鼠标进行缩放而不是滚动，则该属性值为 True
注：对于上面的代码，需要注意的主要是操作的对象，即Application对象。通过上面的说明，你可以在一定程度上了解这个对象的重要性。

在VBA中使用Excel的内置函数
例： 
setAnswer=Application.Average(Worksheets("Sheet1").Range("B1:B4"))
说明：
从VBA里调用excel函数求sheet1中B1到B4单元格所有数的平均值
Application对象有用的属性和方法
你将发现Application对象有几种非常有用的属性和方法。其中一些属性如下：
•ActiveWorkbook返回当前活动的工作簿。
•ActiveSheet返回当前活动的工作簿中活动的工作表。返回的工作表可以是Excel支持的任何工作表类型，包括工作表和图表工作表。
•ActiveCell返回当前活动的工作簿中活动的工作表中活动的单元格。
•ThisWorkbook返回正在执行的过程所驻留的工作簿。
•MailSystem返回本系统所采用的邮件系统。当进行邮件自动化时本属性非常有用。
•MailSession用于检测用户是否登录了电子邮件。
•OperatingSystem当开发由Windows和Mac用户使用的VBA应用程序时，这个属性非常有用。可以用这个属性来决定所使用的操作系统，并且做出必要的改变。
•Selection用于决定当前选中了什么，可以是单元格、图表、图形对象等等。你已经使用过一个Application对象的方法—InputBox。InputBox方法可以显示一个输入框，并且可以指定返回值的数据类型。

Application对象的其他有用的方法包括：
•MailLogon和MailLogoff和MailSystem和MailSession属性配合使用，这两个方法可以登录和退出电子邮系统。
•Quit用于退出Excel。
•Run用来执行Excel4.0宏。

标签: EXCELVBA基础

« ExcelVBA实战【第二期】-浅谈正则（一）什么是正则如何调用以及正则的方法属性 | Excel VBA第十二节-对象介绍»