Delphi中能否将内存流中二进制XLS加载到Excel ActiveX并转XLSX？

完全可以实现不落地文件，直接通过内存流完成XLS到XLSX的转换，核心是利用COM的IStream接口将Delphi内存流包装成Excel可识别的格式，具体实现如下：

实现步骤与代码示例 #

1. 必要单元引用 #

首先确保你的单元引用了以下必要单元：

uses
  SysUtils, Classes, ActiveX, ComObj, dxDBGrid; // 根据实际项目调整dxDBGrid相关单元

2. 核心转换代码 #

procedure ConvertGridXLStoXLSXInMemory(AGrid: TdxDBGrid; const AXLSXFileName: string);
var
  LMemoryStream: TMemoryStream;
  LIStream: IStream;
  LExcelApp: OLEVariant;
  LWorkbook: OLEVariant;
begin
  // 1. 将dxDBGrid导出的XLS数据写入内存流
  LMemoryStream := TMemoryStream.Create;
  try
    AGrid.ExportToExcel(LMemoryStream);
    LMemoryStream.Position := 0; // 重置流指针到起始位置

    // 2. 把Delphi内存流转换为COM标准IStream接口
    LIStream := TStreamAdapter.Create(LMemoryStream, soReference) as IStream;

    // 3. 初始化Excel ActiveX对象
    LExcelApp := CreateOleObject('Excel.Application');
    try
      LExcelApp.Visible := False; // 后台运行，不显示Excel窗口
      LExcelApp.DisplayAlerts := False; // 关闭保存提示等弹窗

      // 4. 从IStream直接加载XLS数据
      LWorkbook := LExcelApp.Workbooks.Open(LIStream);
      try
        // 5. 另存为XLSX格式（xlOpenXMLWorkbook对应数值为51）
        LWorkbook.SaveAs(AXLSXFileName, 51);
      finally
        LWorkbook.Close(SaveChanges := False);
        LWorkbook := Unassigned;
      end;
    finally
      LExcelApp.Quit;
      LExcelApp := Unassigned;
    end;
  finally
    LMemoryStream.Free;
  end;
end;

3. 关键细节说明 #

• TStreamAdapter：Delphi 6原生提供该类，用于将VCL的TStream转换为COM兼容的IStream，soReference参数表示不接管流的所有权，由我们自行管理内存流的释放。
• Excel格式标识：如果项目中未定义xlOpenXMLWorkbook常量，直接使用数值51即可，这是Excel官方定义的XLSX格式保存类型。
• 资源清理：必须通过try...finally结构确保Excel对象和Workbook对象被彻底释放，避免后台残留Excel进程。
• 异常处理：可根据需求添加try...except块捕获OLE异常，比如处理Excel未安装、权限不足等场景。

使用示例 #

// 调用方法将dxDBGrid1的数据导出为指定路径的XLSX文件
ConvertGridXLStoXLSXInMemory(dxDBGrid1, 'C:\YourPath\Output.xlsx');

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