Přejít k hlavnímu obsahu

Kód VBA pro seznam všech doplňků v aplikaci Excel

V aplikaci Excel můžete přidat nebo vložit některé doplňky pro lepší práci s daty. Jak víme, můžeme přejít do okna Možnosti a zobrazit všechny doplňky, ale existuje nějaký způsob, jak zobrazit všechny doplňky v listu? Nyní v tomto kurzu poskytuje kód VBA pro výpis všech přidání v aplikaci Excel.

1. lis Alt + F11 klávesy pro povolení okna Microsoft Visual Basic pro aplikace.

2. cvaknutí Vložit > Modula vložte níže uvedený kód do prázdného skriptu.

VBA: Seznam všech doplňků

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

seznam dokumentů vše přidat v 1

3. lis F5 klíč ke spuštění kódu, byl vytvořen list s názvem Seznam doplňků se všemi doplňky.
seznam dokumentů vše přidat v 2


Další operace (články)

Zakázat doplňky při spuštění aplikace Excel
Možná jste nainstalovali některé doplňky do aplikace Microsoft Excel, ale nyní je nutné zakázat zadaný doplněk při spuštění aplikace Excel. Jak vyřešit tento problém? Metoda v tomto článku vám může pomoci.

Exportujte a uložte každý list jako samostatný nový sešit v aplikaci Excel
Řekněme, že chcete exportovat a uložit jeden nebo několik listů jako nový sešit, jak s tím naložíte? Normálně můžete zkopírovat každý list a vložit jej do nového sešitu. Ale tady vám přinášíme několik užitečných triků, jak s tím zacházet:

Vložte listy z jiného sešitu
Někdy budete možná muset importovat listy z jiných sešitů. Pokud zkopírujete obsah listů a vložíte je do aktuálního sešitu, ztratí některé styly formátování, například výšku řádku atd. Tento článek popisuje některé užitečné způsoby, jak rychle vložit listy z jiných sešitů se ztrátou dat a styly formátování.


  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...
karta kte 201905
  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations