Code To Load Solver Add-In Automatically

[drmingle]

Any help would be appreciated...I am using Excel 2007.

My objective is to load an add-in file when you run Excel as an OLE Automation object, without having to load the add-in manually. However, the macro is not loading solver automatically:

Sub LoadAddIn()
   Dim xl As Object
   ' Activate Microsoft Excel and assign to variable xl.
   Set xl = CreateObject("Excel.Application")
   ' Open the add-in file you want, in this example, Solver.XLAM.
   xl.Workbooks.Open ("C:\Program Files\Microsoft Office\Office12\Library\SOLVER\solver.XLAM")
   ' If you need to register the functions and commands
   ' contained in a resource (XLL), use the RegisterXLL method.
   ' In the example below, all functions of Analys32.xll are
   ' registered.
   ' XL.RegisterXLL "Analys32.xll"
   ' Run any auto macros contained in the add-in file
   ' Auto macros don't run when you open a file
   ' using the Open method.
   xl.Workbooks("Solver.xlam").RunAutoMacros 1
   Set xl = Nothing
 End Sub

Source for code: http://support.microsoft.com/kb/213489/

 

[Andrew Poulsom]

You should be able to use:

xl.AddIns("Solver Add-in").Installed = True

 

[drmingle]

Andrew are you suggesting the following will work?:

Sub LoadAddIn()
   Dim xl As Object
      Set xl = CreateObject("Excel.Application")
      xl.AddIns("Solver Add-in").Installed = True
End Sub

If so I am still getting an error '1004' it is still not recognizing that the solver add-in has been added automatically.

Please let me know if I am missing something...

However, I do appreciate the fast response.

 

[Andrew Poulsom]

This worked for me when run from Word 2003 while Excel 2003 wasn't open:

Sub LoadAddIn()
    Dim xl As Object
    Set xl = CreateObject("Excel.Application")
    xl.AddIns("Solver Add-in").Installed = True
    xl.Visible = True
End Sub

 

[drmingle]

Thank you that worked!