Главная » Макросы для Excel » Вывод информации о надстройках, установленных в Excel

Вывод информации о надстройках, установленных в Excel

Макрос ShowAddinsList выводит список надстроек, подключенных в Microsoft Excel:

Sub ShowAddinsList()
    Dim count As Integer, item As AddIn, msg As String, txt1$, txt2$
    For Each item In Application.AddIns
        If item.Installed Then
            txt1$ = txt1$ & vbTab & item.Name & vbNewLine
            count = count + 1
        Else
            txt2$ = txt2$ & vbTab & item.Name & vbNewLine
        End If
    Next item
    msg = "Всего надстроек: " & AddIns.count & vbNewLine & vbNewLine
    msg = msg & "Из них установлено (подключено) - " & count & ":" & vbNewLine & txt1$ & vbNewLine
    msg = msg & "Не подключено надстроек - " & AddIns.count - count & ":" & vbNewLine & txt2$
 
    MsgBox msg, vbInformation, "Информация о подключенных надстройках Excel"
End Sub

Скриншот выводимого сообщения:

  • 5125 просмотров

Комментарии

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  _   _  _     _____   ___   _             
 | | | || |   |___  | |_ _| | |       __ _ 
 | | | || |_     / /   | |  | |      / _` |
 | | |__   _|   / /    | |  | |___  | (_| |
 |_|    |_|    /_/    |___| |_____|  \__, |
                                        |_|
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.