如何把多个excel合并为一个excel里的多个sheet 如何把多个excel合并为一个ex

问题情景有多张数据库表，但是每张表存在一个excel里，导致文件量很大。为方便使用，需要把多个excel合并为一个，且每张表为一个sheet，sheet名字以原来的文件名命名。
解决办法 1.Java有Apache POI包可以对excel操作，还没搞清楚，以后贴代码。
2.使用excel自带的VB编程。在excel里右键点sheet可以看见“查看代码”的选项即可打开编程界面，复制如下代码进去点运行即可。
注意事项 【如何把多个excel合并为一个excel里的多个sheet】1.sheet要求至多31个字符，所以要注意表名长度，长度超出会报错。
2.注意excel版本，有xls和xlsx俩种格式的文件。

Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker)'新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.AddWith fd If .Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant'定义循环变量 Dim i As Integer i = 1'开始文件检索 For Each vrtSelectedItem In .SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem)'复制工作表 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")'关闭被合并工作簿 tempwb.Close SaveChanges:=Falsei = i + 1 Next vrtSelectedItem End If End WithSet fd = Nothing End Sub

如何把多个excel合并为一个excel里的多个sheet

推荐阅读

构成职务侵占罪会如何追究责任?

红梅树修剪时间和方法刚买的红梅盆栽养殖方法

佳能单反p档操作佳能p档怎么使用

给我查一下一月份哪天日子好查一下日子

孤独就像烧开的水壶孤独水壶是什么意思

美的随风行美的随风行移动空调不制冷

出远门核酸检测提前几天做

单反相机与数码相机的区别有哪些？数码相机和单反相机的区别

济宁什么情况能带押过户？

《暗黑破坏神3：夺魂之镰》圣教军FARM练级实用心得

新冠疫苗|普通人还有多久能接种新冠疫苗？最新回应来了

春笋怎么保存一周春笋保存方法家庭

专家解读：个人医保账户里的钱为何少了？

上古卷轴5天际怎么玩_玩法大全分享

慢跑可以练出腹肌吗

idea是用来干什么的，idea后面加是什么意思

土豆粉一包多少钱纯土豆粉条多少钱一斤

韭菜与鸡肉相克吗

投稿|营收增长难掩资本市场落寞：腾讯音乐“押宝”元宇宙？

小耳朵奶茶获得教程小耳朵奶茶活动什么时候结束