Excel) (AddIn 对象

  • 项目

代表单个加载宏，不论该加载宏是否已加载。

备注

外接程序 对象是 外接程序 集合中的成员。 AddIns 集合包含 Microsoft Excel 可用的所有加载项的列表，无论它们是否已安装。 此列表与“加载宏”对话框中显示的加载宏列表对应。

示例

使用 AddIns (索引) （其中 index 是外接程序标题或索引号）返回单个 AddIn 对象。 下例安装“分析工具库”加载宏。

AddIns("analysis toolpak").Installed = True

不要将外接程序标题（显示在“外接程序”对话框中 ） 与加载项名称（即外接程序的文件名）混淆。 加载项标题的拼写必须与 加载项对话框中的 拼写完全一样，但大写不必匹配。

加载宏索引号代表加载宏在“加载宏”对话框内“可用加载宏”框中的位置。 下例创建一个列表，包含可用加载宏的指定属性。

With Worksheets("sheet1") 
 .Rows(1).Font.Bold = True 
 .Range("a1:d1").Value = _ 
 Array("Name", "Full Name", "Title", "Installed") 
 For i = 1 To AddIns.Count 
 .Cells(i + 1, 1) = AddIns(i).Name 
 .Cells(i + 1, 2) = AddIns(i).FullName 
 .Cells(i + 1, 3) = AddIns(i).Title 
 .Cells(i + 1, 4) = AddIns(i).Installed 
 Next 
 .Range("a1").CurrentRegion.Columns.AutoFit 
End With

Add 方法将加载项添加到可用加载项列表，但不安装加载项。 将加载宏的 Installed 属性设为 True 可安装加载宏。

若要安装未显示在可用加载项列表中的加载项，必须先使用 Add 方法，然后设置 Installed 属性。 此操作一步即可完成，如下例中所示（注意，Add 方法中应使用加载宏的名称，而不使用标题）。

AddIns.Add("generic.xll").Installed = True

使用 工作簿 (索引) ，其中 index 是外接程序文件名 (而不是标题) 返回对与加载的外接程序对应的工作簿的引用。 必须使用文件名，因为加载的加载项通常不会出现在 Workbooks 集合中。 此示例将变量 wb 设置为 Myaddin.xla 的工作簿。

Set wb = Workbooks("myaddin.xla")

下例将变量 wb 设置为“分析工具库”加载宏的工作簿。

Set wb = Workbooks(AddIns("analysis toolpak").Name)

如果 Installed 属性返回 True，但对外接程序中函数的调用仍然失败，则实际上可能未加载加载项。 这是因为 Addin 对象表示加载项的存在和安装状态，但不表示外接程序工作簿的实际内容。若要保证加载已安装的加载项，应打开加载项工作簿。

以下示例打开名为“My Addin”的加载项的工作簿（如果 工作簿 集合中尚不存在加载项）。

On Error Resume Next ' turn off error checking 
Set wbMyAddin = Workbooks(AddIns("My Addin").Name) 
lastError = Err 
On Error Goto 0 ' restore error checking 
If lastError <> 0 Then 
 ' the add-in workbook isn't currently open. Manually open it. 
 Set wbMyAddin = Workbooks.Open(AddIns("My Addin").FullName) 
End If

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。