Объект 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 и обратная связь.