Excel VBA正则匹配含list文件名，排除specialist类误匹配

你要处理10万+办公文件，用Excel VBA正则匹配含"list"的文件名，但原来的\b(?!specialist)\w*list\w*\b因为文件名没有清晰的词边界，没法排除带数字、下划线前缀的specialist变体（比如1Specialist、2_specialist、Xspecialists），这个问题我帮你梳理下有效的解决思路，结合你提到的两种方法，同时使用能达到最佳效果：

方法1：修正正则测试的目标对象 #

原来的代码里，你用objRegExp.test(objFile)直接把文件对象传给了正则测试方法，这其实会导致测试逻辑偏离我们要匹配的文件名文本。咱们只需要把测试对象改成objFile.Name，确保正则只作用在文件名上：

If objRegExp.test(objFile.Name) Then

这个小修正能避免很多潜在的匹配干扰，是后续正则生效的基础。

方法2：优化正则表达式，精准排除所有specialist变体 #

把原来的正则模式替换成正向否定预查的写法，不管specialist前面有什么前缀、后面有没有复数形式s，只要文件名里出现这个子串就会被排除，同时确保文件名包含list：

objRegExp.Pattern = "(^(?!.*specialist).*list.*$)"

这个正则的逻辑拆解：

• ^(?!.*specialist)：断言整个文件名从开头到结尾，不存在任何位置包含specialist（因为你设置了IgnoreCase=True，所以大小写都能匹配）
• .*list.*：确保文件名里包含list子串
• $：匹配到文件名结尾，保证整个字符串都符合规则

修改后的完整递归子程序 #

把两个修改结合起来，最终的代码如下：

Sub RecursiveFolderPATTERN(objFolder As Scripting.Folder, _IncludeSubfolders As Boolean)
    'Declare the variables
    Dim objFile As Object
    Dim objSubFolder As Scripting.Folder
    Dim NextRow As Long
    Dim objRegExp As Object
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = "(^(?!.*specialist).*list.*$)"
    objRegExp.IgnoreCase = True
    
    'Find the next available row
    NextRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    'Loop through each file in the folder
    For Each objFile In objFolder.Files
        If objRegExp.test(objFile.Name) Then
            Cells(NextRow, "A").Value = objFile.Name
            Cells(NextRow, "E").Value = objFile.Size
            Cells(NextRow, "F").Value = objFile.Type
            Cells(NextRow, "G").Value = objFile.DateCreated
            Cells(NextRow, "H").Value = objFile.DateLastAccessed
            Cells(NextRow, "I").Value = objFile.DateLastModified
            Cells(NextRow, "J").Value = objFile.Path
            NextRow = NextRow + 1
        End If
    Next objFile
    
    'Loop through files in the subfolders
    If IncludeSubfolders Then
        For Each objSubFolder In objFolder.Subfolders
            Call RecursiveFolderPATTERN(objSubFolder, True)
        Next objSubFolder
    End If
End Sub

两种方法结合的优势 #

• 方法1保证了正则只作用在文件名文本上，避免了文件对象其他属性的干扰；
• 方法2从正则层面精准过滤所有包含specialist的变体，彻底解决了词边界失效的问题；
  两者搭配使用，既保证了匹配的准确性，又提升了代码的健壮性，非常适合处理你这10万+文件的场景。

内容的提问来源于stack exchange，提问作者user8751653