把多个EXCEL的内容合并到一个EXCEL中的多个SHEET中

最新推荐文章于 2021-10-12 20:11:04 发布

weixin_30627341

最新推荐文章于 2021-10-12 20:11:04 发布

阅读量193

点赞数

原文链接：http://www.cnblogs.com/jing_lee/archive/2011/06/23/2088314.html

版权

var ExcelApp,ExcelApp2: Variant;
begin
ExcelApp := CreateOleObject( 'Excel.Application' );
//ExcelApp.Visible := True;
ExcelApp.WorkBooks.Open( 'C:\Documents and Settings\Administrator\桌面\File1.xls' );
ExcelApp.WorkBooks.Open( 'C:\Documents and Settings\Administrator\桌面\File2.xls' );
ExcelApp.workbooks[1].WorkSheets[1].Range[ 'A1:I20' ].Copy;
ExcelApp.WorkBooks[2].worksheets.add;
ExcelApp.WorkBooks[2].worksheets[1].Range['A1'].PasteSpecial;
ExcelApp.WorkBooks[2].WorkSheets[1].Name:='test1';
ExcelApp.WorkBooks[2].WorkSheets[2].Name:='test2';
ExcelApp.workbooks[2].save;
ExcelApp.ActiveWorkBook.Saved := True;

ExcelApp.WorkBooks.Close;
ExcelApp.quit;

end;

把多个excel 的内容复制到一个EXCEL中

转载于:https://www.cnblogs.com/jing_lee/archive/2011/06/23/2088314.html