如何基于文件名中的EXyymmdd日期段识别并复制目标文件？

嘿，我来帮你搞定这个问题！你的代码核心问题在于**FileCopy函数根本不支持通配符**，所以你写的*_EX*yymmdd.TXT*这种匹配模式完全不会被识别。另外咱们再把日期匹配和文件遍历的逻辑理顺，下面是完整的解决方案：

问题分析 #

1. FileCopy不支持通配符：这个函数只能接收具体的文件名，不能用*或?来模糊匹配，这是你代码失效的主要原因。
2. 日期格式：你定义了mGlobalDate（yyyymmdd）和myDate1（yymmdd），这部分和你描述的源文件EXyymmdd.txt格式匹配没问题，但需要用正确的方式找到目标文件。

修改后的代码 #

Sub SOQuestion()
    Dim sourcePath As String
    Dim targetPath As String
    Dim myDate As String
    Dim sourceFilePattern As String
    Dim foundFile As String
    Dim targetFileName As String
    Dim fileCounter As Integer
    
    ' 配置源路径和目标路径（单独提取更易维护）
    sourcePath = "C:\sample\"
    targetPath = "C:\sample2\"
    
    ' 获取当日日期，匹配源文件的yymmdd格式
    myDate = Format(Date, "yymmdd")
    
    ' 定义源文件的匹配规则：任意前缀 + _EX + yymmdd + .txt
    sourceFilePattern = "*_EX" & myDate & ".txt"
    
    ' 查找第一个符合条件的文件（Dir函数支持通配符）
    foundFile = Dir(sourcePath & sourceFilePattern, vbNormal)
    
    fileCounter = 0 ' 统计找到的文件数量
    
    ' 遍历所有匹配的文件
    Do While foundFile <> ""
        fileCounter = fileCounter + 1
        
        ' 生成目标文件名：这里用固定前缀+yyyymmdd+序号（避免多个文件重名）
        ' 如果只需要复制第一个文件到固定文件名，去掉"_" & fileCounter即可
        targetFileName = "157782_EX" & Format(Date, "yyyymmdd") & "_" & fileCounter & ".txt"
        
        ' 执行复制操作（此时用的是具体文件名，不是通配符）
        FileCopy sourcePath & foundFile, targetPath & targetFileName
        
        ' 查找下一个匹配的文件
        foundFile = Dir()
    Loop
    
    ' 给用户反馈执行结果
    If fileCounter = 0 Then
        MsgBox "没有找到符合条件的文件！", vbExclamation
    Else
        MsgBox "成功复制了 " & fileCounter & " 个文件！", vbInformation
    End If
End Sub

关键改进点 #

• 用Dir函数处理通配符：Dir是VBA里专门用来查找匹配文件的函数，完美支持*和?通配符，先找到具体文件名再复制，解决了FileCopy不支持模糊匹配的问题。
• 处理多文件场景：如果当天有多个符合*_EXyymmdd.txt的文件，代码会自动遍历并复制，还加了序号避免目标文件重名。
• 清晰的路径配置：把源路径和目标路径单独定义，后续修改更方便。
• 结果反馈：用消息框提示复制结果，避免你不知道代码是否执行成功。

额外建议 #

• 如果目标路径可能不存在，可以在代码开头加判断创建路径：

  If Dir(targetPath, vbDirectory) = "" Then
      MkDir targetPath
  End If
  

• 如果需要严格区分文件名大小写，可以在比较时用LCase(foundFile)和LCase(sourceFilePattern)统一转换为小写再匹配。

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