把多个EXCEL的内容合并到一个EXCEL中的多个SHEET中
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中
优质内容筛选与推荐>>1、用PHP过滤html危险内容
2、mysql在字符编辑窗口下怎么退出编辑界面？（mysql下的ctrl+c与\c）
3、熟悉常用的HBase操作
4、学习SpringMVC时遇到的一些问题
5、中国银行软件中心2014校园招聘组将于11月21日（本周四）晚上7点在研究生楼608室举办技术沙龙，届时会有软件中心负责人及技术人员在场与大家沟通，请大家相互转告。