VBA合并多个Excel工作簿为一个Excel

最新推荐文章于 2025-05-24 07:30:52 发布

原创最新推荐文章于 2025-05-24 07:30:52 发布 · 945 阅读

1 ·

CC 4.0 BY-SA版权

Excel 专栏收录该内容

3 篇文章

订阅专栏

使用VBA编程，可以轻松将多个Excel工作簿整合到一个文件中。只需运行特定的VBA代码，按照提示选择需要合并的Excel文件，即可实现一键合并。

打开编辑器参考这个篇文章
VBA拆分一个excel文件为多个excel文件

合并代码如下

Sub 多表多文件合并为多表一文件()

Dim FileArray

Dim X As Integer

Application.ScreenUpdating = False

FileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileArray)

Workbooks.Open Filename:=FileArray(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