Excel快速合并200个Excel工作簿.doc

文档介绍：Excel快速合并200个Excel工作簿
快速合并200个Excel工作簿
本想把论坛里的一个工作簿里的vba代码导入到自己的工作簿，搞了半天没成功(我是菜鸟)，后来想能否用别的办法把他合并过来，在网上还真早到了，合并之后删除自己不Excel快速合并200个Excel工作簿
快速合并200个Excel工作簿
本想把论坛里的一个工作簿里的vba代码导入到自己的工作簿，搞了半天没成功(我是菜鸟)，后来想能否用别的办法把他合并过来，在网上还真早到了，合并之后删除自己不要的
工作表，代码保留下来，好高兴，转过来大家分享一下
快速合并200个Excel工作簿2009-04-06 22:06
你会不会有大量Excel工作簿需要合并到一起呢,你可以手动完成这一工作，但这个工作可能会花费你一整天的时间。要完成合并工作，最好使用宏，这样只需花几分钟便可搞定。本文所介绍的技巧将向你说明如何创建这样一个宏，看看如何使用宏来节省你的宝贵时间。(本技巧可应用于Microsoft Excel 97、Excel 2000、Excel 2002、和Excel 2003。)
这些工作簿总数约有200，保存在同一文件夹中，其中大多数工作簿中只包含一个单独的工作表，但有些工作簿包含多个工作表。这些工作簿中的工作表需要被添加到一个新
的工作簿中。
合并数量如此巨大的工作簿的最简单方法——如果经常要这样做的话——是使用宏。下面的宏会显示一个对话框，提示你选择要合并的文件。(你可以通过按下Ctrl键单击的方法选择多个工作簿。)它会使用代码在你所选的工作簿列表中循环，打开每个工作簿并
将其中的工作表移动到工作簿的末尾。
Sub Combine Workbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
= False
FilesToOpen = (FileFilter: = "MicroSoft Excel文
件(*.xls),*.xls",MultiSelect: = True,Title: = "要合并的文件")
If TypeName(FilesToOpen) = "Boolean" then
MsgBox "没有选中文件"
Goto ExitHand