脚本检查PowerPivot并提示用户进行安装

有没有人看过脚本检查PowerPivot的用户加载项，并给用户安装对话框？

Answer 1

不幸的是，PowerPivot似乎并没有列在安装插件的VBA可访问列表中。

也许你想试试这个：

Sub installPowerPivot() If Not isPowerPivotInstalled Then MsgBox "PowerPivot is not installed on this machine." & vbCrLf & vbCrLf & _ "Please visit this website to download the PowerPivot add-in:" & vbCrLf & _ "http://powerpivot.com" End If End Sub Function isPowerPivotInstalled() As Boolean Const checkFile As String = "\Microsoft Analysis Services\AS Excel Client\10\Microsoft.AnalysisServices.Modeler.FieldList.dll" Dim tempFSO As Object Set tempFSO = CreateObject("Scripting.FileSystemObject") 'check x86 program files folder If tempFSO.fileexists(Environ("ProgramFiles(x86)") & checkFile) Then isPowerPivotInstalled = True Exit Function End If 'if it's a 64bit machine also check the 64bit program files folder If LCase(Environ("processor_architecture")) = "amd64" Then If tempFSO.fileexists(Environ("ProgramW6432") & checkFile) Then isPowerPivotInstalled = True Exit Function End If End If 'if both checks fail -> false isPowerPivotInstalled = False End Function