Excel VBA通配符匹配文件名失效问题求助

别担心，这问题其实挺常见的——你原来的代码用=判断是没法识别通配符的，VBA里得用专门的Like运算符来做模糊匹配！

为什么原来的代码无效？ #

VBA中的等号=是精确匹配，它会把"test*.xlsx"当成一个完整的字符串去对比文件名，自然没法匹配像All_Regions_01012018.xlsx这种带日期后缀的文件。

快速修改方案 #

如果只是单独判断某个文件名是否符合前缀要求，把等号换成Like就行：

If StrFile Like "All_Regions*.xlsx" Then
    MsgBox ("Confirmed")
End If

这里的*是通配符，代表任意长度的任意字符，这样就能匹配所有以All_Regions开头、以.xlsx结尾的文件了。

更高效的批量筛选方案 #

既然你有120多个文件要处理，直接用Dir函数配合通配符遍历文件夹会更方便，不用逐个判断：

Sub FilterTargetExcelFiles()
    Dim targetFolder As String
    Dim matchedFile As String
    
    ' 替换成你的文件夹路径
    targetFolder = "C:\Your\Excel\Files\Folder\"
    
    ' 获取第一个符合条件的文件（通配符直接生效）
    matchedFile = Dir(targetFolder & "All_Regions*.xlsx")
    
    ' 遍历所有匹配的文件
    Do While matchedFile <> ""
        MsgBox "找到目标文件：" & matchedFile
        ' 处理你的文件逻辑，比如打开、读取数据等
        ' Workbooks.Open targetFolder & matchedFile
        
        ' 获取下一个匹配文件
        matchedFile = Dir
    Loop
End Sub

这个方法里，Dir函数本身就支持通配符，直接返回所有符合前缀的xlsx文件，省去了额外的判断步骤，效率更高。

小提示 #

• 如果你需要匹配单个任意字符，可以用?通配符（比如All_Regions_??????.xlsx匹配6位日期后缀）
• 注意路径末尾要加反斜杠\，否则会把文件夹名和文件名连在一起导致错误

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