Przejdź do głównej zawartości

Kod VBA zawierający listę wszystkich dodatków w programie Excel

W programie Excel możesz dodać lub wstawić kilka dodatków, aby lepiej radzić sobie z danymi. Jak wiemy, możemy przejść do okna Opcje, aby wyświetlić wszystkie dodatki, ale czy istnieje sposób na wyświetlenie wszystkich dodatków w arkuszu? Teraz, w tym samouczku, zawiera kod VBA do wyświetlania wszystkich dodatków w programie Excel.

1. naciśnij Alt + F11 klawisze, aby włączyć okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Modułi wklej poniższy kod do pustego skryptu.

VBA: wyświetl wszystkie dodatki

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

lista dokumentów wszystkie dodaj w 1

3. naciśnij F5 kluczem do uruchomienia kodu, utworzono arkusz o nazwie Lista dodatków ze wszystkimi dodatkami.
lista dokumentów wszystkie dodaj w 2


Inne operacje (artykuły)

Wyłącz dodatki podczas uruchamiania programu Excel
Być może zainstalowałeś kilka dodatków w programie Microsoft Excel, ale teraz musisz wyłączyć określony dodatek podczas uruchamiania programu Excel. Jak rozwiązać ten problem? Metoda opisana w tym artykule może ci pomóc.

Wyeksportuj i zapisz każdy arkusz jako oddzielny nowy skoroszyt w programie Excel
Powiedzmy, że chcesz wyeksportować i zapisać jeden lub kilka arkuszy roboczych jako nowy skoroszyt, jak sobie z tym poradzisz? Zwykle możesz skopiować każdy arkusz i wkleić go do nowego skoroszytu. Ale tutaj przedstawiamy kilka przydatnych sztuczek, aby sobie z tym poradzić:

Wstaw arkusze z innego skoroszytu
Czasami może być konieczne zaimportowanie arkuszy z innych skoroszytów. Jeśli skopiujesz zawartość arkuszy i wkleisz je do bieżącego skoroszytu, utracisz niektóre style formatowania, takie jak wysokość wiersza itp. W tym artykule opisano kilka przydatnych sposobów szybkiego wstawiania arkuszy roboczych z innych skoroszytów z utratą danych i stylów formatowania.


  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...
karta kte 201905
  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
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