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