Enumerate Addins

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.
 

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

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