var MyExcelApp, SourceWorkbook, TargetWorkbook: Variant;begin MyExcelApp := CreateOleObject('Excel.Application'); MyExcelApp.Visible := True; SourceWorkbook := MyExcelApp.Workbooks.Open('d:/b.xls'); //源文件 TargetWorkbook := MyExcelApp.Workbooks.Open('d:/a.xls');//目标文件 SourceWorkbook.Sheets[1].Copy(null, TargetWorkbook.Sheets[TargetWorkbook.Sheets.Count]);//将源文件中的第一个工作表复制到目标文件中的最后一个工作表之后。 TargetWorkbook.Sheets[TargetWorkbook.Sheets.Count].Name := '工作表名称'; //给复制后的工作表定义名称。 MyExcelApp.quit;end;
