如何在VBA中使用通配符打开指定国家代码的Excel文件

你遇到的核心问题是Dir()函数使用时的路径拼接错误，导致返回空字符串。下面直接给你可运行的代码，再讲清楚关键注意点：

可直接复用的代码示例 #

Sub ProcessCountryFiles(targetPath As String, countryCode As String)
    Dim fileName As String
    Dim fullFilePath As String
    
    ' 关键：确保路径末尾带反斜杠，否则拼接出来的路径会出错
    If Right(targetPath, 1) <> "\" Then
        targetPath = targetPath & "\"
    End If
    
    ' 按文件名规则拼接通配符：国家代码+横杠+任意字符+.xlsx
    fileName = Dir(targetPath & countryCode & "-*.xlsx")
    
    ' 循环处理所有匹配的文件
    Do While fileName <> ""
        fullFilePath = targetPath & fileName
        
        ' 打开工作簿并执行操作
        With Workbooks.Open(fullFilePath)
            ' --------------------------
            ' 这里替换成你需要执行的操作
            ' 比如：Sheets(1).Range("A1").Value = "处理完成"
            ' --------------------------
            
            ' 保存后关闭
            .Save
            .Close SaveChanges:=False ' 已经Save过，这里设为False避免重复提示
        End With
        
        ' 获取下一个匹配文件（必须不带参数调用Dir）
        fileName = Dir
    Loop
End Sub

必须注意的几个点 #

1. 路径末尾的反斜杠：这是最容易踩的坑！如果你的targetPath是C:\TestFiles，没加反斜杠的话，拼接后会变成C:\TestFilesGB-*.xlsx，Dir肯定找不到文件。代码里加了判断自动补全反斜杠，避免这个问题。
2. 通配符的正确写法：你的文件名是GB-YYYY-M-D.xlsx，所以通配符要写成countryCode & "-*.xlsx"，必须带那个-，不然会匹配所有以国家代码开头（不管后面有没有横杠）的文件，甚至可能匹配错。
3. Dir的循环逻辑：第一次调用Dir要传入完整的通配符路径，之后每次调用Dir（不带参数）会自动返回下一个匹配的文件，直到返回空字符串，代表所有文件处理完。

排查Dir返回空的额外步骤 #

如果运行后还是没找到文件，按下面检查：

• 确认targetPath是真实存在的文件夹路径，比如复制路径到资源管理器里能打开。
• 确认countryCode和文件名开头的代码完全一致（Windows文件名不区分大小写，比如传gb也能匹配GB-xxx.xlsx，但最好统一大写避免意外）。
• 手动打开目标文件夹，确认确实有符合[两位代码]-*.xlsx格式的文件存在。

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