合并excel多个工作簿为一个工作簿中的多个表

代码

Sub merge_workbooks()

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

参考文献

• 网络文章1