BET: Microsoft Excel Analysis ToolPak

Addins("Analysis-ToolPak").Installed = True

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Public Function Addin_ATP_Installed(ByVal bCheckAddin As Boolean, _
                                    ByVal bCheckVBAAddin As Boolean) As Boolean
Dim ldate As Long
   On Error GoTo AnError
   If bCheckAddin = True Then
      ldate = Application.Run("EOMONTH", "01/01/1977", 1)
   End If

   If bCheckVBAAddin = True Then
      ldate = Application.Run("atpvbaen.xla!EOMONTH", "01/01/1977", 1)
   End If

   Addins_ATP_Installed = True
   Exit Function
AnError:
   Addins_ATP_Installed = False
End Function

19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

Public Sub Addin_ATP_Load(ByVal bLoadAddin As Boolean, _
                          ByVal bLoadVBAAddin As Boolean, _
                 Optional ByVal bInformUser As Boolean = True)
Dim objaddin As AddIn

   On Error GoTo AnError

   For Each objaddin In AddIns
     If bLoadAddin = True Then
        If UCase(objaddin.Name) = "ANALYS32.XLL" Then
           objaddin.Installed = True
           If bInformUser = True Then
              Call MsgBox("'Analysis-ToolPak' add-in has been loaded.")
           End If
        End If
     End If

     If bLoadVBAAddin = True Then
        If UCase(objaddin.Name) = "ATPVBAEN.XLA" Then
           objaddin.Installed = True
           If bInformUser = True Then
              Call MsgBox("'Analysis-ToolPak - VBA' add-in has been loaded.")
           End If
        End If
     End If
   Next objaddin

'The following line may not work with non-English user interfaces since the name might have been localised
Addins("Analysis-ToolPak").Installed = True

   Exit Sub

AnError:

End Sub

Microsoft Office Development and Consultancy

Excel

The following line may not work with non-English user interfaces since the name might have been localised

Normal Circumstances

When a Com Add-in is loaded

Add-ins remain loaded even after they have been unchecked from (Tools > Addins) dialog box.

For more details about the VBA equivalent to some of the Analysis-ToolPak functions

http://www.dicks-blog.com/archives/2004/12/18/replacing-the-analysis-toolpak-addin-part-1