Бөлісу құралы:

Объект AddIn (Excel)

Представляет одну надстройку, установленную или не установленную.

Замечания

Объект AddIn является членом коллекции AddIns . Коллекция AddIns содержит список всех надстроек, доступных для Microsoft Excel, независимо от того, установлены ли они. Этот список соответствует списку надстроек, отображаемым в диалоговом окне Надстройки .

Пример

Используйте AddIns (index), где 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 добавляет надстройку в список доступных надстроек, но не устанавливает ее. Установите для свойства Установленный надстройки значение True , чтобы установить надстройку.

Чтобы установить надстройку, которая не отображается в списке доступных надстроек, необходимо сначала использовать метод Add , а затем задать свойство Installed . Это можно сделать за один шаг, как показано в следующем примере (обратите внимание, что в методе Add используется имя надстройки, а не ее название).

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

Используйте книги (индекс), где index — это имя файла надстройки (а не название), чтобы вернуть ссылку на книгу, соответствующую загруженной надстройке. Необходимо использовать имя файла, так как загруженные надстройки обычно не отображаются в коллекции Книги . В этом примере переменная wb задает книгу для Myaddin.xla.

Set wb = Workbooks("myaddin.xla")

В следующем примере переменная wb задается в книге для надстройки "Инструмент анализа".

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

Если свойство Installed возвращает значение True, но вызовы функций в надстройке по-прежнему завершаются ошибкой, надстройка может не быть загружена. Это связано с тем, что объект 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 и обратная связь.

  • Last updated on