excel shell合成_合并Excel工作簿-合并到不同工作表和同一个工作表

在职场偶尔会有将多个Excel文件合并到同一个Excel文件的需求。这个需求可能又分两种，一种是合并到同一个Excel文件中的同一个工作表中，另一种是合并到同一个Excel文件中的不同工作表。

以下Excel VBA代码就可实现 以上这些功能： 让用户选择一个指定的文件夹，程序可将指定文件夹下面所有Excel文件合并到一个汇总的Excel文件中

实现效果(为简单，在选择的文件夹下只放了2个工作簿)：

原表1：

原表2：

合并后效果1：

合并后效果2：

作者1：Excel小子-Office中国

Sub PickFolder()

'** 使用Shell.Application对象来选择文件夹

Dim objShell

Dim objFolder

Dim strPath As String

Dim ph As String

Dim wk As Workbook, wb As Workbook

Dim sh As Worksheet

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set objShell = CreateObject("Shell