Delphi 6中TOleContainer加载带宏Excel文件的宏禁用警告问题

问题原因 #

TOleContainer的CreateObjectFromFile方法通过OleCreateFromFile创建OLE对象时，会将原Excel文件的内容复制到临时OLE存储区域（即代码中的FStorage）。Excel会将这个临时副本识别为“无信任来源”的文件，即便你已经将原文件路径添加到Excel信任位置，也会触发安全警告——因为实际加载的是临时副本而非原文件。

可行解决方案 #

1. 使用链接模式加载文件（推荐） #

放弃嵌入模式，改用链接到原文件的方式加载，这样Excel会直接读取原文件，而非创建临时副本，原文件的信任设置会生效。

你可以直接调用TOleContainer的CreateObjectFromInfo方法，指定ctLinkToFile类型：

procedure LoadExcelAsLink(const FileName: string; Iconic: Boolean);
var
  CreateInfo: TCreateInfo;
begin
  CreateInfo.CreateType := ctLinkToFile;
  CreateInfo.ShowAsIcon := Iconic;
  CreateInfo.IconMetaPict := 0;
  CreateInfo.FileName := FileName;
  MyOleContainer.CreateObjectFromInfo(CreateInfo);
end;

调用这个方法替代原CreateObjectFromFile即可。注意：如果原文件被删除或移动，OLE容器将无法正常加载内容。

2. 调整Excel信任中心全局设置（仅适合内部/测试环境） #

通过修改Excel的信任中心设置，放宽对文件来源的限制：

• 打开Excel → 「文件」→「选项」→「信任中心」→「信任中心设置」
• 进入「受保护视图」，取消勾选与文件来源相关的选项（如“位于可能不安全位置的文件”）
• 进入「宏设置」，选择“启用所有宏（不推荐；可能会运行有潜在危险的代码）”（仅测试环境使用）

这种方式是全局设置，会降低Excel的安全性，不建议面向终端用户部署。

3. 直接通过Excel COM对象加载（复杂度较高） #

绕过TOleContainer的默认逻辑，直接使用Excel COM对象打开原文件，再将对象附加到OLE容器：

var
  ExcelApp: OleVariant;
  Workbook: OleVariant;
  OleObj: IOleObject;
begin
  // 创建Excel应用实例
  ExcelApp := CreateOleObject('Excel.Application');
  // 打开原文件（信任位置的文件不会触发警告）
  Workbook := ExcelApp.Workbooks.Open('MyFilePath');
  // 获取Workbook的IOleObject接口
  if Workbook.QueryInterface(IOleObject, OleObj) = S_OK then
  begin
    MyOleContainer.DestroyObject;
    MyOleContainer.FOleObject := OleObj;
    MyOleContainer.InitObject;
    MyOleContainer.UpdateView;
  end;
  // 注意：需要管理COM对象的生命周期，避免内存泄漏
end;

这种方式完全基于原文件路径加载，信任设置会正常生效，但需要手动处理COM对象的释放，代码复杂度较高。

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