Excel2013如何把几个文件合并到几个Sheet工作表
日常工作当中，会产生很多Excel文档，每当需要整理的时候又很难归类、查询。这个时候就需要把诺干个Excel文档，合并到一个Excel文档里。一个Excel文档对应一个Sheet工作表，方便查询、归类、整理。
操作方法
- 01
把需要合并的excel表格放到同一个文件夹里
- 02
新建一个“数据合并.xlsx“文档
- 03
打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：Alt+F11，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口
- 04
双击左边工程窗口的sheet1工作表（插入→模块，同样效果），在右侧的代码区粘贴如下代码： Sub CombineWorkbooks() 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
- 05
运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5）
- 06
选择所需合并的Excel文件→打开
- 07
经过一番自动化操作，被选择Excel文档已经合并到“数据合并.xlsx“文档的工作表当中。