Question

我尝试使用VBA启用Excel的默认加载项之一，看起来我正在键入布尔值而不是方法。我找到的所有信息都告诉我，这应该启用Solver Add-in。

AddIns("Solver Add-in").Installed = True

但它没有。相反，它返回＆＃34;编译错误：外部程序无效。＆＃34;

如何在工作表打开时启用解算器加载项？

编辑：

我正在运行此代码，因为我必须将方法放在子例程中。问题是它返回＆＃34;编译错误：无法找到项目或库。＆＃34;

Option Base 1
Sub TurnOnSolver()
AddIns("Solver Add-in").Installed = True
End Sub

TurnOnSolver

Function cubic_spline(input_column As Range, _
                  output_column As Range, _
                  x As Range)

' The function does stuff that requires Solver Add-in.

End Function

Answer 1

你不能在子或函数之外调用方法，它必须在代码块内。

我建议把电话放在workbook open event;双击项目资源管理器中的工作簿对象，并将此代码粘贴到：

Private Sub Workbook_Open() 
     AddIns("Solver Add-in").Installed = True
End Sub

或者，如果你有一个主要的子放在那里。作为最后的手段，你可以将它放在你的cubic_spline函数中，但可能会经常调用它，所以我建议反对它。

如何使用VBA启用加载项？

1 个答案: