使用嵌套 var 访问运行 Delphi 程序后，Excel.exe 保持加载状态

Question

我遇到了一个类似于 reasons why excel.exe remains loaded after running a delphi client automation program? 的奇怪问题问题。不过问题还更深了一步。

我已经用Delphi 7编写了代码，并将其升级到XE2。这样做之后，我在 XE2 中遇到了同样的问题，虽然建议的解决方案在简单的测试应用程序中有效，但一旦我使用这些行，Excel.exe 在程序退出后仍会加载:

fExcel: Variant; // Tried both as a field of a class and global variable

fExcel := CreateOleObject('Excel.Application');
try
  fExcel.Workbooks.Open(srcPathName);
  fExcel.DisplayAlerts := False;
  ...
  // Offending lines
  fExcel.ActiveWorkBook.ActiveSheet.Range[                                //
      fExcel.ActiveWorkBook.ActiveSheet.Cells[3, 2],                      //
      fExcel.ActiveWorkBook.ActiveSheet.Cells[3+i,1+XL_PT_Tip_FieldCount] //
  ].Formula := VarArr;                                                    //
  ...
  fExcel.ActiveWorkBook.SaveAs(tgtPathName, -4143, '', '', False, False);
  fExcel.ActiveWorkBook.Close;
finally
  fExcel.Application.Quit;
  fExcel.Quit;
  fExcel := Unassigned;
end;

但是，如果我引入临时变量 cl,ch: Variant 并将上面替换为:

cl := fExcel.ActiveWorkBook.ActiveSheet.Cells[3, 2];
ch := fExcel.ActiveWorkBook.ActiveSheet.Cells[3+i,1+XL_PT_Tip_FieldCount];
fExcel.ActiveWorkBook.ActiveSheet.Range[cl, ch].Formula := VarArr;

它神奇地开始工作，Excel.exe 得到正确处理。

如果使用工作表变量也会发生同样的情况，添加临时变量可以解决它:

sheetDynamicHb := fExcel.ActiveWorkBook.Sheets['Dynamics Hb'];
cl := sheetDynamicHb.Cells[52, 2];
ch := sheetDynamicHb.Cells[52+i, 2+3];
sheetDynamicHb.Range[cl, ch].Formula := VarArr;

以某种方式引入临时变量(cl,ch: Variant)可以解决问题。看起来嵌套的 Excel 变量访问做了一些奇怪的事情(使用引用计数？)。我无法解释为什么它会这样工作，但它确实按照描述工作，并且让我有点疯狂。

除了每次添加临时变量之外，是否有这种行为的原因和解决方案？

<小时/>

根据要求:完整的程序:

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ActiveX, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, VarArr, cl, ch: Variant;
begin
  ex := CreateOleObject('Excel.Application');
  try
    // Loading template XLS
    ex.Workbooks.Open('C:\Documents and Settings\...\TemplateCommon.xls');
    ex.DisplayAlerts := False;

    //Selecting work sheet
    ex.ActiveWorkBook.Sheets['Sheet ABC'].Select;

    VarArr := VarArrayCreate([0, 9, 0, 12], varVariant);

    // This code works fine    
    {cl := ex.ActiveWorkBook.ActiveSheet.Cells[3, 2];
    ch := ex.ActiveWorkBook.ActiveSheet.Cells[3 + 9, 2 + 12];
    ex.ActiveWorkBook.ActiveSheet.Range[cl, ch].Formula := VarArr;}

    // This code leaves Excel running
    ex.ActiveWorkBook.ActiveSheet.Range[
      ex.ActiveWorkBook.ActiveSheet.Cells[3, 2],
      ex.ActiveWorkBook.ActiveSheet.Cells[3 + 9, 2 + 12]
    ].Formula := VarArr;

    ex.ActiveWorkBook.SaveAs('C:\Documents and Settings\...\out.xls', -4143, '', '', False, False);
    ex.ActiveWorkBook.Close;
  finally
    ex.Quit;
    ex := Unassigned;
  end;
end;

end.

实际程序要复杂得多，但即使在这个简单的测试用例中也存在错误:

• 如果出现临时变量，Excel 将立即被处理。
• 如果使用嵌套变量，Excel 仅在程序关闭时才会被释放，就好像某些东西持有对其或其他东西的引用。

Answer 1

按照与创建变量相反的顺序处理 Excel 的每个变量，然后 excel 对象才能正确处理。