Excel互操作加载XLL和DLL

Question

我在Bloomberg API（使用像= BDP（“ MS equity”，“ ask”）之类的简单调用）方面表现出色。 我也有一个C＃应用程序，可以打开一个使用Bloomberg API的excel文件（通过互操作）。 我在这里已经读到，通过互操作程序加载excel时不会加载插件。 我什至尝试使用建议的代码。 但是，这似乎仅适用于XLL和XLAM文件，并且看起来Bloomberg还使用了不会加载的DLL文件。 有什么办法可以通过互操作加载所有这些插件？

Answer 1

我认为，如果您手动启动excel，则加载项会正确加载。

如果是这样，则可以通过调用Process p = Process.Start("excel.exe");获得带有加载的BB-Addins的Excel Interop对象Process p = Process.Start("excel.exe"); 然后使用AccessibleObjectFromWindow方法获取Interop对象。

有关如何执行此操作的示例，请参见此处 。

---

快速演练

我决定显示获得加载的 Bloomberg add插件的Excel.Interop.Application实例的步骤。 也许有人看着它，发现它有用，或者知道我在哪里错过了一些东西以获得更好的解决方案。

我假设您的客户端上已安装Bloomberg终端，并且您可以从Excel中请求参考和历史数据（BDP和BDH）。 否则这可能不适合您...

最简单的方法不起作用

var excel = new Microsoft.Office.Interop.Excel.Application();
excel.Workbooks.Open(filePath);
excel.Run("RefreshAllStaticData");

Run()将抛出COMException ：

无法运行宏“ RefreshAllStaticData”。 该宏可能在此工作簿中不可用，或者可能禁用了所有宏。

手动加载插件无效

var excel = new Microsoft.Office.Interop.Excel.Application();
var addIn = ex.AddIns.Add(filename);
addIn.Installed = true;
Console.WriteLine(addIn.IsOpen);

假

但是，如果通过在Windows任务栏上单击来启动Excel，则会很好地加载AddIns。因此，我尝试通过启动可执行文件“ excel.exe”来启动excel。

使用Process.Start（“ excel.exe”）可以！！

使用System.Diagnostics.Process类启动excel将加载Bloomberg AddIns。 （我可以看到Bloomberg-RibbonTab 。）

现在，我需要的只是该excel流程的Interop-Object。 我可以使用上面的例子

我的实现

//From http://blogs.officezealot.com/whitechapel/archive/2005/04/10/4514.aspx
public class ExcelInteropService
{
    private const string EXCEL_CLASS_NAME = "EXCEL7";

    private const uint DW_OBJECTID = 0xFFFFFFF0;

    private static Guid rrid = new Guid("{00020400-0000-0000-C000-000000000046}");

    public delegate bool EnumChildCallback(int hwnd, ref int lParam);

    [DllImport("Oleacc.dll")]
    public static extern int AccessibleObjectFromWindow(int hwnd, uint dwObjectID, byte[] riid, ref Microsoft.Office.Interop.Excel.Window ptr);

    [DllImport("User32.dll")]
    public static extern bool EnumChildWindows(int hWndParent, EnumChildCallback lpEnumFunc, ref int lParam);

    [DllImport("User32.dll")]
    public static extern int GetClassName(int hWnd, StringBuilder lpClassName, int nMaxCount);

    public static Microsoft.Office.Interop.Excel.Application GetExcelInterop(int? processId = null)
    {
        var p = processId.HasValue ? Process.GetProcessById(processId.Value) : Process.Start("excel.exe");
        try
        {
            return new ExcelInteropService().SearchExcelInterop(p);
        }
        catch (Exception)
        {
            Debug.Assert(p != null, "p != null");
            return GetExcelInterop(p.Id);
        }
    }

    private bool EnumChildFunc(int hwndChild, ref int lParam)
    {
        var buf = new StringBuilder(128);
        GetClassName(hwndChild, buf, 128);
        if (buf.ToString() == EXCEL_CLASS_NAME) { lParam = hwndChild; return false; }
        return true;
    }

    private Microsoft.Office.Interop.Excel.Application SearchExcelInterop(Process p)
    {
        Microsoft.Office.Interop.Excel.Window ptr = null;
        int hwnd = 0;

        int hWndParent = (int)p.MainWindowHandle;
        if (hWndParent == 0) throw new ExcelMainWindowNotFoundException();

        EnumChildWindows(hWndParent, EnumChildFunc, ref hwnd);
        if (hwnd == 0) throw new ExcelChildWindowNotFoundException();

        int hr = AccessibleObjectFromWindow(hwnd, DW_OBJECTID, rrid.ToByteArray(), ref ptr);
        if (hr < 0) throw new AccessibleObjectNotFoundException();

        return ptr.Application;
    }
}

现在，我可以使用以下代码行获取带有已加载的Bloomberg加载项的Excel.Interop.Application实例！

var excel = ExcelInteropService.GetExcelInterop();
excel.Workbooks.Open(filename);
excel.Run("RefreshAllStaticData");
// works "like a charm"

我希望这可以节省一些人我浪费的时间，如果有人有一个更优雅的解决方案并希望分享它，将不胜感激。

Answer 2

使用NetOffice可以得到类似的结果。 此特定功能将检索excel流程的上一个启动实例，如果存在，则创建一个新实例。 从那里，您可以自由打开/创建新工作簿。

使用netoffice和这种方法的好处是，它不依赖于特定于版本的互操作DLL，并且如果您处置NetOffice对象，则所有excel COM对象都会被正确清理。

using Xl = NetOffice.ExcelApi;    
private static Xl.Application GetOrStartExcel(bool started = false)
{
    Xl.Application application = null;

    try
    {
        object nativeProxy = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
        application = new Xl.Application(null, nativeProxy);
        return application;
    }
    catch (Exception ex)
    {
        if (!started) Process.Start("excel.exe");
        Thread.Sleep((int) TimeSpan.FromSeconds(1).TotalMilliseconds);
        return GetOrStartExcel(true);
    }
}

用法：

using (var excel = GetOrStartExcel())
{
    //Do work with excel object
}

Answer 3

我意识到，问这个问题已经有一段时间了。 不过，我想分享我遇到相同问题时的经验。 一个简单的解决方案是按照https://blogs.msdn.microsoft.com/accelerating_things/2010/09/16/loading-excel-add-ins-at-runtime/中的建议进行操作，方法是先设置为false，然后设置为false变为真实：

this._application = new Application
                {
                    EnableEvents = true,
                    Visible = true
                };

                //Load Bloomberg Add-In
                for (var i = 1; i <= this._application.AddIns.Count; i++)
                {
                    var currentAddIn = this._application.AddIns.Item[i];

                    if (currentAddIn.Name != "BloombergUI.xla") continue;

                    currentAddIn.Installed = false;
                    currentAddIn.Installed = true;
                }

Answer 4

如果要将DLL加载到Excel加载项中，则必须使用RegAsm注册此DLL文件。 并检查HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\Excel\\AddIns以查看其是否已成功注册。