珍宝鸭教你对同一个文件夹下的excel进行批量操作

1.复制新建一个excel文件
2.录制宏
3.新建一个宏，将录制宏粘入：

Sub 批量执行()
'
' 宏1 宏
'
' 快捷键: Ctrl+q
'

Curr_Path = "你的文件地址" & "\"
MyName = Dir(Curr_Path, vbNormal)
FileNames = Dir(Curr_Path, vbNormal)
Dim File_Arr() As String
File_Count = 0
Do While FileNames <> ""
    DoEvents
    If FileNames <> "." And FileNames <> ".." Then
        If (GetAttr(Curr_Path & FileNames) And vbNormal) = vbNormal Then
            File_Count = File_Count + 1
            ReDim Preserve File_Arr(File_Count)
            File_Arr(File_Count) = FileNames
        End If
    End If
    FileNames = Dir
Loop
'获取当前目录下的所有文件名存入File_Arr数组中。路径在Curr_Path变量中。
For i = 1 To UBound(File_Arr)
    Curr_Path_Now = Curr_Path & File_Arr(i)
    Workbooks.Open (Curr_Path_Now)
     '-----------------------------------------------
    '粘贴你录制的宏代码。
    '-----------------------------------------------
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    '执行完成后保存、关闭直至全部文件执行完成。
       
Next i
MsgBox "全部执行完成！！"
End Sub