VBA代码如何直接加载引用SOLVER.XLAM（规划求解）？

cyx_98

我开发了一个VBA程序，用到了SOLVER.XLAM（规划求解），这个程序运行前，先要在EXCEL菜单“EXCEL加载项”中加载“规划求解加载项”，然后再在VBA编辑器菜单“工具->引用”中引用“Solver”，才能运行。有没有办法用VBA代码直接调用SOLVER.XLAM（规划求解），省略掉以上的“加载、引用”步骤或者省略掉“引用”步骤，我的EXCEL版本为2019，SOLVER.XLAM位于C:\Program Files (x86)\Microsoft Office\root\Office16\Library\SOLVER目录中。我试用过Application.Run "Solver.xlam! SolverOK"，但是运行错误，我的VBA代码如下：

Sub sds()
    Range("A12:A13").Clear
    SolverOK SetCell:=Range("E14"), MaxMinVal:=2, ByChange:=Range("A12:A13")
    SolverSolve UserFinish:=True
    SolverFinish KeepFinal:=1
End Sub

tianying

试下增加这句：
AddIns("规划求解加载项").Installed = True

cyx_98

tianying 发表于 2020-12-9 09:22
试下增加这句：
AddIns("规划求解加载项").Installed = True

谢谢！加上这句 AddIns("规划求解加载项").Installed = True，EXCEL菜单“EXCEL加载项”中加载“规划求解加载项”，这个步骤可以自动进行，不再需要手工加载。但是，VBA编辑器菜单“工具->引用”中引用“Solver”，还是需要手工引用，不然程序运行还是报错。

tianying

需要先期绑定才可以，先期绑定不麻烦啊，为什么要后期绑定呢？

cyx_98

tianying 发表于 2020-12-9 15:33
需要先期绑定才可以，先期绑定不麻烦啊，为什么要后期绑定呢？

就是想知道，xlam后期是如何绑定的，程序如果发给其他人用呢，他不熟悉绑定

tianying

后期绑定也可以，也就是要通过代码在VBA添加引用，考虑到使用者的水平，代码里还要增加自动信任访问VBA对象模型，见代码：

1. Sub LoadSolver()
   
2.     Dim oWshell
   
3.     Set oWshell = CreateObject("WScript.Shell")
   
4.     Application.ScreenUpdating = False
   
5.     '信任对VBA工程对象模型的访问
   
6.     oWshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"  '信任对 VBA 项目的访问
   
7.     With Application
   
8.         .SendKeys "~"
   
9.         .CommandBars.FindControl(ID:=3627).Execute
   
10.     End With
    
11.     Application.ScreenUpdating = True
    
12.     AddIns("规划求解加载项").Installed = True
    
13.     With ThisWorkbook.VBProject
    
14.         For i = 1 To .References.Count
    
15.             If .References(i).Name = "Solver" Then
    
16.                 Exit Sub
    
17.             Else
    
18.                 If i = .References.Count Then
    
19.                     ThisWorkbook.VBProject.References.AddFromFile "SOLVER.XLAM"
    
20.                 End If
    
21.             End If
    
22.         Next i
    
23.     End With
    
24. End Sub
    
25. 
    
26. Sub UnloadSolver()
    
27.     On Error Resume Next
    
28.     ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("Solver")
    
29.     AddIns("规划求解加载项").Installed = False
    
30. End Sub

复制代码

cyx_98

tianying 发表于 2020-12-10 18:21
后期绑定也可以，也就是要通过代码在VBA添加引用，考虑到使用者的水平，代码里还要增加自动信任访问VBA对象 ...

非常感谢，解决了困扰我多时的问题！

arimtest

tianying 发表于 2020-12-10 18:21
后期绑定也可以，也就是要通过代码在VBA添加引用，考虑到使用者的水平，代码里还要增加自动信任访问VBA对象 ...

大佬你好，根据你的代码我在excel执行过程中，出现了一个错误，请问一下这个是什么原因啊？谢谢

tianying

Excel版本是多少？我是2016没有问题，出现错误可能是因为版本太低或者没有安装solver