VBA: Application对象（1）

出差了好多天，一直没空打理下公众号。今天回来，舟车劳顿，面容憔悴。 暂无精力弄个详细的文章，就来点简单粗暴的代码给大家看看吧。 就挑个Application对象！

---

Application是Excel对象模型中处于顶端的对象。 通过Application对象可以获取和设置很多Excel软件本身层面有用的信息以及和系统相关联的信息等等等等等。  

---

下面提供了小部分代码：

同学们可以参照我下面的方式，在VBE中运行试试看。 我只是罗列了很小的一部分， 亲们也可以自己输入其他的Appliction属性运行学习并收集其他的属性方法。

---

注意： 不用像背单词一样去记忆这些属性，程序里面各种属性方法太多了， 学点常用的即可，其他的属性方法啊等自己平时收集整理就行了，用时知道找就行。

Sub 获取excel的版本()

MsgBox Application.Version

End Sub

Sub 获取excel的版权所属()

MsgBox Application.Parent

End Sub

Sub 获取excel的安装路径()

MsgBox Application.Path

End Sub

Sub 获取注用户名()

MsgBox Application.UserName

End Sub

Sub 获取注册组织名称()

MsgBox Application.OrganizationName

End Sub

Sub 获取当前操作系统名称和版本号()

MsgBox Application.OperatingSystem

End Sub

Sub 获取打开excel文件的默认位置路径()

MsgBox Application.DefaultFilePath

End Sub

Sub 获取模板保存的默认格式()

MsgBox Application.DefaultSaveFormat

End Sub

Sub 获取库文件夹路径()

MsgBox Application.LibraryPath '(不包含尾部分隔符'\')

End Sub

Sub 获取路径分隔符()

MsgBox Application.PathSeparator  ''\'

End Sub

Sub 获取主窗口标题栏名称()

MsgBox Application.Caption

End Sub