把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里

夏天

实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。代码如下：

'功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称

新建的excel新表---书签sheet1--右击查看代码-复制代码进入---运行-选择需要合并的表--OK

登录可见。

表合并完成后再进行修改每一个sheet的名称,这个方法不能把每个excel表的表名还原到生成的sheet的表名里

注意：没有合并上去的表，在表中新增加一个sheet空表--按住表名称再进行复制移动过去到总表中