Delphi中Excel文件多线程并行处理故障排查求助

问题根源 #

你的代码几乎把所有核心逻辑（包括耗时的Excel循环处理）都放到了TThread.Synchronize或TThread.Queue中，这两个方法的作用是把代码提交到主线程执行，相当于所有工作还是在主线程里完成，线程本身根本没承担耗时任务，自然无法实现并行。

正确的实现思路 #

• 只有UI控件的更新操作（比如进度条、标签、StringGrid的修改）需要用Synchronize或Queue提交到主线程执行。
• 所有耗时的业务逻辑（Excel文件读取、循环比对、单元格修改）必须直接在线程的执行代码中运行，不要套同步方法。
• 必要的UI交互（打开对话框、输入框）可以用Synchronize在主线程触发，但要把结果带回线程继续处理。

修改后的代码示例 #

procedure TForm2.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(proc).Start;
end;

procedure TForm2.Proc;
var
  refSheet: Integer;
  RowCount, varGridRow: Integer;
  i, j, k: Integer;
  desc, refDesc, refRate: string;
  delta: Integer;
  OldValue: String;
  ws: Variant;
  ExcelApp: Variant;
  FileName: string;
  IsValidSheet: Boolean;
begin
  delta := 0;
  varGridRow := 1;

  // 1. 在主线程打开文件对话框，获取文件名
  TThread.Synchronize(nil, procedure()
  begin
    FileName := '';
    if OpenDialog1.Execute then
      FileName := OpenDialog1.FileName;
  end);

  if FileName = '' then Exit; // 用户取消选择文件，直接退出

  // 2. 在线程中创建Excel对象并打开文件（耗时操作，不放在同步方法）
  try
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.Workbooks.Open(FileName);

    // 3. 在主线程获取工作表编号并验证
    IsValidSheet := False;
    TThread.Synchronize(nil, procedure()
    var
      InputStr: string;
    begin
      InputStr := InputBox('', '', '3');
      if TryStrToInt(InputStr, refSheet) then
      begin
        if (refSheet > 0) and (refSheet <= ExcelApp.Worksheets.Count) then
          IsValidSheet := True
        else
          ShowMessage('Invalid sheet number');
      end
      else
        ShowMessage('Please enter a valid number');
    end);

    if not IsValidSheet then Exit;

    // 4. 更新进度条最大值（UI操作，用Queue）
    TThread.Queue(nil, procedure()
    begin
      IssamProgressBar1.Max := ExcelApp.Worksheets[refSheet].UsedRange.Rows.Count;
      IssamProgressBar1.Progress := 0;
    end);

    // 5. 核心Excel处理逻辑（完全在线程中执行，耗时操作不碰UI）
    RowCount := 1;
    for i := 2 to ExcelApp.Worksheets[refSheet].UsedRange.Rows.Count do
    begin
      // 更新进度条（UI操作）
      TThread.Queue(nil, procedure()
      begin
        IssamProgressBar1.Progress := i - 2;
      end);

      if (not VarIsEmpty(ExcelApp.Worksheets[refSheet].Cells[i, 2].Value)) and
         (not VarIsEmpty(ExcelApp.Worksheets[refSheet].Cells[i, 1].Value)) then
      begin
        refDesc := ExcelApp.Worksheets[refSheet].Cells[i, 2].Text;
        refRate := ExcelApp.Worksheets[refSheet].Cells[i, 5].Text;

        // 更新标签显示当前描述（UI操作）
        TThread.Queue(nil, procedure()
        begin
          Label3.Caption := refDesc;
        end);

        // 遍历其他工作表
        for j := 1 to ExcelApp.ActiveWorkbook.Sheets.Count do
        begin
          ws := ExcelApp.ActiveWorkbook.Sheets[j];
          if ws.Index <> refSheet then
          begin
            // 更新当前检查的工作表标签（UI操作）
            TThread.Queue(nil, procedure()
            begin
              Label1.Caption := 'Checking Sheet : ' + ExcelApp.Worksheets[j].Name;
            end);

            // 遍历当前工作表的行
            for k := 2 to ws.UsedRange.Rows.Count do
            begin
              desc := ws.Cells[k, 2].Value;
              if (not VarIsEmpty(desc)) and (not VarIsEmpty(ws.Cells[k, 1].Value)) then
              begin
                // 更新当前比对的描述标签（UI操作）
                TThread.Queue(nil, procedure()
                begin
                  Label5.Caption := desc;
                end);

                if (refDesc = desc) and (refDesc <> 'Set of spare parts;') and
                   (refDesc <> 'Set of tools and instruments;') then
                begin
                  if (ws.Cells[k, 5].Value <> refRate) and VarIsNumeric(ws.Cells[k, 5].Value) then
                  begin
                    ws.Cells[k, 7].Value := ws.Cells[k, 5].Value;
                    OldValue := ws.Cells[k, 5].Value;
                    ws.Cells[k, 5].Value := refRate;
                    Inc(delta);
                    ws.Cells[k, 5].Font.Color := RGB(255, 0, 0);

                    // 更新StringGrid（UI操作，必须同步）
                    TThread.Synchronize(nil, procedure()
                    begin
                      with StringGrid1 do
                      begin
                        RowCount := RowCount + 1;
                        Cells[0, varGridRow] := IntToStr(varGridRow);
                        Cells[1, varGridRow] := refDesc;
                        Cells[2, varGridRow] := OldValue;
                        Cells[3, varGridRow] := refRate;
                        Cells[4, varGridRow] := ExcelApp.Worksheets[j].Name;
                        Cells[5, varGridRow] := IntToStr(j);
                      end;
                      Inc(varGridRow);
                    end);
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  finally
    // 6. 最后清理UI并关闭Excel（UI操作放同步方法，Excel操作在线程执行）
    TThread.Queue(nil, procedure()
    begin
      IssamProgressBar1.Progress := 0;
      Label1.Caption := '';
      Label3.Caption := '';
      Label5.Caption := '';
    end);

    if not VarIsEmpty(ExcelApp) then
    begin
      ExcelApp.ActiveWorkbook.Close(False);
      ExcelApp.Quit;
      ExcelApp := Unassigned;
    end;
  end;
end;

关键修改说明 #

• 拆分同步与异步代码：把Excel创建、文件打开、循环比对这些耗时操作直接放在线程中，只将UI更新的小片段用Queue提交到主线程。Queue比Synchronize更适合非紧急的UI更新，不会阻塞线程。
• 变量传递优化：通过在线程中定义变量（如FileName、IsValidSheet）来接收主线程UI交互的结果，避免在同步方法中直接操作线程变量时的作用域问题。
• 异常处理：添加try...finally确保Excel对象能被正确关闭，避免资源泄漏。
• 避免无用的Refresh：UI控件在主线程更新后会自动刷新，不需要手动调用Refresh，多余的调用反而会增加主线程负担。

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