VBA开增益集一问

有冇高手知点写可以开Excel任何语言版本之增益集/Add-In之通用方法?

'中文版
Application.AddIns("规划求解增益集").Installed = True
'英文版
Application.AddIns("Solver Add-In").Installed = True
'其他语言版??

抓咗成日终於搵到答案:

Private Sub Workbook_open()
'Auto open Solver
Dim i As Integer
Dim addin_N As String
Dim addin_FN As String
Dim addin_T As String
Dim addin_I As Boolean
On Error Resume Next
For i = 1 To AddIns.Count
addin_N = AddIns(i).Name
addin_FN = AddIns(i).FullName
addin_T = AddIns(i).Title
addin_I = AddIns(i).Installed
If addin_N = "SOLVER.XLAM" Then
If addin_I = False Then
Application.AddIns(addin_T).Installed = True
End
End If
End
End If
Next
MsgBox "Solver need be installed, please check path as follow:" & Chr(13) & addin_FN
End Sub