Объект AddIns (Excel)
Коллекция объектов AddIn , представляющая все надстройки, доступные в Microsoft Excel, независимо от того, установлены ли они.
Этот список соответствует списку надстроек, отображаемым в диалоговом окне Надстройки .
Используйте свойство Application , чтобы вернуть коллекцию AddIns . В следующем примере создается список, содержащий имена и установленные состояния всех доступных надстроек.
Sub DisplayAddIns()
Worksheets("Sheet1").Activate
rw = 1
For Each ad In Application.AddIns
Worksheets("Sheet1").Cells(rw, 1) = ad.Name
Worksheets("Sheet1").Cells(rw, 2) = ad.Installed
rw = rw + 1
Next
End Sub
Используйте метод Add , чтобы добавить надстройку в список доступных надстроек. Метод Add добавляет надстройку в список, но не устанавливает ее. Установите для свойства Установленные надстройки значение True , чтобы установить надстройку.
Чтобы установить надстройку, которая не отображается в списке доступных надстроек, необходимо сначала использовать метод Add , а затем задать свойство Installed . Это можно сделать за один шаг, как показано в следующем примере (обратите внимание, что в методе Add используется имя надстройки, а не ее название).
AddIns.Add("generic.xll").Installed = True
Используйте AddIns (index), где index — это название или номер индекса надстройки, чтобы вернуть один объект AddIn . В следующем примере устанавливается надстройка "Инструмент анализа".
AddIns("analysis toolpak").Installed = True
Не путайте заголовок надстройки, который отображается в диалоговом окне Надстройки , с именем надстройки, которое является именем файла надстройки. Заголовок надстройки должен быть написан точно так же, как в диалоговом окне Надстройки , но заглавная буква не должна совпадать.
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.