如何从ROT中获取指定ProgID的目标COM对象实例（多实例场景）？

当多个Excel实例同时运行时，Marshal.GetActiveObject("Excel.Application")确实会随机返回任意一个实例——这是因为该方法并不会遍历ROT里的所有条目，而是直接返回匹配ProgID的首个（或随机）对象。要精准定位目标实例，我们得直接去遍历Running Object Table (ROT)，然后通过实例的专属特征（比如工作簿名称、窗口标题等）来筛选。

实现思路 #

1. 调用Windows API获取ROT的枚举器，遍历其中所有注册的对象；
2. 对每个对象，尝试将其转换为Excel.Application实例；
3. 检查该实例的特征（比如活动工作簿名称、窗口标题），判断是否为目标实例；
4. 全程注意释放COM对象和API资源，避免内存泄漏。

完整代码示例 #

首先需要导入必要的Windows API函数：

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;
using Excel = Microsoft.Office.Interop.Excel;

public static class RotHelper
{
    [DllImport("ole32.dll")]
    private static extern int GetRunningObjectTable(int reserved, out IRunningObjectTable rot);

    [DllImport("ole32.dll")]
    private static extern int CreateBindCtx(int reserved, out IBindCtx bindCtx);

    public static List<Excel.Application> GetAllExcelInstances()
    {
        var excelInstances = new List<Excel.Application>();
        IRunningObjectTable rot = null;
        IEnumMoniker monikerEnumerator = null;
        IMoniker[] monikers = new IMoniker[1];

        try
        {
            // 获取ROT实例
            if (GetRunningObjectTable(0, out rot) != 0 || rot == null)
                return excelInstances;

            // 获取ROT中所有对象的枚举器
            rot.EnumRunning(out monikerEnumerator);
            monikerEnumerator.Reset();

            // 遍历每个对象
            while (monikerEnumerator.Next(1, monikers, IntPtr.Zero) == 0)
            {
                IBindCtx bindCtx = null;
                CreateBindCtx(0, out bindCtx);

                if (bindCtx != null)
                {
                    string displayName;
                    monikers[0].GetDisplayName(bindCtx, null, out displayName);

                    // 筛选出Excel相关的对象
                    if (displayName.Contains("Excel.Application"))
                    {
                        object comObject;
                        rot.GetObject(monikers[0], out comObject);
                        if (comObject is Excel.Application excelApp)
                        {
                            excelInstances.Add(excelApp);
                        }
                        else
                        {
                            Marshal.ReleaseComObject(comObject);
                        }
                    }

                    Marshal.ReleaseComObject(bindCtx);
                }
                Marshal.ReleaseComObject(monikers[0]);
            }
        }
        finally
        {
            if (monikerEnumerator != null)
                Marshal.ReleaseComObject(monikerEnumerator);
            if (rot != null)
                Marshal.ReleaseComObject(rot);
        }

        return excelInstances;
    }
}

筛选目标实例 #

有了所有Excel实例的列表后，你可以根据需求自定义筛选逻辑。比如，通过活动工作簿的名称定位：

var allExcelApps = RotHelper.GetAllExcelInstances();
Excel.Application targetExcel = null;

foreach (var excelApp in allExcelApps)
{
    try
    {
        // 检查是否有活动工作簿，且名称匹配目标
        if (excelApp.ActiveWorkbook != null && excelApp.ActiveWorkbook.Name.Equals("目标工作簿.xlsx", StringComparison.OrdinalIgnoreCase))
        {
            targetExcel = excelApp;
            break;
        }
    }
    catch (Exception ex)
    {
        // 处理实例已被关闭等异常情况
        Console.WriteLine($"检查实例时出错: {ex.Message}");
        Marshal.ReleaseComObject(excelApp);
    }
}

// 使用目标实例
if (targetExcel != null)
{
    Console.WriteLine($"找到目标实例，活动工作簿: {targetExcel.ActiveWorkbook.Name}");
    // 使用完毕后记得释放COM对象
    // Marshal.ReleaseComObject(targetExcel);
}

注意事项 #

• COM对象释放：遍历过程中，对不需要的Excel实例一定要调用Marshal.ReleaseComObject()，避免内存泄漏；
• 异常处理：Excel实例可能在遍历过程中被关闭，访问其属性时务必加异常捕获；
• 权限限制：通常无法访问其他用户启动的Excel实例，这是Windows安全机制的固有限制。

内容的提问来源于stack exchange，提问作者Essigwurst