Excel如何使用宏批量处理多个文件_Excel宏批量处理文件教程

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

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

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

FoldPath = InputBox("请输入目标文件夹路径：", "输入路径")
If FoldPath = "" Then Exit Sub
If Right(FoldPath, 1) <> "\" Then FoldPath = FoldPath & "\"