面对同一文件夹下分散的多个部门人员信息表，手动打开并复制粘贴到新的工作簿中，这样的操作既繁琐又容易出错。为了帮助提高工作效率，我们为你提供一个智能解决方案，只需一键，即可轻松合并所有部门的数据。
解决方案预览：
通过简单的按钮操作，我们的系统会自动读取并自动合并所有部门的数据到一个工作簿中，无需任何手动操作。
操作指南：
一、创建合并按钮
1. 在Excel的“插入”选项卡中，选择“形状”选项。
2. 从形状菜单中选择一个你喜欢的按钮形状。
3. 在工作表上合适的位置放置按钮。
4. 使用“形状格式”选项调整按钮的外观，如颜色、线条等。
5. 为按钮添加文本，如“合并所有数据”。
二、编写并添加VBA代码
1. 在Excel的“开发工具”选项卡中，打开“Visual Basic”编辑器。
2. 在VBA编辑器的左侧，找到你的工作表，插入一个新的模块。
3. 在模块中，粘贴提供的VBA代码。
4. 保存并关闭VBA编辑器。
提供的VBA代码如下：
vba
Sub 合并数据()
Dim conn As Object
Set conn = CreateObject(“adodb.connection”)
Range(“A2:M” & Rows.Count).ClearContents ‘清除现有数据
Dim p As String, f As String
p = ThisWorkbook.Path & “” ‘获取文件路径
f = Dir(p & “.xlsx”) ‘获取同一文件夹下的所有Excel文件
Do While f “” ‘循环读取每个文件的数据并合并到当前工作簿中
conn.Open “provider=microsoft.ace.oledb.12.0;” & _
“extended properties=excel 8.0;data source=” & p & f
f = Dir
Loop
Set conn = Nothing
