无法以编程方式加载 xll

Question

我正在尝试自动化 Excel 加载项的一些测试，该加载项采用 xll 形式。我在加载 xll 时遇到一些问题。我用 C# 编写它，我的代码如下所示：

---

using Microsoft.Office.Interop.Excel;

Application xlApp;
Workbook xlWorkBook;
Worksheet xlWorkSheet;

// create application, open workbook, etc ...
// now try to register xll
xlApp.RegisterXLL("C:\\SomePath\\Whatever.xll");

---

但是，这总是返回 false。我尝试通过录制宏来手动加载 xll 来查看 Excel 秘密执行的操作。宏看起来像：

---

Sub Macro1()
ChDir "C:\SomePath"
Application.RegisterXLL Filename:= _
"C:\SomePath\Whatever.xll"
End Sub

---

唯一的区别似乎是 ChDir，所以我将代码更改为：

---

FileSystem.ChDir("C:\\SomePath");
xlApp.RegisterXLL("C:\\SomePath\\Whatever.xll");

---

但它仍然不起作用。另一个奇怪的事情是，当我在 RegisterXLL 行之前放置一个断点并首先手动加载 xll 时，RegisterXLL 方法将返回 true。但否则，它将返回 false。

Answer 1

感谢您的所有建议。

我通过更改 Excel 应用程序的默认文件路径解决了该问题。

Application.xlApp = new ApplicationClass();
xlApp.DefaultFilePath = "C:\\SomePath";
xlApp.RegisterXLL("Whatever.xll");

Answer 2

是的，ChDir 命令可能很重要。它可以帮助Windows找到whatever.xll所依赖的任何DLL。它不能解决您的问题的原因是 FileSystem.ChDir() 更改了您的测试程序的工作目录，而不是 Excel 的工作目录。

你根本做不到。将 xll do 部署到系统 PATH 上的目录即可解决该问题。一个务实的解决方案是只运行该宏。

Answer 3

我知道这不是您问题的直接答案，但您可能想看看在 Visual Studio 中使用 VSTO。 VSTO 可以自动处理许多此类问题。 VS 2010 中的版本比以前的版本要好得多，您可以构建应用程序级加载项，而不仅仅是文档级加载项。如果您需要用户定义的函数，您可以使用 COM 加载项，如下所述：

http://blogs.officezealot.com/whitechapel/archive/2005/04/10/4514.aspx

它最初基于这篇文章：

http://blogs.msdn.com/eric_carter/archive/2004/12/01/273127.aspx

我们将 VSTO 组合用于我们的主应用程序，并使用 COM 插件来实现用户定义的功能。这样做的好处是它们被加载到同一个应用程序域中，因此它们可以相互通信。

Answer 4

正确的解决方案是：

1- 用 2- 保存当前目录，

 string CurrentDir =   Directory.GetCurrentDirectory()

然后使用

  Directory.SetCurrentDirectory(dirXll);

dirXll 是 xll 的位置（参见 GetExecutingAssembly()）。

3- 加载 xll (RegisterXLL)

4- 最后使用 CurrentDir 将当前目录设置回其原始位置。

不要忘记将您的 xll 依赖的所有 dll 添加到与您的 xll 相同的文件夹中。

Answer 5

我在 VBA 代码中加载用户定义函数 [UDF] 时遇到问题。能够加载 xll 文件但无法调用。

以下代码成功加载 XLL 文件，让我们从 VBA 代码调用用户定义的函数。该模块中可能有重复的指令，但它有效！

Sub InstallAddIn()

On Error GoTo ErrorHandle

Application.DefaultFilePath = "D:\\MyFolder"

Application.RegisterXLL ("MyXLLFileName.xll")

Set AI = AddIns.Add(Filename:="D:\MyFolder\MyXLLFileName.xll")

    If AddIns("MyXLLFileName").Installed Then
       LogInformation ("My XLL is installed")
    Else
       LogInformation ("My XLL is NOT installed")
    End If
Exit Sub

ErrorHandle:

LogInformation ("------------------------") 'Logging function that I have written. Not a std api

LogInformation (Err.HelpFile)

LogInformation (Err.HelpContext)

LogInformation (Err.Description)

LogInformation ("Error in InstallAddIn module")

LogInformation ("------------------------")

End

End Sub