通过录制宏和编写VBA代码可实现Excel批量处理。首先启用开发工具并录制宏，保存至个人宏工作簿；接着在VBA编辑器中创建模块，编写代码遍历指定文件夹内所有Excel文件，并调用已录制的宏执行格式化等操作；为确保稳定性，添加错误处理机制跳过无法打开的文件并在立即窗口记录异常；最后通过参数化宏和InputBox函数提升灵活性，支持动态传参和用户交互输入路径，实现高效自动化处理。
如果您需要在多个Excel文件中重复执行相同的操作，例如格式化数据、生成报表或提取特定信息，手动处理将非常耗时。通过使用宏（Macro），您可以自动化这些任务，实现批量处理多个工作簿的目标。
本文运行环境：Dell XPS 15，Windows 11
一、启用开发工具并录制宏
录制宏是创建自动化脚本的最简单方式，适用于操作步骤固定且可重复的任务。通过录制，Excel会自动生成VBA代码，后续可修改或复用。
1、打开一个Excel文件，点击“文件”菜单，选择“选项”。
2、在“Excel选项”窗口中选择“自定义功能区”，勾选“开发工具”，然后点击“确定”。
3、切换到“开发工具”选项卡，点击“录制宏”，输入宏名称如“BatchFormat”，指定快捷键，并选择保存位置为“个人宏工作簿”以便跨文件使用。
4、执行您希望自动化的操作，例如调整列宽、设置字体、添加边框等。
5、完成后点击“停止录制”，宏即被保存。
二、编写VBA代码遍历文件夹中的所有Excel文件
为了批量处理多个文件，需要使用VBA代码自动打开指定文件夹下的所有.xlsx或.xls文件，并对每个文件执行预设操作。
1、按下 Alt + F11 打开VBA编辑器。
2、在左侧项目资源管理器中右键点击“VBAProject (Personal.xlsb)”，选择“插入” → “模块”。
3、在新模块中粘贴以下代码：
Sub ProcessMultipleFiles()
Dim FolderPath As String
Dim FileName As String
Dim wb As Workbook
FolderPath = "C:\YourFolder\" ' 修改为此处实际路径
FileName = Dir(FolderPath & "*.xlsx")
Application.ScreenUpdating = False
Do While FileName <> ""
Set wb = Workbooks.Open(FolderPath & FileName)
' 在此处调用已录制的宏或直接写入操作命令
Call BatchFormat ' 假设已录制名为BatchFormat的宏
wb.Save
wb.Close
FileName = Dir
Loop
Application.ScreenUpdating = True
End Sub
4、确保已录制的宏名称与代码中调用的名称一致，并将 FolderPath 替换为实际文件夹路径。
三、在宏中添加错误处理机制
批量处理过程中可能遇到文件被占用、格式不兼容或缺失数据等问题，加入错误处理可防止程序中断并记录异常文件。
1、在VBA模块顶部添加 On Error Resume Next 或更精确的错误捕获结构。
2、修改主循环部分如下：
Do While FileName <> ""
Set wb = Nothing
On Error Resume Next
Set wb = Workbooks.Open(FolderPath & FileName)
On Error GoTo 0
If Not wb Is Nothing Then
Call BatchFormat
wb.Save
wb.Close
Else
Debug.Print "无法打开文件：" & FileName
End If
FileName = Dir
Loop
3、异常信息可在“立即窗口”查看，便于后续排查问题文件。
四、使用参数化宏提升灵活性
通过引入变量控制操作行为，可以使同一宏适应不同处理需求，如动态选择文件夹或设定输出条件。
1、修改宏定义以接收参数，例如：
Sub BatchFormat(Optional wsName As String = "Sheet1")
Dim ws As Worksheet
On Error Resume Next
Set ws = ActiveWorkbook.Sheets(wsName)
On Error GoTo 0
If Not ws Is Nothing Then
With ws
.Columns("A:A").NumberFormat = "0"
.Rows("1:1").Font.Bold = True
End With
End If
End Sub
2、在主过程调用时传入不同参数，实现差异化处理逻辑。
3、结合InputBox函数让用户运行时输入文件夹路径，提高交互性：
FoldPath = InputBox("请输入目标文件夹路径：", "输入路径")
If FoldPath = "" Then Exit Sub
If Right(FoldPath, 1) <> "\" Then FoldPath = FoldPath & "\"
