将多个Excel文件的第一个sheet合并为一个Excel文件中的多个sheet

• 本文借鉴整理自博文 https://blog.csdn.net/ZeroBz/article/details/102856403
• 网上搜到的合并Excel的教程大多都是合并多个文件到一个sheet，本文是将多个Excel文件的第一个sheet合并为一个Excel文件中的多个sheet

1. 将要合并的Excel放在同一个文件夹下面，新建一个Excel文件

2. 打开新建的Excel，按Alt+F11进入宏计算界面

点击插入 -> 模块

3. 将以下代码粘贴进去

'功能：把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show