Um código VBA para listar todos os suplementos no Excel
No Excel, você pode adicionar ou inserir alguns suplementos para lidar melhor com os dados. Como sabemos, podemos ir à janela Opções para visualizar todos os suplementos, mas há alguma maneira de listar todos os suplementos em uma planilha? Agora, neste tutorial, fornecemos um código VBA para listar todos os suplementos no Excel.
1. Pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código abaixo no script em branco.
VBA: Listar todos os suplementos
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. Pressione F5 para executar o código; uma planilha chamada Lista de Suplementos foi criada com todos os suplementos.

Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Desativar suplementos na inicialização do Excel
Você pode ter instalado alguns suplementos no seu Microsoft Excel, mas agora precisa desativar um suplemento específico na inicialização do Excel. Como resolver esse problema? O método neste artigo pode ajudá-lo.
Exportar e salvar cada planilha como uma nova pasta de trabalho separada no Excel
Digamos que você deseja exportar e salvar uma ou várias planilhas como uma nova pasta de trabalho, como você lidará com isso? Normalmente, você pode copiar cada planilha e colar em uma nova pasta de trabalho. Mas aqui trazemos alguns truques práticos para lidar com isso:
Inserir planilhas de outra pasta de trabalho
Às vezes, você pode precisar importar planilhas de outras pastas de trabalho. Se você copiar o conteúdo das planilhas e colar na pasta de trabalho atual, perderá alguns estilos de formatação, como altura da linha, etc. Este artigo descreve algumas maneiras práticas de inserir planilhas de outras pastas de trabalho rapidamente sem perder dados e estilos de formatação.
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!