多个独立的excel文件合并到一个excel文件的多个工作表Sheet中

上篇说到将excel中的一个工作表按照某列拆分成多个sheet工作表，那么如何将多个独立的excel文件合并到一个excel文件的多个工作表Sheet中呢，接下来就利用VBA工具来解决这个问题。
合并前:

合并后：

第一步：新建一个excel文件，点击“开发工具—>查看代码”命令，如图所示：

第二步：右击“WPS表格对象—>插入—>模块”命令，插入代码后点击“运行”即可。或者点击“运行—>运行子过程/用户窗体”菜单。如图所示：

具体代码如下：

Sub Books2Sheets()
    '定义对话框变量