Код VBA для вывода списка всех надстроек в Excel
В Excel вы можете подключать или устанавливать различные надстройки, чтобы работать с данными ещё эффективнее. Как известно, все надстройки отображаются в окне «Параметры», но можно ли вывести их полный список прямо на лист? В этом руководстве приведён код VBA, который создаёт такой список в Excel.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Выберите Вставка > Модуль и вставьте приведённый ниже код в пустой скрипт.
VBA: Вывод списка всех надстроек
Public Sub AllAddins()
'UpdatebyKutools20191031
Dim xWSh As Worksheet
Dim xWB As Workbook
Dim xAddin As AddIn
Dim xCOMAddin As COMAddIn
Dim xFA, xFCA As Integer
Dim xI As Integer
Dim xStr As String
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Addins List"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Name"
xWSh.Range("B1").Value = "FullName"
xWSh.Range("C1").Value = "Installed"
For xFA = 1 To Application.AddIns.Count
Set xAddin = Application.AddIns(xFA)
xI = xFA + 1
Range("A" & xI).Value = xAddin.Name
Range("B" & xI).Value = xAddin.FullName
Range("C" & xI).Value = xAddin.Installed
Next xFA
xFA = (xFA + 2)
xWSh.Range("A" & xFA).Value = "Description"
xWSh.Range("B" & xFA).Value = "progID"
xWSh.Range("C" & xFA).Value = "Connect"
For xFCA = 1 To Application.COMAddIns.Count
xI = xFCA + xFA
Set xCOMAddin = Application.COMAddIns(xFCA)
Range("A" & xI).Value = xCOMAddin.Description
Range("B" & xI).Value = xCOMAddin.progID
Range("C" & xI).Value = xCOMAddin.Connect
Next xFCA
Application.DisplayAlerts = True
End Sub
3. Нажмите F5, чтобы выполнить код. Будет создан лист с именем «Addins List», содержащий список всех надстроек.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Отключение надстроек при запуске Excel
Возможно, вы установили в Microsoft Excel несколько надстроек, но теперь хотите отключить определённую из них при запуске программы. Как это сделать? Метод, описанный в этой статье, поможет вам легко справиться с задачей.
Экспорт и сохранение каждого листа как отдельной новой рабочей книги в Excel
Предположим, вы хотите экспортировать и сохранить один или несколько листов как отдельные новые рабочие книги. Как поступить в этом случае? Обычно можно скопировать каждый лист и вставить его в новую рабочую книгу. Однако здесь мы предлагаем вам несколько удобных способов решения этой задачи:
Вставка листов из другой книги
Иногда возникает необходимость импортировать листы из других книг. Если вы просто скопируете содержимое листов и вставите его в текущую книгу, часть форматирования — например, высота строк и другие параметры — может быть утеряна. В этой статье описаны удобные способы быстро вставить листы из других книг без потери данных и стилей форматирования.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек