合并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

参考文献

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容