AddIns 屬性
返回一個(gè) AddIns 集合，該集合表示“加載項”對話(huà)框中列出的所有加載項。
?。ā伴_(kāi)發(fā)工具”選項卡上的“加載項”命令）
說(shuō)明：
在不使用對象識別符的情況下使用這種方法等價(jià)于 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 = '名稱(chēng)'
Cells(1, 2).Value = '加載'
Cells(1, 3).Value = '打開(kāi)'
Cells(1, 4).Value = '標題'
Cells(1, 5).Value = '完整路徑'
Columns('a:d').AutoFit
Application.ScreenUpdating = True
MsgBox '加載項提取完成'
此處代碼盡量只用到目前有講到的知識點(diǎn)方法來(lái)實(shí)現，會(huì )數組的童鞋可以改成用數組實(shí)現。
效果如下圖：
CustomListCount 屬性
返回已定義的自定義序列的數目（包括內置序列）。
示例：
MsgBox '當前一共有自定義序列 '& Application.CustomListCount & ' 條'
Visible 屬性
返回或設置一個(gè) Boolean 值，它確定對象（應用程序）是否可見(jiàn)。
在用窗體開(kāi)發(fā)小型MIS時(shí)或者一些其他代碼時(shí)，可以把EXCEL對象隱藏。
示例：
If MsgBox('點(diǎn)擊 確定 后，隱藏應用程序',vbOKCancel) = vbOK Then
Application.Visible = False
MsgBox '顯示應用程序'
Application.Visible = True
End If
Version 屬性
返回一個(gè) String 值，它代表 Microsoft Excel 版本號。
Excel 2003 版本號為：11.0
Excel 2007 版本號為：12.0
Excel 2010 版本號為：14.0
在代碼中，當需要在特定的Excel版本運行的時(shí)候，可以用該屬性進(jìn)行判斷。
示例：
If Application.Version <>'14.0' Then
'這里寫(xiě)成 if application.Version<>14 then也可以。
MsgBox '代碼要求在Excel 2010下運行，謝謝！'
Exit Sub
End If
ThisWorkbook 屬性
返回一個(gè) Workbook 對象，該對象表示其中正在運行當前宏代碼的工作簿。
說(shuō)明：
可使用該屬性引用包含您的宏代碼的工作簿。
ThisWorkbook 是從加載宏自身內部引用加載宏工作簿的唯一途徑。
ActiveWorkbook 屬性不返回加載宏工作簿，而是返回調用加載宏的工作簿。
ThisWorkbook 總是返回其中正在運行代碼的工作簿。
StartupPath 屬性
返回用戶(hù)啟動(dòng)文件夾的完整路徑，不包括尾部分隔符。
示例：
msgbox application.StartupPath
一些病毒都會(huì )盯上Excel啟動(dòng)文件夾與用戶(hù)啟動(dòng)文件夾。
當懷疑有中宏病毒時(shí)，可以在這里找找有沒(méi)有來(lái)歷不明工作簿。
Speech 屬性
返回一個(gè) Speech 對象。
Speech 對象包括與語(yǔ)音相關(guān)的方法和屬性。
示例：
Application.Speech.Speak '恭喜發(fā)財，紅包拿來(lái)'
要求電腦上有安裝微軟TTS語(yǔ)音引擎。
聯(lián)系客服
