VBA嵌套循环仅执行一次问题排查及文件匹配复制需求咨询

你的代码核心问题是：第一次遍历数组元素时，Do While循环会把Dir()的所有文件遍历完毕，直到srcPath变为空字符串。后续循环里srcPath保持为空，自然无法再进入文件遍历逻辑，所以只能匹配数组第一个元素。

要解决这个问题，每次遍历数组中的文件名前，都需要重新初始化Dir的搜索路径，让它重新开始枚举目标文件夹的文件。结合你最终的文件复制需求，完整实现代码如下：

Sub MatchAndCopyFiles()
    Dim myArray As Variant
    Dim currentFile As String
    Dim srcPath As String
    Dim compareFile As String
    Dim sourceFolder As String
    Dim targetFolder As String
    
    ' 定义源文件夹和目标文件夹路径，按需修改
    sourceFolder = "M:\UPLOAD\Feedback\"
    targetFolder = "C:\Your\Target\Directory\" ' 替换成你的目标文件夹路径
    
    ' 替换成你读取Excel列表文件名的逻辑，比如从A列读取
    ' myArray = Range("A2:A10").Value ' 假设文件名存放在A2到A10单元格
    
    For Each currentFile In myArray
        currentFile = CStr(currentFile)
        ' 每次循环都重置Dir搜索，重新枚举文件夹内的xlsx文件
        srcPath = Dir(sourceFolder & "*.xlsx")
        
        Do While srcPath <> ""
            compareFile = srcPath
            If currentFile = compareFile Then
                MsgBox "找到匹配文件：" & currentFile
                ' 复制匹配的文件到目标文件夹
                FileCopy sourceFolder & compareFile, targetFolder & compareFile
                Exit Do ' 找到匹配后直接退出当前文件遍历，避免无效检查
            End If
            srcPath = Dir()
        Loop
    Next currentFile
    
    MsgBox "文件匹配与复制完成！"
End Sub

• 每次遍历数组元素前，重新执行srcPath = Dir(sourceFolder & "*.xlsx")，重置文件枚举的起始位置，确保每个数组元素都能遍历整个文件夹的文件。
• 匹配成功后用Exit Do跳出当前文件循环，避免无效的后续检查，提升运行效率。
• 加入FileCopy语句直接实现文件复制，若需要自动创建目标文件夹，可添加如下判断逻辑：

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

• 把文件夹路径抽成变量，方便后续修改维护。

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