powerpivot macro

[RobertCotton]

I've seen lots of posts from people (myself included) asking how to keep the powerpivot addin "permanently" loaded with no real definitive answer.

Has anyone given any thought to creating a macro that could be run to load the powerpivot addin? Would that even be possilbe? I've written lots of macros but I wouldn't even have a clue where to begin but my experience has always been that there are a lot of very smart people on this site.

A big part of why I ask is that I would like to be able to distrubute powerpivot reports to my boss and others who are not too impressed when I suggest the have to go to options, addins, com addins, etc. every time they open excel.

Any thoughts or suggestions would be greatly appreciated.

Thanks
Robert

 

[RoryA]

This should cater for 2010 and 2013:

Sub LoadPowerPivot()
   On Error Resume Next
   Select Case CLng(Application.Version)
      Case 14
         Application.COMAddIns("Microsoft.AnalysisServices.Modeler.FieldList").Connect = True
      Case 15
         Application.COMAddIns("PowerPivotExcelClientAddIn.NativeEntry.1").Connect = True
      Case Else
   End Select
   If Err.Number <> 0 Then MsgBox "Error loading PowerPivot - please make sure it is installed"
End Sub

 

[RobertCotton]

Thank you !