如何使用VBA将路径数组中的文件批量复制到对应目标文件夹数组

方案说明 #

VBA 没有内置直接传入两个路径数组即可完成批量复制的原生方法，若你希望避免VBA层面的循环复制开销，可以调用系统命令实现；如果需要更高的可控性，轻量循环的方案更稳定，完全可以满足需求。 #

方案1：循环实现（推荐） #

该方案逻辑简单、兼容性好，无需依赖系统环境，适合绝大多数场景：

自定义批量复制函数 #

' 入参说明：arrSource 存储源文件完整路径的数组；arrTarget 存储对应目标文件夹路径的数组
Sub BatchCopyFiles(arrSource As Variant, arrTarget As Variant)
    Dim i As Long
    For i = LBound(arrSource) To UBound(arrSource)
        ' 自动补全目标路径末尾的反斜杠，避免路径识别错误
        If Right(arrTarget(i), 1) <> "\" Then arrTarget(i) = arrTarget(i) & "\"
        ' 拼接目标文件完整路径，执行复制
        FileCopy arrSource(i), arrTarget(i) & Mid(arrSource(i), InStrRev(arrSource(i), "\") + 1)
    Next i
End Sub

适配你现有代码的调用示例 #

Sub Copy()
    Dim arrSource As Variant
    Dim arrTarget As Variant
    Dim i As Long
    Dim fileCount As Long
    
    ' 原有的透视表筛选逻辑
    ActiveSheet.PivotTables("pt_filepath").PivotFields("Custom.99").PivotFilters. _
         Add2 Type:=xlDateBetween, Value1:="01/09/2021", Value2:="30/09/2021"
         
    ActiveSheet.PivotTables("pt_filepath").PivotSelect "'complete path'[All]", _
         xlLabelOnly, True
    
    ' 将选中的源路径转换为数组
    arrSource = Selection.Value
    fileCount = UBound(arrSource)
    
    ' 构造目标路径数组，示例为所有文件统一复制到C:\temp\，你可以替换为自己的目标数组逻辑
    ReDim arrTarget(1 To fileCount, 1 To 1)
    For i = 1 To fileCount
        arrTarget(i, 1) = "C:\temp\"
    Next i
    
    ' 调用批量复制函数
    Call BatchCopyFiles(arrSource, arrTarget)
End Sub

方案2：无VBA层面循环复制（调用系统命令） #

该方案将复制操作交给系统层面执行，适合大文件、大批量复制场景，执行效率更高：

Sub BatchCopyNoLoop(arrSource As Variant, arrTarget As Variant)
    Dim cmdStr As String
    Dim i As Long
    cmdStr = ""
    
    ' 拼接CMD复制命令
    For i = LBound(arrSource) To UBound(arrSource)
        If Right(arrTarget(i), 1) <> "\" Then arrTarget(i) = arrTarget(i) & "\"
        ' 路径含空格时自动加引号包裹，/y参数表示直接覆盖已有文件无需提示
        cmdStr = cmdStr & "copy /y """ & arrSource(i) & """ """ & arrTarget(i) & """ && "
    Next i
    
    ' 移除末尾多余的连接符
    cmdStr = Left(cmdStr, Len(cmdStr) - 4)
    ' 后台执行CMD命令，不弹出窗口
    Shell "cmd /c " & cmdStr, vbHide
End Sub

注：该方案仅实际文件复制操作无VBA循环，拼接命令的过程仍需遍历数组，这一步的开销可以忽略不计。

原有代码问题修正 #

你原有代码中FileCopy Cell, "C:\temp\"的写法部分VBA版本会报错，因为FileCopy的第二个参数需要传入完整的目标文件路径，仅传入文件夹路径会识别失败，上述方案中已经自动处理了文件名拼接的逻辑。

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