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

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

其他操作（文章）

在Excel启动时禁用加载项您可能已经在Microsoft Excel中安装了一些加载项，但是现在您需要在Excel启动时禁用指定的加载项。 如何解决这个问题呢？ 本文中的方法可以为您提供帮助。

将每个工作表导出并保存为Excel中单独的新工作簿假设您要导出一个或多个工作表并将其另存为新工作簿，您将如何处理？ 通常，您可以复制每个工作表并粘贴到新工作簿中。 但是在这里，我们为您带来一些方便的技巧来应对它：

插入另一个工作簿中的工作表有时您可能需要从其他工作簿中导入工作表。 如果将工作表的内容复制并粘贴到当前工作簿中，它将丢失某些格式设置样式，例如行高等。本文介绍了一些便捷的方法，可从其他工作簿中快速插入工作表，而不会丢失数据和格式设置样式。

更多文章