Utwórz listę wszystkich dodatków Excela za pomocą makra VBA

Spisie treści

W ten sposób możesz wyświetlić sterowaną makrami listę wszystkich dodatków i natychmiast zobaczyć, które dodatki są włączone, a które nie.

Czy chcesz wykonać zapytanie kontrolowane przez makra, które dodatki są skonfigurowane w systemie? Jest to przydatne, na przykład, aby sprawdzić, czy użytkownicy skonfigurowali wszystkie zamierzone dodatki.

Możesz zainstalować dodatki, aby rozszerzyć funkcje programu Excel. Są to rozszerzenia programu, które są konfigurowane za pomocą Menedżera dodatków. Możesz znaleźć to polecenie podczas korzystania z programu Excel do wersji 2003 za pośrednictwem menu DODATKI-DODAJ-INS.

Jeśli korzystasz z programu Excel 2007, wywołaj tę listę za pomocą przycisku Office, a następnie OPCJE EXCEL - DODATKI - PRZEJDŹ DO.

Jeśli korzystasz z programu Excel 2010, kliknij PLIK, następnie OPCJE, a następnie DODATKI - PRZEJDŹ DO.

Jeśli chcesz zaadresować listę z makra, użyj obiektu AddIns. Poniższe makro wyświetla listę wszystkich dodatków w nowym arkuszu kalkulacyjnym programu Excel. Dla każdego wpisu na liście wartość logiczna wskazuje, czy odpowiedni dodatek jest zainstalowany, czy nie. Tak wygląda makro:

Sub ShowAddIns ()
Dim i jako liczba całkowita
Z Workbooks.Add.Worksheets (1)
Dla i = 1 To AddIns.Count
.Cells (i + 1, 1) .Value = Dodatki (i) .FullName
.Cells (i + 1, 2) .Value = Dodatki (i) .Zainstalowane
Dalej ja
.Range („a1: b1”). Wartość = Tablica („Dodatek”, „Zainstalowany”)
.Range ("a1: b1"). Czcionka.Pogrubienie = Prawda
.Zakres („a1: b1”). Cała kolumna.AutoFit
Kończyć z
Napis końcowy

Po uruchomieniu makro tworzy listę dodatków. Poniższa ilustracja pokazuje, jak może wyglądać ta lista:

Użyj właściwości Name zamiast właściwości FullName, jeśli nie chcesz odczytywać pełnej ścieżki, ale tylko nazwę pliku dodatków.

Aby wprowadzić makro, naciśnij kombinację klawiszy ALT F11 w programie Excel. To wywołuje edytor VBA. Użyj polecenia WSTAW - MODUŁ, aby wstawić pusty arkusz modułu. Aby uruchomić makro, naciśnij kombinację klawiszy ALT F8 w programie Excel.

Będziesz pomóc w rozwoju serwisu, dzieląc stronę ze swoimi znajomymi

wave wave wave wave wave