如何使用VBA实现按列中文件夹名称匹配复制至目标文件夹？

下面是可以实现需求的VBA代码，核心借助FileSystemObject处理文件夹复制操作，同时读取Excel指定列的文件夹名称进行匹配：

Sub CopyMatchingFolders()
    Dim ws As Worksheet
    Dim sourceFolderPath As String, targetFolderPath As String
    Dim folderNameRange As Range, cell As Range
    Dim fso As Object
    Dim sourceSubFolderPath As String, targetSubFolderPath As String
    
    ' 按需修改以下配置参数
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 存放文件夹名称的工作表
    sourceFolderPath = "C:\YourSourceFolder\" ' 源文件夹路径，结尾必须加\
    targetFolderPath = "C:\YourTargetFolder\" ' 目标文件夹路径，结尾必须加\
    Set folderNameRange = ws.Range("A2:A100") ' 文件夹名称所在的列范围，自行调整起止
    
    ' 创建文件系统对象实例
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 校验源文件夹是否存在
    If Not fso.FolderExists(sourceFolderPath) Then
        MsgBox "源文件夹不存在，请检查路径！", vbExclamation
        Exit Sub
    End If
    
    ' 目标文件夹不存在则自动创建
    If Not fso.FolderExists(targetFolderPath) Then
        fso.CreateFolder targetFolderPath
    End If
    
    ' 遍历Excel列中的每个文件夹名称
    For Each cell In folderNameRange
        If Trim(cell.Value) <> "" Then
            sourceSubFolderPath = sourceFolderPath & cell.Value
            
            ' 检查源文件夹中是否存在匹配的子文件夹
            If fso.FolderExists(sourceSubFolderPath) Then
                targetSubFolderPath = targetFolderPath & cell.Value
                
                ' 若目标位置已有同名文件夹，先删除（可根据需求注释此行）
                If fso.FolderExists(targetSubFolderPath) Then
                    fso.DeleteFolder targetSubFolderPath, True ' True表示强制删除含内容的文件夹
                End If
                
                ' 复制文件夹（包含所有子文件夹和文件）
                fso.CopyFolder sourceSubFolderPath, targetSubFolderPath
                Debug.Print "已复制: " & cell.Value
            Else
                Debug.Print "未找到匹配文件夹: " & cell.Value
            End If
        End If
    Next cell
    
    MsgBox "文件夹复制操作完成！", vbInformation
    Set fso = Nothing
End Sub

使用说明 #

• 调整配置：根据实际情况修改代码里的工作表名称、源/目标文件夹路径、文件夹名称所在的列范围。
• 运行方式：打开目标Excel文件，按Alt+F11打开VBA编辑器，插入模块后粘贴代码，运行CopyMatchingFolders宏即可。
• 注意事项：
  • 路径结尾必须加反斜杠\，避免路径拼接错误。
  • 若不想覆盖目标文件夹的同名内容，可注释掉删除文件夹的代码块。
  • 确保对源文件夹有读取权限，对目标文件夹有写入权限。

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