怎么能遍历所有文件夹，包括，二级三级子文件夹

wangyuhui7

以下代码增加哪些代码可以使其遍历所有文件夹，包括，二级三级子文件夹 Sub Macro1()     Application.ScreenUpdating = False     For Each f In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path).Files         If InStr(f.Name, ThisWorkbook.Name) = 0 Then             With Workbooks.Open(f)                 For Each sh In .Sheets                     sh.DrawingObjects.Delete                 Next sh                 .Save                 .Close True             End With         End If     Next f     Application.ScreenUpdating = True End Sub

凤随心动

建议搜一下递归查找所有文件

wangyuhui7

凤随心动 发表于 2022-5-13 15:16
建议搜一下递归查找所有文件

不求建议，求代码，谢谢

x-xx-xx

哈哈哈哈哈哈

cjc209

wangyuhui7 发表于 2022-5-13 15:29
不求建议，求代码，谢谢

你到底是要穷尽文件还是文件夹??

cjc209

穷尽文件就用递归方法

cjc209

Dim arr(), ii As Long

Sub 递归文件(文件夹路径)
    Dim f As Object
    For Each f In CreateObject("scripting.FileSystemObject").GetFolder(文件夹路径).Files
        If f.Name Like "*.xls*" And f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
            ii = ii + 1
            ReDim Preserve arr(1 To ii)
            arr(ii) = f.Path
        End If
    Next
    For Each f In CreateObject("scripting.FileSystemObject").GetFolder(文件夹路径).SubFolders
        递归文件 f
    Next
End Sub

wangyuhui7

cjc209 发表于 2022-5-13 16:23
穷尽文件就用递归方法

这个代码是删除EXCEL里面所有图片的，现在想的是把目录中含子文件的excel图片也删除

x-xx-xx

https://club.excelhome.net/thread-1185089-1-1.html

chenjy267

https://club.excelhome.net/forum ... &extra=page%3D1