如何遍历文件夹含子文件夹xls文件并调用指定宏

dcc224211

想实现某个文件夹含子文件夹下所有的XLS文件执行指定宏的功能,我找了个代码,但不支持子文件夹功能,麻烦高手给帮忙下,谢谢
这是代码:
Sub 循环宏()
Dim Path As String
    Dim File As String
    Dim WB As Workbook
        Path = "E:\CS\" '把目标文件夹路径赋值给变量，这里的路径可以自己改
        File = Dir(Path & "*.xls") '一次找寻路径中的excel文件，这里到底是.xlsx还是.xls，可以自己改
        Do While File <> "" '当指定路径中由文件时进行循环
            Set WB = Workbooks.Open(Path & File) '打开符合要求的文件
            Call 宏1 '调用你的另一端对每个excel文件进行具体操作的宏，也可以直接写到这个宏中
            ActiveWorkbook.Save
            File = Dir '找寻下一个excel文件
            ActiveWorkbook.Save
            ActiveWindow.Close
        Loop
End Sub

3190496160

求大佬破解密码.rar (1.42 MB, 下载次数: 7)

2022-5-26 10:08 上传

点击文件名下载附件