Excel合并工作簿的两种方法—excel技巧教程|叨客学习资料网

　　平时作业，可能会因不同的文件创立多个excel作业簿，有些作业簿只包括一个单独的作业表，有些作业簿有多个作业表。时刻久了，就想将有用的作业簿兼并到一起，不至于每次都来来回回的打开多个作业表。

　　怎么完成兼并多个作业簿呢?

　　有两种办法。第一，运用指令完成兼并多个作业簿。第二，运用宏代码完成兼并多个作业簿。

　　运用指令兼并作业簿的办法是这样的：

　　打开悉数作业簿，右键点击作业名，呈现\"移动或复制作业表\"对话框，在“作业簿”下拉列表选择目标作业簿，在“下列选定作业表之前”选择相应的作业表，能够对作业簿进行移动或许复制，如果是复制，能够勾选“建立副本”。

　　运用宏代码完成兼并多个作业簿的办法：

　　将下面代码复制到代码页面，然后运转宏就能够了。

　　Sub 兼并作业薄()

　　Dim FilesToOpen

　　Dim x As Integer

　　On Error GoTo ErrHandler

　　Application.ScreenUpdating = False

　　FilesToOpen = Application.GetOpenFilename _

　　(FileFilter:=\"MicroSoft Excel文件(*.xls), *.xls\", _

　　MultiSelect:=True, Title:=\"要兼并的文件\")

　　If TypeName(FilesToOpen) = \"Boolean\" Then

　　MsgBox \"没有选中文件\"

　　GoTo ExitHandler

　　End If

　　x = 1

　　While x <= UBound(FilesToOpen)

　　Workbooks.Open Filename:=FilesToOpen(x)

　　Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

　　x = x + 1

　　Wend

　　ExitHandler:

　　Application.ScreenUpdating = True

　　Exit Sub

　　ErrHandler:

　　MsgBox Err.Description

　　Resume ExitHandler

　　End Sub