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

ykcbf1100

搜一下遍历文件夹，论坛里很多例子。

chenjy267

就稍微整合一下代码有那么难吗
来源：https://club.excelhome.net/forum ... 866&pid=7947108

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
   
4.     Application.ScreenUpdating = True
   
5. End Sub
   
6. Sub Getfd(ByVal pth)
   
7.     Set Fso = CreateObject("scripting.filesystemobject")
   
8.     Set ff = Fso.getfolder(pth)
   
9.     For Each f In ff.Files
   
10.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
11.             With Workbooks.Open(f)
    
12.                 For Each sh In .Sheets
    
13.                     sh.DrawingObjects.Delete
    
14.                 Next sh
    
15.                 .Save
    
16.                 .Close True
    
17.             End With
    
18.         End If
    
19.     Next f
    
20.     For Each fd In ff.subfolders
    
21.         Getfd (fd)
    
22.     Next fd
    
23. End Sub

复制代码

wangyuhui7

chenjy267 发表于 2022-5-13 18:04
就稍微整合一下代码有那么难吗
来源：https://club.excelhome.net/forum.php?mod=redirect&goto=findpost& ...

感谢！！！
再请教下  word中VBA遍历目录子文件也是一个方法吗？下面代码是word中.doc文件批量转.docx, 还是想让子目录中的.doc文件一次性转换，这个怎么加遍历代码，感谢感谢！

Sub doc2docx()
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "所有 WORD97-2003 文件", "*.doc", 1
.AllowMultiSelect = True
If .Show = -1 Then
For Each oFile In .SelectedItems
With Documents.Open(oFile)
.ComputeStatistics (wdStatisticPages)
.SaveAs FileName:=oFile + "x", FileFormat:=wdFormatXMLDocument
.Close
End With
Next
End If
End With
End Sub

smiletwo

论坛有递归方法，可以提取任意级子目录。

02761752696

递归  值得学习  

APPLE123

cjc209 发表于 2022-5-13 16:25
Dim arr(), ii As Long

Sub 递归文件(文件夹路径)

请教一下老师，这里的
And Left(f.Name, 2) <> "~$"
是什么意思？~$代表什么？
谢谢！

cqcbc

APPLE123 发表于 2022-5-14 21:09
请教一下老师，这里的
And Left(f.Name, 2)  "~$"
是什么意思？~$代表什么？

~$是一个符号键盘，在电脑上都是指临时文件。它的产生只要是用户打开WORD文档后，会在生成一个以$~开头的临时文件，正常情况下关闭word后系统会自动删除这个文件。

Word会创建临时文件是因为没有足够的可用内存来保存文档及其所有编辑，并且在某些其他应用程序运行的同时仍在快速执行一些操作，则 Word 会将未被使用的部分代码或未被编辑的部分文档从内存移到磁盘中。将临时文件移到磁盘的这种做法可释放更多的内存。

临时文件是为暂时存储信息而创建的文件，这样可以释放内存以用于其他目的，或者在程序执行某些功能时充当安全网络以防止数据丢失。
   excel也如此