Delphi D2010与D10.4填充Excel单元格后重算差异求助

差异原因 #

Delphi版本升级后，OLE自动化的底层交互逻辑发生了变化：

• Delphi D2010中，通过OLE修改Excel单元格Value属性时，默认会触发Excel的内部变更检测机制，自动启动公式重算。
• Delphi D10.4的RTL（运行时库）对OLE Variant类型的处理做了优化，赋值Value属性的操作不再主动触发Excel的重算事件，导致公式单元格无法自动感知数据源变化，仅在手动激活单元格时才会触发重算。

强制重算的解决方法 #

方法1：全局强制重算 #

在所有单元格值修改完成后，调用Excel应用对象的Calculate方法，触发全局公式重算：

CoInitialize(nil);
...
xls := CreateOleObject('Excel.Application');
...   
For I := ...
For J := ...
  if VarIsStr(xls.Cells[I,J].Value) then
       begin
         CellText := xls.Cells[I,J].Value;
         if CellText='AAAA' then xls.Cells[I,J].Value:='CCCC';
         if CellText='BBB' then xls.Cells[I,J].Value:='DDD';
       end;
// 触发全局重算
xls.Calculate;
...

方法2：确保自动计算模式开启+强制重算 #

如果Excel的计算模式被设置为手动，即使修改单元格值也不会自动重算。可以先强制设置为自动计算模式，再执行重算：

CoInitialize(nil);
...
xls := CreateOleObject('Excel.Application');
// 设置为自动计算模式（xlCalculationAutomatic对应数值-4105）
xls.Calculation := -4105;
...   
For I := ...
For J := ...
  if VarIsStr(xls.Cells[I,J].Value) then
       begin
         CellText := xls.Cells[I,J].Value;
         if CellText='AAAA' then xls.Cells[I,J].Value:='CCCC';
         if CellText='BBB' then xls.Cells[I,J].Value:='DDD';
       end;
// 强制立即重算
xls.Calculate;
...

方法3：仅重算指定工作表 #

如果只需要重算特定工作表的公式，可以调用对应工作表对象的Calculate方法，减少性能消耗：

// 重算当前活动工作表
xls.ActiveSheet.Calculate;
// 或者指定工作表名称重算
xls.Sheets['Sheet1'].Calculate;

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