问题描述：如下有三个Excel工作簿，分别为：手机银行.xlsx 、网上银行.xlsx 、信用卡.xlsx ，且每个工作簿里面均有多个工作表，现需要将这三个工作簿进行合并到一个工作簿中。

多工作簿合并.rar

（若为xls格式，则将代码中xlsx改为xls）

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
End Sub

4、点击运行或按F5键，弹出打开文件对话框，并选中需要合并的三个文件，点击【打开】，即开始合并

—————————————————————————

【版权申明】

如非注明，本站文章均为 数据小雄 原创，转载请注明出处：数据小雄博客，并附带本文链接，谢谢合作！

本文地址：http://zhangzhengxiong.com/?id=94。

—————————————————————————