Lag en liste over alle Excel-tillegg ved hjelp av en VBA-makro

Innholdsfortegnelse

På denne måten kan du vise en makrostyrt liste over alle tillegg og umiddelbart se hvilke tillegg som er slått på og hvilke som ikke er

Vil du spørre makrostyrt om hvilke tillegg som er satt opp på et system? Dette er for eksempel nyttig for å se om brukerne har konfigurert alle de tiltenkte tilleggene.

Du kan installere tillegg for å utvide Excel-funksjonene. Dette er programutvidelser som er konfigurert ved hjelp av Add-Ins Manager. Du finner denne kommandoen når du bruker Excel opp til versjon 2003 via EXTRAS-ADD-INS-menyen.

Hvis du bruker Excel 2007, kan du åpne denne listen ved hjelp av Office -knappen og deretter EXCEL OPTIONS - ADD -INS - GO TO.

Hvis du bruker Excel 2010, klikker du på FIL, deretter også OPTIONS og deretter på ADD -INS - GO TO.

Hvis du vil adressere listen fra en makro, bruker du AddIns -objektet. Følgende makro viser en liste over alle tillegg i et nytt Excel-regneark. For hver oppføring i listen angir en logisk verdi om det riktige tillegget er installert eller ikke. Slik ser makroen ut:

Sub ShowAddIns ()
Dim i As Integer
Med Workbooks.Add.Worksheets (1)
For i = 1 Til AddIns.Count
.Celler (i + 1, 1) .Value = AddIns (i) .FullName
.Celler (i + 1, 2) .Value = AddIns (i) .Installert
Neste jeg
.Range ("a1: b1"). Verdi = Array ("Tillegg", "Installert")
.Range ("a1: b1"). Font.Bold = True
.Range ("a1: b1"). EntireColumn.AutoFit
Slutt med
Slutt Sub

Når den er startet, oppretter makroen en liste over tilleggene. Følgende illustrasjon viser hvordan denne listen kan se ut:

Bruk Name-egenskapen i stedet for FullName-egenskapen hvis du ikke vil lese hele banen, men bare filnavnet til tilleggene.

Trykk på tastekombinasjonen ALT F11 i Excel for å gå inn i makroen. Dette kaller opp VBA -redaktøren. Bruk kommandoen INSERT - MODULE for å sette inn et tomt modulark. For å starte makroen, trykk på tastekombinasjonen ALT F8 i Excel.

Du vil bidra til utvikling av området, dele siden med vennene dine

wave wave wave wave wave