AddIns 屬性

　返回一個 AddIns 集合，該集合表示“加載項”對話框中列出的所有加載項,。
?。ā伴_發(fā)工具”選項卡上的“加載項”命令）

　說明：

　　在不使用對象識別符的情況下使用這種方法等價于 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 '加載項提取完成'
　　此處代碼盡量只用到目前有講到的知識點方法來實現(xiàn),，會數(shù)組的童鞋可以改成用數(shù)組實現(xiàn),。

　效果如下圖：
　　 

CustomListCount 屬性

　返回已定義的自定義序列的數(shù)目（包括內(nèi)置序列）。

　示例：

　　MsgBox '當前一共有自定義序列 '& Application.CustomListCount & ' 條'

Visible 屬性

　返回或設置一個 Boolean 值,，它確定對象（應用程序）是否可見,。

　在用窗體開發(fā)小型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 是從加載宏自身內(nèi)部引用加載宏工作簿的唯一途徑,。

　　ActiveWorkbook 屬性不返回加載宏工作簿,，而是返回調(diào)用加載宏的工作簿。

　　ThisWorkbook 總是返回其中正在運行代碼的工作簿,。

StartupPath 屬性

　返回用戶啟動文件夾的完整路徑,，不包括尾部分隔符。

　示例：

　　msgbox application.StartupPath

　一些病毒都會盯上Excel啟動文件夾與用戶啟動文件夾,。

　當懷疑有中宏病毒時,，可以在這里找找有沒有來歷不明工作簿。

　　  

Speech 屬性

　返回一個 Speech 對象,。

　Speech 對象包括與語音相關(guān)的方法和屬性,。

　示例：

　　Application.Speech.Speak '恭喜發(fā)財，紅包拿來'

　要求電腦上有安裝微軟TTS語音引擎,。