Код 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. Как решить эту проблему? Метод, описанный в этой статье, может помочь вам.
Экспорт и сохранение каждого листа как отдельной новой книги в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек