Win32 Delphi程序自动化Excel：Application.Ready失效，求就绪检测方案

你说得对，Application.Ready确实只在Excel等待用户手动操作（比如弹窗、对话框）时才返回False，对于后台的文件加载、公式计算这类操作，它始终是True，所以没法靠它判断Excel是否完成后台任务。下面是几种更有效的检测方法：

1. 检查工作簿的Ready属性 #

每个Workbook对象都有自己的Ready属性，专门用来标识该工作簿是否完成加载。相比全局的Application.Ready，它更精准对应文件加载的状态：

procedure CopyFromExcelSheet;
var
  ExcelApp: OleVariant;
  Workbook: OleVariant;
  WorkSheet: OleVariant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := False;
  Workbook := ExcelApp.Workbooks.Open(<Filename>);

  // 等待工作簿加载完成
  while not Workbook.Ready do
  begin
    ExcelApp.DoEvents; // 让Excel处理后台消息
    Sleep(100);
  end;

  WorkSheet := Workbook.Sheets[1];
  WorkSheet.UsedRange.Copy;
  // 后续操作...
end;

2. 监控计算状态CalculationState #

如果你的Excel文件包含大量公式，打开后Excel会在后台计算，这时候即使工作簿加载完成，操作单元格可能还是会出错。可以通过Application.CalculationState判断计算是否完成：

• xlDone（值为0）：计算完成
• xlCalculating（值为1）：正在计算
• xlPending（值为2）：计算待处理

示例代码：

// 在需要等待计算完成的位置添加：
while ExcelApp.CalculationState <> 0 do
begin
  ExcelApp.DoEvents;
  Sleep(100);
end;

3. 用DoEvents替代Sleep优化等待逻辑 #

你的GiveExcelSomeTime函数里用了Sleep，但Sleep会阻塞当前线程，导致Excel无法及时处理后台任务。换成ExcelApp.DoEvents可以让Excel在等待期间继续处理消息，提升效率：

procedure WaitForExcelReady(AApp: OleVariant; AWorkbook: OleVariant; AMaxWaitMs: Integer);
var
  LElapsedMs: Integer;
begin
  LElapsedMs := 0;
  while (not AWorkbook.Ready) or (AApp.CalculationState <> 0) do
  begin
    AApp.DoEvents;
    Sleep(100);
    LElapsedMs := LElapsedMs + 100;
    if LElapsedMs >= AMaxWaitMs then
      Break;
  end;
end;

4. 异常捕获+重试机制 #

即使做了上述检测，偶尔还是可能遇到网络文件加载慢、Excel突发卡顿的情况。可以通过捕获OLE异常，实现有限次数的重试：

procedure CopyFromExcelSheet;
var
  ExcelApp: OleVariant;
  Workbook: OleVariant;
  WorkSheet: OleVariant;
  LRetryCount: Integer;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := False;
  LRetryCount := 3; // 最多重试3次
  while LRetryCount > 0 do
  begin
    try
      Workbook := ExcelApp.Workbooks.Open(<Filename>);
      WaitForExcelReady(ExcelApp, Workbook, 5000); // 最多等5秒
      WorkSheet := Workbook.Sheets[1];
      WorkSheet.UsedRange.Copy;
      Break; // 成功就退出循环
    except
      on E: EOleException do
      begin
        Dec(LRetryCount);
        if LRetryCount = 0 then
          raise; // 重试完还失败就抛出异常
        Sleep(500);
      end;
    end;
  end;
  // 后续操作...
end;

额外优化建议 #

• 尽量避免使用Activate/Select这类操作，直接通过对象引用操作（比如Workbook.Sheets[1]代替ExcelApp.Workbooks[1].Sheets[1].Activate），这类操作会触发额外的UI事件，增加不必要的延迟。
• 如果不需要Excel可见，保持ExcelApp.Visible := False，能减少UI渲染带来的性能开销。

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