一个列出 Excel 中所有加载项的 VBA 代码

Microsoft Excel 可以通过使用加载项来接收额外的命令和功能。由于 Excel 默认情况下不会立即提供其加载项，因此在可以使用它们之前，您需要先安装，然后（在某些情况下）激活相关的加载项。一组 AddIn 对象，共同表示所有可用于 Microsoft Excel 的加载项，无论这些加载项是否已安装。

我们可以通过 VBA 代码列出 Excel 表格中的所有加载项。因此，让我们在本教程中了解 VBA 代码及其工作原理。

步骤 1

打开一个 Excel 表格，然后按 Alt 和 F11 键(Alt+F11) 以打开 Microsoft Visual Basic for Application 窗口。请参见下图。

步骤 2

之后，从菜单栏中选择插入 > 模块以调出弹出模块窗口。请参见下图。

步骤 3

打开模块窗口后，在其中键入以下 VBA 代码。

Public Sub ListAddins()
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