VBA批量操作excel文件

Sub key()
    Dim Path As String
    Dim File As String
    Dim WB As Workbook
        Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭时屏幕不会晃瞎你的狗眼
        Path = "c:\temp\" '把目标文件夹路径赋值给变量，这里的路径可以自己改
        File = Dir(Path & "*.xlsx") '一次找寻路径中的excel文件，这里到底是.xlsx还是.xls，可以自己改
        Do While File <> "" '当指定路径中由文件时进行循环
            Set WB = Workbooks.Open(Path & File) '打开符合要求的文件
            Call 你的具体操作宏 '调用你的另一端对每个excel文件进行具体操作的宏，也可以直接写到这个宏中
            File = Dir '找寻下一个excel文件
        Loop
        Application.ScreenUpdating = True '解冻屏幕，让屏幕恢复正常刷新。和上面的那一句成对使用
End Sub