背景了解：有个同事问我：现在他要处理一千多个文件，每个excel文件都有3个sheet页签，想把所有的excel文件的第二个sheet页签复制一份放到一个新的excel文件中。如果是手动去操作一个个文件的复制，也没什么不可，就是有点费手。像这种大批量的对文件做相同的操作，肯定会有更简便的方法替代，这样我们就可以把更多的精力放在具体的业务处理上了。

提前了解：

1.VB宏是什么？

VB（Visual Basic）宏是一种在 Microsoft Office 应用程序（如 Excel、Word、Access 等）中使用的自动化脚本。这些宏允许用户编写 VBA（Visual Basic for Applications）代码来自动化任务，提高工作效率。VBA 是 Visual Basic 的一个子集，专门用于 Office 应用程序的自动化。

2.VB宏的特点

• 自动化任务：宏可以自动执行一系列操作，如数据处理、格式化、文件操作等。
• 用户界面：宏可以通过按钮、菜单项或其他用户界面元素触发。
• 事件驱动：宏可以响应用户操作或特定事件（如工作表更改、工作簿打开等）。
• 丰富的库支持：VBA 提供了大量的内置对象和方法，可以方便地操作 Office 应用程序的各种功能。

3.环境准备

需要先有下图工具：版本不限

4.操作步骤

4.1新建空文件

创建一个新的空的excel文件，用来存储最终结果的文件，记住该文件的路径，并用上述excel工具打开文件：如下为空文件

4.2创建宏

找到开发工具：

然后再找到VB编辑器：

进入如下VB编辑器页面，只要能进入编辑器页面就可以，有部分软件的进入方式可能不同：

然后插入一个模块：

在下方空白弹窗出加入以下代码：

Sub CopySheetsFromFolder()Dim srcFolder As StringDim dstWorkbook As WorkbookDim srcWorkbook As WorkbookDim fileName As StringDim ws As Worksheet' 指定源文件夹路径，重点：需要修改srcFolder = "C:\Users\123456\Desktop\"' 请替换为实际的文件夹路径' 打开目标工作簿，重点：一个新的空的xlsx文件的全路径名称On Error Resume NextSet dstWorkbook = Workbooks.Open("C:\Users\123456\Desktop\ceshi.xlsx")On Error GoTo 0If dstWorkbook Is Nothing ThenMsgBox "无法打开目标工作簿 ceshi.xlsx", vbCriticalExit SubEnd If' 获取文件夹中的第一个 .xlsx 文件fileName = Dir(srcFolder & "*.xlsx")' 遍历文件夹中的所有 .xlsx 文件Do While fileName <> ""' 打开源文件On Error Resume NextSet srcWorkbook = Workbooks.Open(srcFolder & fileName)On Error GoTo 0If srcWorkbook Is Nothing ThenMsgBox "无法打开文件 " & srcFolder & fileName, vbCriticalGoTo NextFileEnd If' 检查源文件是否有至少2个工作表：重点：想要合并的sheet页签为第几个sheetIf srcWorkbook.Sheets.Count >= 2 Then' 获取第二个工作表，重点：sheet（23）为sheet页签的名称Set ws = srcWorkbook.Sheets(23)' 将第二个工作表复制到目标工作簿的最后一个工作表之后ws.Copy After:=dstWorkbook.Sheets(dstWorkbook.Sheets.Count)ElseMsgBox "文件 " & fileName & " 不包含第二个工作表", vbExclamationEnd If' 关闭源文件srcWorkbook.Close SaveChanges:=FalseNextFile:' 获取下一个文件fileName = DirLoop' 提示完成MsgBox "所有文件的第二个工作表已成功复制到 ceshi.xlsx", vbInformation
End Sub

4.3运行宏

然后运行代码：

运行完后，查看刚刚新建的文件即可得到结果。