把多个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、【2017 Multi-University Training Contest - Team 5】Rikka with Competition
2、12 月份 10 个新鲜的 jQuery 插件和教程
3、WinForm中快捷键与组合按键的设置
4、laravel如何利用数据库的形式发送通知
5、Emoji of github & twitter


长按二维码向我转账

受苹果公司新规定影响,微信 iOS 版的赞赏功能被关闭,可通过二维码转账支持公众号。

    阅读
    好看
    已推荐到看一看
    你的朋友可以在“发现”-“看一看”看到你认为好看的文章。
    已取消,“好看”想法已同步删除
    已推荐到看一看 和朋友分享想法
    最多200字,当前共 发送

    已发送

    朋友将在看一看看到

    确定
    分享你的想法...
    取消

    分享想法到看一看

    确定
    最多200字,当前共

    发送中

    网络异常,请稍后重试

    微信扫一扫
    关注该公众号