求一个VBA，一个文件夹中多个EXCEL工作簿合并成一个工作表

Question

如题所述

Answer 1

1、将需要合并的EXCEL文件与目的EXCEL文件放在一个文件夹下。

2、 打开HB.xlsx，将“开发工具”菜单加载到EXCEL菜单下。

3、首先右键点击菜单空白处，选择“自定义功能区”，在弹出的对话框里选择主选项卡。然后勾选“开发工具”。如图所示。

4、 制作导入键。点击“开发工具”菜单，选择“插入”--“Activex”控件下的命令按键。在工作表中画一个命令按钮。

5、 单击“开发工具”下的“设计模式”，再双击刚刚创建的命令按钮“CommandButton1”,进入代码编辑框。

6、  将以下代码全部复制到代码框中。

7、  将HB文件保存成启用宏的工作簿。关闭当前代码框，回到EXCEL界面。选择“文件”--“另存为”--“保存类型”下选择“启用宏的工作簿”，OK。

8、打开HB.xlsm,单击按钮。则几个需要合并的EXCEL文件中的工作表A,B,C合并到了HB.xlsm这个文件中。