数据

多个工作簿合并到一个工作簿

多个工作簿合并到一个工作表之前，我们先把多个工作簿合并到一个工作簿。

1、新建一个工作薄，将其命名为合并后的名字，例如叫做：汇总工作簿。

2、打开此工作簿：“工作簿”

3、在“工作簿”下任意一个工作表标签上点击右键，选择“查看代码”。4、在打开的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().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

5、关闭该VBA编辑窗口

6、在Excel中，开发工具---宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中，选择你要合并的多个工作薄。

8、等待运行，就OK了。

9、打开名为“汇总工作簿”的Excel文件，我们就能看到多个其他工作簿以多个Sheet页的形式合并到了这一个工作簿中。