求助求助：各位大佬，请问一下如何根据文档内容修改文件名呢

具体情况：电脑里有很多文档，其中一些文档内有特殊标记，例如包含某一地名，那我需要将此文档命名为“地名-文件名”的格式。据此，我分别向文心一言和讯飞心火提问如下：
“如何批量找出含安徽或者安徽或者安徽或者山东或者山东或者山东或者陕西或者陕西或者陕西的word文档，如果文档内安徽或者安徽或者安徽，则将安徽-加到文档名的开头，如果文档内含有山东或者山东或者山东，则将山东-加到文档名的开头，，如果文档内含有含西或者陕西或者陕西，则将陕西-加到文档名的开头，需要遍历所有子文件夹，用vba实现”，两者所答均不能实现目的，请各位大佬指导一下

图一为文心一言，图二为讯飞心火

你这个只是遍历单层文件（一级），无法遍历多层级。如果想遍历所有层级，参考如下。有没有人共享自定义函数___类___等的? 第12楼的函数，返回的就是所有层级的文件

'遍历文件
Sub LookUpAllFiles(fld As Folder)
Dim fs As New FileSystemObject
Dim fil As file, outFld As Folder '定义一个文件夹和文件变量
Set subfiles = fld.Files() '获取文件夹下所有文件
Set SubFolders = fld.SubFolders '获取文件夹下所有文件夹
For Each fil In fld.Files '遍历文件
'Debug.Print fil
If fs.GetExtensionName(fil) = "doc" Or fs.GetExtensionName(fil) = "docx" Then
If InStr(fil, "山东") Or InStr(fil, "山东") Or InStr(fil, "山东 ") Then
Name fil As Mid(fil, 1, InStrRev(fil, "\")) & "山东-" & Mid(fil, InStrRev(fil, "\") + 1, Len(fil) - InStrRev(fil, "\"))
ElseIf InStr(fil, "安徽") Or InStr(fil, "安徽") Or InStr(fil, "安徽 ") Then
Name fil As Mid(fil, 1, InStrRev(fil, "\")) & "安徽-" & Mid(fil, InStrRev(fil, "\") + 1, Len(fil) - InStrRev(fil, "\"))
ElseIf InStr(fil, "陕西") Or InStr(fil, "陕西") Or InStr(fil, "陕西 ") Then
Name fil As Mid(fil, 1, InStrRev(fil, "\")) & "陕西-" & Mid(fil, InStrRev(fil, "\") + 1, Len(fil) - InStrRev(fil, "\"))
Else
End If
End If
Next
For Each outFld In SubFolders '遍历文件夹
LookUpAllFiles outFld '调用函数自身
Next
End Sub
Sub tt()
Dim fso As New FileSystemObject
Dim fld As Folder, sr As String
On Error Resume Next
sr = "C:\Users\Administrator\Desktop\新建文件夹\"
If fso.FolderExists(sr) Then
Set fld = fso.GetFolder(sr)
LookUpAllFiles fld
Else
Debug.Print "文件不存在"
End If
Debug.Print "Finish!"
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

4回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六