excel 宏合并多个工作簿

上一篇博客讲的是合并一个工作簿的所有工作表，
我们再来看看合并两个工作簿。来看如下两个工作簿，一个是初一年级，一个是初二年级，把它合并到初一年级工作簿中

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程序界面

然后运行程序，选择需要合并的工作簿

运行结果如下：

最后同样删除宏 代码，并保存