Excel2013教程：多个Excel文件合并到一个Sheet工作表
---
在日常工作中，我们经常会处理大量的Excel文档，而当需要整理这些文档时，常常面临难以归类和查询的问题。为了更便于管理和整理数据，我们可以将多个Excel文档合并到一个Excel文件中，每个文档对应一个Sheet工作表，从而实现方便的查询、分类和整理。
将需要合并的Excel表格放置在同一个文件夹内
首先，将需要合并的所有Excel文件放置在同一个文件夹中，方便后续操作。
创建新的Excel文档并命名为“数据合并.xlsx”
接下来，在Excel中创建一个新的工作簿，并将其命名为“数据合并.xlsx”，这将是我们最终合并数据的目标文件。
使用VBA代码合并Excel文档
1. 打开“数据合并.xlsx”文档，在“Sheet1”工作表的位置右键并选择“查看代码”（快捷键：Alt F11）进入Microsoft Visual Basic for Applications窗口。
2. 在Visual Basic for Applications窗口中，双击左侧的工程窗口中的Sheet1工作表，在右侧的代码区粘贴以下代码：
```vba
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
False
FilesToOpen _
(FileFilter:"MicroSoft Excel文件(*.xls),*.xls", _
MultiSelect:True, Title:"要合并的文件")
If TypeName(FilesToOpen) "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If
x 1
While x < UBound(FilesToOpen)
Filename:FilesToOpen(x)
Sheets().Move after: _
()
x x 1
Wend
ExitHandler:
True
Exit Sub
ErrHandler:
MsgBox
Resume ExitHandler
End Sub
```
3. 运行上述代码，选择需要合并的Excel文件并打开。
4. 经过一番自动化操作，选定的Excel文档已经成功合并到“数据合并.xlsx”文档的工作表中。
通过以上步骤，我们成功将多个Excel文件合并到了一个Excel文档的不同工作表中，实现了数据的集中管理和整理。这种方法极大地提高了工作效率，让数据处理变得更加便捷和高效。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
