怎么把100多个EXCEL文件合并成新一个文件_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
怎么把100多个EXCEL文件合并成新一个文件
上传于||暂无简介
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢09:10 提问
java操作excel，用jxl将多个excel文件合并成一个多sheet的excel文件，颜色会出错
程序代码如下：
public class Main {
public static void main(String[] args) {
InputStream fis1 = new FileInputStream("D:/fei/testfiles/2G囤卡量.xls");
InputStream fis2 = new FileInputStream("D:/fei/testfiles/电子渠道.xls");
Workbook wb1 = Workbook.getWorkbook(fis1);
Workbook wb2 = Workbook.getWorkbook(fis2);
WritableWorkbook newWb = Workbook.createWorkbook(new File("D:/fei/testfile/jxl.xls"));
newWb.importSheet("NewSheet0", 0, wb1.getSheet(0));
newWb.importSheet("NewSheet1", 1, wb2.getSheet(0));
fis1.close();
fis2.close();
wb1.close();
wb2.close();
newWb.write();
newWb.close();
} catch (BiffException e) {
e.printStackTrace();
} catch (IOException e) {
e.printStackTrace();
} catch (WriteException e) {
e.printStackTrace();
合并使用的excel源文件是用杰表报表工具生成的报表。合并之后的excel文件，数据、单元格合并、边框等都与源文件相符，但是颜色会出现异常，一些单元格会加上蓝色的背景色。
我自己也新建了几个excel文件来测试，颜色不会出现异常。我不知道是office版本的问题，还是excel文件本身有什么属性是我不知道的。
以上所有的excel文件都是97-03版的xls文件。
其他相似问题
相关参考资料113.72.6.*
请问你自己试过没有？第1种方法不行，第2种方法也不行，第3种方法还是不行！
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注查看: 668|回复: 5
多个EXCEL的表，同样格式，不同数据，怎么合并成一个表
初级一, 积分 27, 距离下一级还需 23 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
每天导出几百的EXCEL表格，里面数据不同，但是排列的格式是一样的，然后不想要一个一个去打开粘贴，需要一个代码，或者是函数，可以把所有的数据，汇聚到一个表格里面。求高手解答~
学office，哪能不关注全网最大的Office类微博（新浪）
中级二, 积分 928, 距离下一级还需 122 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
多工作簿汇总问题，这样的案例在社区上很多，如果楼主不是很熟悉VBA，建议上传附件。
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
多簿单表数据合并专家1.1
(出处: Excel 技巧网)
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 27, 距离下一级还需 23 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
Sub MergeSheets()
& & Dim SrcBook As Workbook, SrcSht As Worksheet
& & Dim fso As Object, f As Object, ff As Object, f1 As Object
& & Application.ScreenUpdating = False
& & Set fso = CreateObject(&Scripting.FileSystemObject&)
& & Set f = fso.Getfolder(&路径\&)
& & Set ff = f.Files
& & For Each f1 In ff
& && &&&Set SrcBook = Workbooks.Open(f1)
& && &&&For Each SrcSht In SrcBook.Worksheets
& && && && &
& && && && &SrcSht.Range(&A1:IV& & SrcSht.Range(&A65536&).End(xlUp).Row).Copy
& && && && &
& && && && &ThisWorkbook.Worksheets(1).Activate
& && && && &Range(&A65536&).End(xlUp).Offset(1, 0).PasteSpecial
& && && && &Application.CutCopyMode = False
& && && && && && && && &
& && &&&Next
& && &&&SrcBook.Close
这个码怎么使用啊？
先把代码中
Set f = fso.Getfolder("路径\")
这一句的“路径\”修改成你要合并的文件所在的文件夹路径，比如“C:\某某文件夹\”。然后这样操作：
新建一个工作簿，按组合键，依次单击“插入”-“模块”，在显示的&
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
Sub MergeSheets()
& & Dim SrcBook As Workbook, SrcSht As Worksheet
先把代码中
Set f = fso.Getfolder(&路径\&)
这一句的“路径\”修改成你要合并的文件所在的文件夹路径，比如“C:\某某文件夹\”。然后这样操作：
新建一个工作簿，按&Alt+F11&组合键，依次单击“插入”-“模块”，在显示的空白窗格中粘贴代码，然后单击代码的任意一行，按&F5&键，再按&Alt+F11&回到工作表界面就能看到合并的结果了，另存为.xlsx文件即可。
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 27, 距离下一级还需 23 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
先把代码中
Set f = fso.Getfolder(&路径\&)
这一句的“路径\”修改成你要合并的文件所在的文件夹路径 ...
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byExcel批量合并精灵能快速的将多个Excel文件合并成一个Excel文件，并且支持excel文件批量合并，将你从频繁的“复制“，“粘贴”操作中解脱出来。　　软件功能：　　1、可自由选择要合并的Excel文件。　　2、可自由选择合并后的存储位置。　　3、可自由定义合并后的文件名。　　4、可让软件在无人干预的情况自动合并，合并完成后自动关机。　　5、可自由定义合并的Excel文件工作薄中有多少个Sheet(工作表)。　　6、可自由选择合并的起止行。　　7、可选择合并的内容。　　8、合并过程中可终止合并进程。　　9、支持Office2000/Office2003/Office2007/Office2010。
(59)个资源
(35)个资源
Excel批量合并精灵(将多个excel表格文件合并为一个) 5.0 绿色最新安装版
其它相关版本
山东淄博电信 网友 客人 发表于:
要花钱注册！
7.9M / 06-11 / 3.5.4.520
官方正式版
13.3M / 06-03 / 2.8.1.14 官方最新版
8.9M / 06-03 / 4.0.7 绿色中文版
867KB / 08-07 / 1.0 中文绿色版
1.7M / 06-12 / 绿色PC版
本类软件排行
装机必备软件
压缩阅读卸载恢复}