Delphi操作EXCEL复制Sheet到另一个XLS文件中

最新推荐文章于 2021-04-27 16:42:23 发布

原创最新推荐文章于 2021-04-27 16:42:23 发布 · 3.6k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#excel #delphi #dst #工作 #测试

Delphi 同时被 2 个专栏收录

44 篇文章

订阅专栏

Excel

1 篇文章

订阅专栏

本文介绍了一种使用VBA将一个Excel模板文件中的特定工作表合并到另一个已存在的Excel文件的方法。通过创建OLE对象并利用Excel应用程序的功能，可以实现工作表的复制，并将源工作表重命名为'newsheet'。

用途：取excel模板文件中的某个sheet，合并到另一个已存在的excel文件中

var
  excel, src, dst, act: OleVariant;
begin
  excel := CreateOleObject('Excel.Application');
  excel.Visible := true;
  src := excel.WorkBooks.Open('d:\src.xls');
  dst := excel.WorkBooks.Open('d:\dst.xls');
  //复制到目的工作薄最后工作表之后
  src.Sheets[1].Copy(After:=dst.Sheets[dst.Sheets.Count]);
  src.Close;
  act := dst.ActiveSheet;
  act.Name := 'new sheet';
end;

复制到新的WorkBook，直接excel.ActiveSheet.Copy

估计还有Before参数，不过没测试