也就是多个工作簿合并到一个工作簿，不计算汇总，（会改文件名）：
新建一个工作薄，将其命名为合并后的名字，例如叫做：汇总工作簿。
打开此工作簿：“汇总工作簿”，在任一个工作表标签上点击右键，选择“查看代码”。
在打开的VBA编辑窗口中粘贴以下代码：
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
关闭该VBA编辑窗口。在Excel中，开发工具---宏,选“工作薄间工作表合并”,然后“执行”。
参看：https://www.jianshu.com/p/c8ae6852f1da/