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

用途：取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参数，不过没测试