Question

excel中编译时出现找不到工程或库怎么解决

程序是从别人那弄来的
Sub DEA()
Dim NDMUs As Integer, NInputs As Integer, NOutputs As Integer
Dim i As Integer

For i = 1 To 60

'set the value of cell E18 equal to i (=1, 2,..., 15)
Range("E63") = i

'Run the Slack Solver model
SolverSolve UserFinish:=True
Range("J" & i + 1) = Range("F64")

'Select the cells containing the slacks
Range("E65:E70").Select
'record optimal slacks in cells K2:O16
Selection.Copy
Range("L" & i + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
End Sub

Answer 1

原因：VBA设置的问题。

1、首先打开需要编辑的Excel表格，进入到编辑页面中。

2、然后鼠标右键单击工作表，选择打开“查看代码”选项。

3、然后在弹出来的窗口中点击打开主菜单栏工具中的“引用”选项。

4、然后在弹出来的窗口中点击取消所有或尽可能多的对勾，回车确定。

5、然后在弹出来的窗口中，提示有些对勾提示不能取消，不用理会，点击确定。

6、然后就可以正常运行宏了。

Answer 2

1、首先，我们打开我们的电脑，然后我们打开我们电脑上面的excel，之后我们点击左上角的文件；

2、弹出的界面，我们电你管理版本的下拉箭头；

3、弹出的界面，我们点击恢复未保存的工作簿；

4、然后我们就可以找到我们辛苦做的excel表了，我们点击选中，之后点击打开就可以了。

Answer 3

以 2003 为例，在excel 中加载宏（插件），方法是工具-〉 加载宏 

中文名为  “规划求解” 英文名 为 Solver ,可能会提示安装，如果是完全版 office 直接下一步，安装完成。后选择 “规划求解”。

然后是 vba 中建立模块，引用  SOLVER 库

再运行代码时，就一切正常了。请采纳。

追问

已经加载规划求解，但还是丢失solver.xla.奇怪的是，我的office 07版本安装位于C:\Program Files(x86)\Microsoft Office\Office12目录下，07版本的自动安装生成Office12文件目录，丢失：solver.xla位于上图，已经按其路径建立文件，将solver.xla置于其中Library以及solver文件中 ，还是不行

追答

regsvr32 SOLVER32.DLL试试

追问

文件里有，但是regsvr32 SOLVER32.DLL现实加载失败

追答

你是不是 64系统？

我在 xp sp3
office 2003 情况下运行一切正常。
这个方法也无效，可能就只有换电脑，或者换系统，换 office 了。

系统问题我不知道怎么解决，但是，如果你加载正常的，这段代码应该就不会报错了。

Answer 4

1. 在VBE窗口中选择出错的 VBA 工程，快捷键：ALT+F11；
2. 在 VBA 的主菜单“工具”→“引用”打开引用对话框；
3. 查找带勾项中含“丢失…”、“找不到…”、“MISSING…”的条目，并取消勾选；
4. 一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用。
5. 如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决。