【烟花原创】VBA零基础之第85篇 Application对象（三）

hwc2ycy

AddIns 属性

　返回一个 AddIns 集合，该集合表示“加载项”对话框中列出的所有加载项。
　（“开发工具”选项卡上的“加载项”命令）

　说明：

　　在不使用对象识别符的情况下使用这种方法等价于 Application.Addins。

　　注意，用作 AddIns 集合索引的字符串是加载宏的标题，而不是加载宏的文件名。

　示例：

　　'列出加载宏

　　Dim objAddin As Object

　　Dim i As Byte

　　On Error Resume Next

　　Application.ScreenUpdating = False

　　Worksheets.Add

　　i = 1

　　For Each objAddin In Application.AddIns

　　　i= i + 1

　　　With objAddin

　　　　Cells(i, 1).Value = .Name

　　　　Cells(i, 2).Value = .Installed

　　　　Cells(i, 3).Value = .IsOpen

　　　　Cells(i, 4).Value = .Title

　　　　Cells(i, 5).Value = .FullName

　　　End With

　　Next

　　Cells(1, 1).Value = "名称"

　　Cells(1, 2).Value = "加载"

　　Cells(1, 3).Value = "打开"

　　Cells(1, 4).Value = "标题"

　　Cells(1, 5).Value = "完整路径"

　　Columns("a:d").AutoFit

　　Application.ScreenUpdating = True

　　MsgBox "加载项提取完成"
　　此处代码尽量只用到目前有讲到的知识点方法来实现，会数组的童鞋可以改成用数组实现。

　效果如下图：
　　

CustomListCount 属性

　返回已定义的自定义序列的数目（包括内置序列）。

　示例：

　　MsgBox "当前一共有自定义序列 "& Application.CustomListCount & " 条"

Visible 属性

　返回或设置一个 Boolean 值，它确定对象（应用程序）是否可见。

　在用窗体开发小型MIS时或者一些其他代码时，可以把EXCEL对象隐藏。

示例：

　If MsgBox("点击 确定 后，隐藏应用程序",vbOKCancel) = vbOK Then

　　Application.Visible = False

　　MsgBox "显示应用程序"

　　Application.Visible = True

　End If

Version 属性

　返回一个 String 值，它代表 Microsoft Excel 版本号。

　Excel 2003 版本号为：11.0

　Excel 2007 版本号为：12.0

　Excel 2010 版本号为：14.0

　在代码中，当需要在特定的Excel版本运行的时候，可以用该属性进行判断。

　示例：

　　If Application.Version <>"14.0" Then

　　'这里写成 if application.Version<>14 then也可以。

　　　MsgBox "代码要求在Excel 2010下运行，谢谢！"

　　　Exit Sub

　　End If

ThisWorkbook 属性

　返回一个 Workbook 对象，该对象表示其中正在运行当前宏代码的工作簿。

　说明：

　　可使用该属性引用包含您的宏代码的工作簿。

　　ThisWorkbook 是从加载宏自身内部引用加载宏工作簿的唯一途径。

　　ActiveWorkbook 属性不返回加载宏工作簿，而是返回调用加载宏的工作簿。

　　ThisWorkbook 总是返回其中正在运行代码的工作簿。

StartupPath 属性

　返回用户启动文件夹的完整路径，不包括尾部分隔符。

　示例：

　　msgbox application.StartupPath

　一些病毒都会盯上Excel启动文件夹与用户启动文件夹。

　当怀疑有中宏病毒时，可以在这里找找有没有来历不明工作簿。

　　

Speech 属性

　返回一个 Speech 对象。

　Speech 对象包括与语音相关的方法和属性。

　示例：

　　Application.Speech.Speak "恭喜发财，红包拿来"

　要求电脑上有安装微软TTS语音引擎。

tingfeng461002

ANDY0393

谢谢分享，标记，八十五