如何在VBA参考中永久打开求解器?

Question

REFERENCE中的求解器必须激活才能在VBA中启用SOLVEROK和SOLVERSOLVE，但每次退出Excel时，VBA总是自动关闭SOLVER。如何不是临时而是持续强制激活求解？谢谢。

Answer 1

它应该有帮助，但文件目录，这取决于您的 Office 版本(在我的情况下是 Office15(

Sub addsolver()
Dim i As Long, x As Long
x = ThisWorkbook.VBProject.References.Count
For i = 1 To x
'Debug.Print ThisWorkbook.VBProject.References(i).Name
'check if Solver reference is already referenced
If LCase(ThisWorkbook.VBProject.References(i).Name) = "solver" Then
MsgBox "Solver is already referenced"
Exit Sub
End If
Next
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile "C:Program FilesMicrosoft OfficeOffice15LibrarySOLVERSOLVER.XLAM"
On Error GoTo 0
End Sub