Delphi 6通过COM访问Excel实例工作簿失败问题求助

1. Excel 2016+的隔离COM机制 #

从Office 2013开始，微软引入了Click-to-Run和隔离COM模式，每个Excel窗口会启动独立进程，这些进程的COM实例不会暴露在全局运行对象表（ROT）中，而是采用用户级或窗口绑定的ROT，旧版Delphi的COM枚举方法无法访问这类隔离实例。

2. Delphi 6的COM API局限性 #

Delphi 6自带的GetActiveObject和ROT枚举函数基于Windows XP时代的COM规范，不支持Windows 10之后的Session 0隔离和Office的AppContainer隔离，导致无法枚举到所有活跃的Excel实例。

3. 未保存工作簿的ROT注册逻辑 #

Excel对未保存的工作簿，不会将对应的Excel.Application实例注册到全局ROT中，只有已保存工作簿的实例才会注册。这就是你能看到已保存实例但Workbooks为空的原因——你连接到的是后台空实例，而非实际打开窗口的实例。

方案1：窗口枚举+消息获取Excel实例 #

绕开COM枚举，直接枚举桌面Excel窗口，通过窗口句柄绑定对应的COM实例（支持未保存工作簿）：

uses
  Windows, Messages, SysUtils, ComObj, Excel_TLB;

type
  TExcelInstanceInfo = record
    Handle: HWND;
    ExcelApp: _Application;
    WorkbookCount: Integer;
  end;

function EnumExcelWindows(Wnd: HWND; Param: LPARAM): BOOL; stdcall;
var
  ClassName: array[0..255] of Char;
  ExcelApp: _Application;
  InfoList: TList<TExcelInstanceInfo>;
begin
  Result := True;
  GetClassName(Wnd, ClassName, SizeOf(ClassName));
  // Excel主窗口类名固定为XLMAIN
  if StrIComp(ClassName, 'XLMAIN') = 0 then
  begin
    // 通过私有消息获取COM实例指针
    if SendMessage(Wnd, WM_USER + 18, 0, 0) <> 0 then
    begin
      OleCheck(ObjectFromLresult(SendMessage(Wnd, WM_USER + 18, 0, 0), 
        IID__Application, 0, Pointer(ExcelApp)));
      InfoList := TList<TExcelInstanceInfo>(Param);
      with InfoList.Add do
      begin
        Handle := Wnd;
        ExcelApp := ExcelApp;
        WorkbookCount := ExcelApp.Workbooks.Count;
      end;
    end;
  end;
end;

procedure GetAllExcelInstances(var InstanceList: TList<TExcelInstanceInfo>);
begin
  InstanceList.Clear;
  EnumWindows(@EnumExcelWindows, LPARAM(InstanceList));
end;

// 使用示例
procedure TForm1.Button1Click(Sender: TObject);
var
  InstanceList: TList<TExcelInstanceInfo>;
  Info: TExcelInstanceInfo;
  i, j: Integer;
begin
  InstanceList := TList<TExcelInstanceInfo>.Create;
  try
    GetAllExcelInstances(InstanceList);
    Memo1.Clear;
    for i := 0 to InstanceList.Count - 1 do
    begin
      Info := InstanceList[i];
      Memo1.Lines.Add(Format('Excel窗口句柄: %d', [Info.Handle]));
      Memo1.Lines.Add(Format('工作簿数量: %d', [Info.WorkbookCount]));
      if Info.WorkbookCount > 0 then
      begin
        Memo1.Lines.Add('工作簿列表:');
        for j := 1 to Info.ExcelApp.Workbooks.Count do
          Memo1.Lines.Add('  - ' + Info.ExcelApp.Workbooks.Item[j].Name);
      end;
      Memo1.Lines.Add('------------------------');
      // 释放COM对象，避免内存泄漏
      Info.ExcelApp := nil;
    end;
  finally
    InstanceList.Free;
  end;
end;

方案2：原生API枚举全量ROT对象 #

替换Delphi自带的ROT枚举逻辑，用Windows原生API枚举所有ROT条目（兼容隔离实例）：

uses
  Windows, SysUtils, ComObj, ActiveX, Excel_TLB;

type
  IRunningObjectTable = interface(IUnknown)
    ['{00000010-0000-0000-C000-000000000046}']
    function EnumRunning(out penumMoniker: IEnumMoniker): HResult; stdcall;
    function GetObject(pmk: IMoniker; out ppunk: IInterface): HResult; stdcall;
    function IsRunning(pmk: IMoniker): HResult; stdcall;
    function NoteChangeTime(dwRegister: DWORD; const pfiletime: TFileTime): HResult; stdcall;
    function Register(grfFlags: DWORD; punkObject: IInterface; pmk: IMoniker; out pdwRegister: DWORD): HResult; stdcall;
    function Revoke(dwRegister: DWORD): HResult; stdcall;
    function SetTimeOfLastChange(pmk: IMoniker; const pfiletime: TFileTime): HResult; stdcall;
    function GetTimeOfLastChange(pmk: IMoniker; out pfiletime: TFileTime): HResult; stdcall;
  end;

function GetRunningExcelInstances(var AppList: TList<_Application>): Integer;
var
  ROT: IRunningObjectTable;
  EnumMoniker: IEnumMoniker;
  Moniker: IMoniker;
  Fetched: Cardinal;
  ExcelApp: _Application;
  DisplayName: PWideChar;
begin
  Result := 0;
  AppList.Clear;
  if Succeeded(GetRunningObjectTable(0, ROT)) then
  begin
    if Succeeded(ROT.EnumRunning(EnumMoniker)) then
    begin
      EnumMoniker.Reset;
      while EnumMoniker.Next(1, Moniker, Fetched) = S_OK do
      begin
        if Moniker.GetDisplayName(nil, nil, DisplayName) = S_OK then
        begin
          // 过滤Excel实例的Moniker
          if Pos('Excel.Application', WideString(DisplayName)) > 0 then
          begin
            if Succeeded(ROT.GetObject(Moniker, IInterface(ExcelApp))) then
            begin
              try
                // 验证实例有效性，排除空后台实例
                if ExcelApp.Workbooks.Count >= 0 then
                begin
                  AppList.Add(ExcelApp);
                  Inc(Result);
                end;
              except
                ExcelApp := nil;
              end;
            end;
          end;
          CoTaskMemFree(DisplayName);
        end;
        Moniker := nil;
      end;
    end;
  end;
end;

// 使用示例
procedure TForm1.Button2Click(Sender: TObject);
var
  AppList: TList<_Application>;
  App: _Application;
  i, j: Integer;
begin
  AppList := TList<_Application>.Create;
  try
    GetRunningExcelInstances(AppList);
    Memo1.Clear;
    for i := 0 to AppList.Count - 1 do
    begin
      App := AppList[i];
      Memo1.Lines.Add(Format('Excel实例工作簿数量: %d', [App.Workbooks.Count]));
      for j := 1 to App.Workbooks.Count do
        Memo1.Lines.Add('  - ' + App.Workbooks.Item[j].Name);
      Memo1.Lines.Add('------------------------');
      App := nil;
    end;
  finally
    AppList.Free;
  end;
end;

关键注意事项 #

• COM对象释放：每次获取_Application实例后必须手动置为nil，避免内存泄漏和引用计数问题。
• 权限要求：程序需以管理员权限运行，否则无法访问隔离的Excel实例。
• 版本兼容：XLMAIN是Excel全版本通用的主窗口类名，兼容性可靠。

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