Windows 10下Excel VBA能否同时执行多个文件复制进程？

VBA本身是单线程模型，没法直接在VBA内部启动多线程复制，但可以通过调用系统独立进程的方式实现并行复制，就像资源管理器那样同时跑多个复制任务。下面是几种可行的方案：

方案1：使用Shell函数启动robocopy进程 #

robocopy是Windows自带的高效文件复制工具，每个Shell调用都会启动一个独立的系统进程，天然支持并行。

示例代码：

Sub ParallelCopyWithRobocopy()
    Dim sourcePath As String
    Dim targetFolders As Variant
    Dim i As Integer
    Dim robocopyCmd As String
    
    sourcePath = "C:\Your\Source\FileOrFolder" ' 你的源路径（文件或文件夹）
    targetFolders = Array("C:\Target1", "C:\Target2", "C:\Target3") ' 多个目标文件夹
    
    For i = LBound(targetFolders) To UBound(targetFolders)
        ' 构造robocopy命令：/E复制子文件夹，/J用无缓冲I/O（适合大文件），/NFL不记录文件列表，/NDL不记录目录列表
        robocopyCmd = "robocopy """ & sourcePath & """ """ & targetFolders(i) & """ /E /J /NFL /NDL"
        ' vbHide表示后台运行，vbNormalFocus会弹出命令行窗口
        Shell robocopyCmd, vbHide
    Next i
End Sub

• 优点：系统自带无需额外工具，复制效率高，支持断点续传、大文件优化。
• 注意：如果复制单个文件，需在命令里指定文件名，比如robocopy "C:\Source" "C:\Target" filename.ext。

方案2：使用WScript.Shell启动xcopy #

用WScript.Shell的Run方法，通过设置参数让VBA不等待当前进程结束就启动下一个，实现并行。

示例代码：

Sub ParallelCopyWithXcopy()
    Dim sourcePath As String
    Dim targetFolders As Variant
    Dim i As Integer
    Dim xcopyCmd As String
    Dim wsh As Object
    
    Set wsh = CreateObject("WScript.Shell")
    sourcePath = "C:\Your\Source\File.txt"
    targetFolders = Array("C:\Target1", "C:\Target2")
    
    For i = LBound(targetFolders) To UBound(targetFolders)
        xcopyCmd = "xcopy """ & sourcePath & """ """ & targetFolders(i) & """ /Y /Q" ' /Y覆盖不提示，/Q静默模式
        ' 0表示后台运行，第三个参数False表示不等待进程完成
        wsh.Run xcopyCmd, 0, False
    Next i
    
    Set wsh = Nothing
End Sub

注意事项 #

• 权限：确保VBA运行时有足够的读写权限访问源和目标文件夹。
• 文件冲突：如果多个任务复制同一文件到同一目标，提前用参数设置覆盖逻辑（比如/Y）。
• 进程管理：如果需要等待所有复制完成再执行后续代码，可以记录进程ID，通过Windows API检查进程状态（实现相对复杂）。

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