excel 合并工作表的方法，用VBA代码实现合并工作表

下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。　　现在的问题，如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。　　一般的做法，通过“移动或复制”实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。　　合并工作表操作步骤：　　新建一个excel文件，按ALT+F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。Sub 合并工作簿()     Dim FilesToOpen, wb As Workbook, sht As Worksheet     Dim x As Integer    On Error GoTo ErrHandler     Application.ScreenUpdating = False    FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _       MultiSelect:=True, Title:="Files to Merge")