Enumerate Addins

Location:   http://www.mvps.org/dmcritchie/xcel/addinx.htm
Home page: http://www.mvps.org/dmcritchie/excel/excel.htm
[View without Frames]

The following table was created using a macro at  http://www.herber.de/mailing/020598v.txt  showing how simple a conversion from Excel to HTML can be (safe and simple).   Actually after an HTML editor reprocesses the HTML code, the code is no longer as simple.    The macro which generated the Excel content showing the addins was obtained from the MS KB and is listed below the table.   The addin that I deactivated was  Htmlkonv that appears to turn calculation off for my session even though I wasn't using it.  If I try to use it it fails, which I expect is my fault in not understanding German when I installed it.
 

 
A
B
C
D
E
F
1 Name Full Name 10/17/1998 6:29:50 PM Title EnumerateAddIns() Installed    
2 ACCLINK.XLA C:\MSOffice\Excel\Library\ACCLINK.XLA AccessLinks Add-In TRUE 1 TRUE
3 ANALYS32.XLL C:\MSOffice\Excel\LIBRARY\ANALYSIS\ANALYS32.XLL Analysis ToolPak TRUE 2 TRUE
4 ATPVBAEN.XLA C:\MSOffice\Excel\LIBRARY\ANALYSIS\ATPVBAEN.XLA Analysis ToolPak - VBA FALSE 3 FALSE
5 AUTOSAVE.XLA C:\MSOffice\Excel\LIBRARY\AUTOSAVE.XLA AutoSave TRUE 4 TRUE
6 BSHXL.XLA C:\MSOffice\Excel\LIBRARY\BSHXL.XLA Bshxl FALSE 5 FALSE
7 HTMLKONV.XLA D:\hwh\HTMLKONV.XLA Htmlkonv FALSE 6  
8 HTML.XLA C:\MSOffice\Excel\LIBRARY\HTML.XLA Internet Assistant Wizard TRUE 7 TRUE
9 XLQUERY.XLA C:\MSOffice\Excel\Library\MSQuery\XLQUERY.XLA MS Query Add-In TRUE 8 TRUE
10 msreftlx.xla C:\MSOffice\Excel\Library\msreftlx.xla Msreftlx TRUE 9 TRUE
11 XLODBC.XLA C:\MSOffice\Excel\LIBRARY\MSQUERY\XLODBC.XLA ODBC Add-In FALSE 10 FALSE
12 REPORTS.XLA C:\MSOffice\Excel\Library\REPORTS.XLA Report Manager TRUE 11 TRUE
13 SOLVER.XLA C:\MSOffice\Excel\Library\Solver\SOLVER.XLA Solver Add-In TRUE 12 TRUE
14 TMPLTNUM.XLA C:\MSOffice\Excel\LIBRARY\TMPLTNUM.XLA Template Utilities FALSE 13 FALSE
15 WZTEMPLT.XLA C:\MSOffice\Excel\Library\WZTEMPLT.XLA Template Wizard with Data Tracking TRUE 14 TRUE
16 testing.xla C:\WINNT\Profiles\Administrator\Personal\testing.xla Testing FALSE 15 FALSE
17 UPDTLINK.XLA C:\MSOffice\Excel\LIBRARY\UPDTLINK.XLA Update Add-in Links FALSE 16 FALSE
18 VIEWS.XLA C:\MSOffice\Excel\Library\VIEWS.XLA View Manager TRUE 17 TRUE

Code from the MS KB modified so that it writes to it's own sheet instead of the first sheet in your workbook.  Also added the time.

Sub EnumerateAddIns()
    Worksheets("AddinsSheet").Rows(1).Font.Bold = True
    Worksheets("AddinsSheet").Range("a1:d1").Value = _
        Array("Name", "Full Name" & "         " & Now(), "Title EnumerateAddIns()", "Installed")
    For i = 1 To AddIns.Count
        Worksheets("AddinsSheet").cells(i + 1, 1) = AddIns(i).Name
        Worksheets("AddinsSheet").cells(i + 1, 2) = AddIns(i).FullName
        Worksheets("AddinsSheet").cells(i + 1, 3) = AddIns(i).Title
        Worksheets("AddinsSheet").cells(i + 1, 4) = AddIns(i).Installed
        Worksheets("AddinsSheet").cells(i + 1, 5).Value = i
    Next
    Worksheets("AddinsSheet").Range("a1").CurrentRegion.Columns.AutoFit
End Sub
 
  This page is not mentioned in my Excel pages http://www.mvps.org/dmcritchie/excel/excel.htm so you are here presumably from a newsgroup posting.  Please LET ME KNOW IF YOU SOLVE YOUR PROBLEM.
David McRitchie


Another example

This example was created using a greatly improved Excel to HTML macro: XL2HTMLx
 ABC
1Workbook Name Workbook PathHas Hidden Windows?
2personal.xls H:\Program Files\Microsoft Office2000\Office\xlstart YES
3VLOOKUP.XLSH:\Excel2K NO
4    
5Add-In Name Add-In PathLoaded?
6acclink.xla  NO
7ANALYS32.XLL H:\Program Files\Microsoft Office2000\Office\Library\Analysis NO
8ATPVBAEN.XLA H:\Program Files\Microsoft Office2000\Office\Library\Analysis NO
9Autosave.xla H:\Program Files\Microsoft Office2000\Office\Library YES
10CallTree97.xla H:\Program Files\BMS\Call Tree 97NO
11CBLIST.XLAH:\Excel2K\J-Green NO
12sumif.xla  NO
13Dellinks.xla H:\downloadh\excel\dellinksNO
14eurotool.xla  NO
15VBE Tools 2000.xla H:\Program Files\BMS\VBE Tools 2000YES
16FINDLINK.XLA H:\downloadh\BullenYES
17HTML.XLA H:\Program Files\Microsoft Office2000\Office\Library YES
18namelist.xlaH:\Excel2K NO
19lookup.xla  NO
20xlquery.xla  NO
21MSREFTLX.XLA C:\MSOffice\Excel\LIBRARYNO
22xlodbc.xla  NO
23QuickAccess.xla C:\Program Files\QuickAccessNO
24RemoveMenu.xla H:\downloadh\JRechNO
25reports.xla  NO
26sbfm40.xlaC:\WINNT\System32 NO
27solver.xla  NO
28STARTBAR.XLA H:\downloadh\oraxcelNO
29tmpltnum.xla  NO
30wztemplt.xla  NO
31updtlink.xla  NO
Option Explicit

Sub WBNames()
'From: ":)" 
'Newsgroups: microsoft.public.Excel.programming
'Sent: Wednesday, April 04, 2001 7:59 AM EDT
'Subject: Re: Display all open workbooks
'wrote in message news:#Rxk#5PvAHA.1872@tkmsftngp03...
    Dim sh As Worksheet
    Dim wb As Workbook
    Dim adn As AddIn
    Dim wnd As Window

    Set sh = ThisWorkbook.Worksheets.Add
    With sh
        .Range("A1") = "Workbook Name"
        .Range("B1") = "Workbook Path"
        .Range("C1") = "Has Hidden Windows?"
        .Range("A1:C1").Font.Bold = True
        .Range("A2").Activate
        For Each wb In Workbooks
            ActiveCell.Value = wb.Name
            ActiveCell.Offset(0, 1).Value = wb.Path
            ActiveCell.Offset(0, 2).Value = "NO"
            For Each wnd In wb.Windows
                If wnd.Visible = False Then
                    ActiveCell.Offset(0, 2).Value = "YES"
                End If
            Next wnd
            ActiveCell.Offset(1, 0).Activate
        Next wb

        ActiveCell.Offset(1, 0).Activate
        With ActiveCell
            .Range("A1") = "Add-In Name"
            .Range("B1") = "Add-In Path"
            .Range("C1") = "Loaded?"
            .Range("A1:C1").Font.Bold = True
        End With
        ActiveCell.Offset(1, 0).Activate
        For Each adn In AddIns
            ActiveCell.Value = adn.Name
            ActiveCell.Offset(0, 1).Value = adn.Path
            ActiveCell.Offset(0, 2).Value = "NO"
            If adn.Installed = True Then _
              ActiveCell.Offset(0, 2).Value = "YES"
            ActiveCell.Offset(1, 0).Activate
        Next adn
        .Range("C1").EntireColumn.HorizontalAlignment = xlCenter
        .Cells.EntireColumn.AutoFit
    End With
End Sub

Please send your comments concerning this web page to: David McRitchie send email comments


Copyright © 1997 - 2004,  F. David McRitchie,  All Rights Reserved