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语音引擎。
联系客服