共享Excel加载项时出现错误

Question

我是VBA编程的初学者，我在使用Excel加载项方面遇到了一些困难。 我写了一个宏，它有助于解决我在使用Solver工作时遇到的一些问题。在我的机器上它完美运行，但是当我尝试与其他计算机共享时，它最终会关闭excel。显示的错误是指使用求解器。有谁知道如何解决这个问题？我认为我需要做的是发送工作表和加载项，但是 现在还不够。 感谢您的帮助，下面是我的加载项代码。

Sub Teste2()
'
' Teste2 Macro
'

'
SolverReset
SolverOk SetCell:="$K$11", MaxMinVal:=3, ValueOf:=Range("B3").Value2, ByChange:="$B$8:$E$8", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$8", Relation:=1, FormulaText:="$B$8"
SolverAdd CellRef:="$B$8", Relation:=2, FormulaText:="$K$7"
SolverAdd CellRef:="$C$8", Relation:=1, FormulaText:="$C$8"
SolverAdd CellRef:="$C$8", Relation:=2, FormulaText:="$L$7"
SolverAdd CellRef:="$D$8", Relation:=1, FormulaText:="$D$8"
SolverAdd CellRef:="$D$8", Relation:=3, FormulaText:="$M$7"
SolverAdd CellRef:="$E$8", Relation:=1, FormulaText:="$E$8"
SolverAdd CellRef:="$E$8", Relation:=3, FormulaText:="$N$7"
SolverAdd CellRef:="$K$9", Relation:=1, FormulaText:="$L$9"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
End Sub

校正：

当我尝试在另一台计算机上运行该加载项时，它返回它无法找到该对象然后它关闭。

Answer 1

请确保其他用户已启用对＆＃34; Solver＆＃34;的引用。在VBE中：

Google将此作为＆＃34; Excel Solver宏错误＆＃34;的第一个结果：

http://peltiertech.com/Excel/SolverVBA.html

此资源还包含在Excel VBA中使用Solver模型时可能对您有所帮助的其他信息。