Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Код для возвращения имени активной надстройки
 
#1
13.09.2013 09:55:46
Здравствуйте. Искал здесь и в яндексе, не нашел код VBA для проверки имени активной надстройки. Код addins.count возвращает кол-во надстроек находящихся в папке, а как обратиться именно к активным надстройкам? Спасибо.
Изменено: VISXAN - 01.11.2013 22:35:59
 
 
 
#2
13.09.2013 10:01:09
День добрый.
А что вы понимаете под словами "активная" надстройка? Согласно объектной модели - ближайшее понятие "открытая"
Код
Public Sub AddInInfo()
    Dim pAddIn As AddIn
    For Each pAddIn In Application.AddIns2
        Debug.Print "Открыта ли " & pAddIn.Name & " — " & pAddIn.IsOpen
    Next
End Sub
Изменено: anvg - 13.09.2013 10:01:34
 
 
 
#3
14.09.2013 07:30:05
Или так:
Код
Sub InstalledAddIns()
  Dim x As AddIn
  For Each x In Application.AddIns
    If x.Installed Then
      Debug.Print x.Name
    End If
  Next
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх