Opret en liste over alle Excel-tilføjelsesprogrammer ved hjælp af en VBA-makro

Indholdsfortegnelse

På denne måde kan du vise en makrostyret liste over alle tilføjelsesprogrammer og straks se, hvilke tilføjelsesprogrammer der er aktiveret, og hvilke der ikke er

Vil du spørge makrostyret, hvilke tilføjelsesprogrammer der er konfigureret på et system? Dette er f.eks. Nyttigt for at se, om brugerne har konfigureret alle de tiltænkte tilføjelsesprogrammer.

Du kan installere tilføjelsesprogrammer for at udvide Excel-funktionerne. Disse er programudvidelser, der konfigureres ved hjælp af tilføjelsesprogrammerne. Du kan finde denne kommando, når du bruger Excel op til version 2003 via menuen EXTRAS-ADD-INS.

Hvis du bruger Excel 2007, skal du åbne denne liste ved hjælp af Office -knappen og derefter EXCEL OPTIONS - ADD -INS - GO TO.

Hvis du bruger Excel 2010, skal du klikke på FIL, derefter også MULIGHEDER og derefter på TILFØJ INS - GÅ TIL.

Hvis du vil adressere listen fra en makro, skal du bruge AddIns -objektet. Følgende makro viser en liste over alle tilføjelsesprogrammer i et nyt Excel-regneark. For hver post på listen angiver en logisk værdi, om det relevante tilføjelsesprogram er installeret eller ej. Sådan ser makroen ud:

Sub ShowAddIns ()
Dim i As Integer
Med Workbooks.Add.Worksheets (1)
For i = 1 Til AddIns.Count
.Celler (i + 1, 1) .Værdi = AddIns (i) .FullName
.Celler (i + 1, 2) .Værdi = AddIns (i) .Installeret
Næste i
.Range ("a1: b1"). Værdi = Array ("Add-In", "Installeret")
.Range ("a1: b1"). Font.Bold = True
.Range ("a1: b1"). EntireColumn.AutoFit
Afslut med
Afslut Sub

Når den er startet, opretter makroen en liste over tilføjelsesprogrammerne. Følgende illustration viser, hvordan denne liste kan se ud:

Brug egenskaben Navn i stedet for egenskaben Fuldnavn, hvis du ikke vil læse hele stien, men kun filnavnet på tilføjelsesprogrammerne.

For at indtaste makroen skal du trykke på tastekombinationen ALT F11 i Excel. Dette åbner VBA -editoren. Brug kommandoen INSERT - MODULE til at indsætte et tomt modulark. For at starte makroen skal du trykke på tastekombinationen ALT F8 i Excel.

Du vil bidrage til udviklingen af ​​hjemmesiden, at dele siden med dine venner

wave wave wave wave wave