VBA中Dir函数能否用逻辑运算符实现多通配符文件搜索？

VBA的Dir函数不支持直接在通配符里用逻辑或，要同时匹配含"Group"或"Proportion"的文件，又不想重复写相同逻辑，可以用以下两种高效方式：

方法1：数组存储关键词，循环遍历匹配 #

把需要的匹配规则放到数组里，一次遍历所有关键词，复用相同的文件处理逻辑：

Sub SearchMultipleKeywords()
    Dim foldername As String
    Dim filename As String
    Dim keywords As Variant
    Dim key As Variant
    
    foldername = "C:\Users\Jay.Xie\Desktop\SW Folder\Data\Data\"
    ' 按需添加或修改关键词通配符
    keywords = Array("*Group*", "*Proportion*")
    
    For Each key In keywords
        filename = Dir(foldername & key)
        ' 遍历当前关键词匹配到的所有文件
        Do While filename <> ""
            ' 这里替换成你实际的文件处理逻辑，比如写入单元格、读取数据等
            Debug.Print filename
            filename = Dir ' 获取下一个匹配文件
        Loop
    Next key
End Sub

这种方式的好处是后续要加新关键词，只需要修改数组内容，不用重复编写Dir遍历的代码，逻辑简洁易维护。

方法2：去重版搜索（避免同一文件被多次匹配） #

如果存在文件名同时包含多个关键词的情况，会被多次遍历到，此时可以用Collection来存储唯一文件名：

Sub SearchMultipleKeywordsWithUnique()
    Dim foldername As String
    Dim filename As String
    Dim keywords As Variant
    Dim key As Variant
    Dim uniqueFiles As New Collection
    
    foldername = "C:\Users\Jay.Xie\Desktop\SW Folder\Data\Data\"
    keywords = Array("*Group*", "*Proportion*")
    
    On Error Resume Next ' 忽略重复添加的错误
    For Each key In keywords
        filename = Dir(foldername & key)
        Do While filename <> ""
            ' 用文件名作为Key确保唯一性
            uniqueFiles.Add filename, Key:=filename
            filename = Dir
        Loop
    Next key
    On Error GoTo 0 ' 恢复错误捕获
    
    ' 遍历处理所有唯一文件
    Dim fileItem As Variant
    For Each fileItem In uniqueFiles
        Debug.Print fileItem
        ' 这里写你的文件处理逻辑
    Next fileItem
End Sub

说明 #

• Dir函数在调用时，第一次传入路径+通配符，后续不带参数调用会返回下一个匹配的文件，直到返回空字符串。
• 用数组管理关键词，能大幅降低代码冗余，后续扩展新的匹配规则非常方便。

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