乔伊遇到了一个问题，将许多工作簿合并在一起。大多数工作簿（其中约200个，都在一个文件夹中）每个都包含一个工作表，但有些包含更多。每个工作簿形成的工作表都需要添加到单个工作簿中。

进行这种规模的合并的最简单方法（特别是如果您必须经常进行合并）是使用宏。下面的宏显示一个对话框，要求您选择要合并的文件。 （您可以在单击每个工作簿时按住Ctrl键来选择多个工作簿。）它循环遍历您选择的列表，打开每个工作簿并将其所有工作表随代码一起移到工作簿的末尾。

Sub CombineWorkbooks()

Dim FilesToOpen     Dim x As Integer     Dim Outwbk As Workbook

Set Outwbk = ActiveWorkbook

On Error GoTo ErrHandler     Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (.xls), .xls", _       MultiSelect:=True, Title:="Files to Merge")



If TypeName(FilesToOpen) = "Boolean" Then         MsgBox "No Files were selected"

GoTo ExitHandler     End If

x = 1     While x <= UBound(FilesToOpen)

Workbooks.Open Filename:=FilesToOpen(x)

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

x = x + 1     Wend

ExitHandler:

Application.ScreenUpdating = True     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

在将工作表添加到工作簿末尾的过程中，当检测到重复的工作表名称时，Excel将自动附加（2），（3）等。本书中引用其他表格的所有公式也将更新，以反映新名称。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2409）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

合并许多工作簿。