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參數，不過沒測試