Delphi - Excel - 如何加快运算速度

Question

我正在为 Delphi XE6 中的 Excel 编写插件。我不得不将行从一张纸“复制”到另一张纸。挑战在于我的手术花费的时间比我认为的要长得多。例如，将 500 行（23 列）从一张纸复制到另一张纸需要 28 秒左右...

部分挑战是我必须逐行处理。我有一个 INT 数组，每行一个 INT。 INT 值告诉我是否需要复制该行...

...for loop i ... through entire array....
...if row I am interested in...

      // Set the Original Sheet Active
      MasterOrigSheet.Select;

      // Build my row numbers
      SourceRangeCell := 'A' + IntToStr(i);
      DestRangeCell := 'A' + IntToStr(DestRowNumber);

      // Copy the row from source to destination
      MasterOrigSheet.Range[SourceRangeCell, SourceRangeCell].EntireRow.Copy
        (NewSheet.Range[DestRangeCell, DestRangeCell].EntireRow);
      Inc(DestRowNumber);

有没有更快的方法来做到这一点？我正在复制整行。我没有使用 COPY/PASTE 缓冲区...感谢任何帮助或想法。

Answer 1

目标是限制您需要调用 Excel 的次数。

为此，利用Worksheet.Range 属性在单个字符串中接受多个单元格这一事实。使用联合运算符（逗号）一次描述多个单元格。也就是说，在您的循环中，建立一个以逗号分隔的要复制的单元格列表。然后调用Range 获取范围引用，并在该单个范围上使用EntireRow.Copy。

另外，避免重复不需要完成的工作。例如，原始表应在整个循环中保持选中状态，因此您无需继续告诉 Excel 在每次迭代中选择它。即使该操作没有实际效果，您的程序仍需要完成打包 COM 调用并将其传递到 Excel 的工作。