求助：基于单元格值将带TT Plan前缀的PDF复制至多目标文件夹

问题分析 #

你原代码的核心问题集中在这几点：

• 目标路径拼接错误：直接写DestinationFolder & Cel会把文件复制成无后缀的工单号文件，而非工单子文件夹里的原PDF
• 循环逻辑失效：第一次循环就遍历完所有源文件，后续工单号无法获取源文件进行复制
• 未处理子文件夹不存在的情况：若工单号对应的子文件夹没提前创建，FileCopy会直接报错
• 变量不规范：LastRowInB未声明类型，FileExtention存在拼写错误

修正后的代码 #

Sub CopyFiles()
    Dim LastRowInB As Long
    Dim Cel As Range
    Dim Rng As Range
    Dim DestinationMainFolder As String
    Dim FileExtension As String
    Dim SourceFile As String
    Dim SourceFolder As String
    Dim TargetFolder As String
    
    ' 注意：原代码写的是C4，你描述的是C3，根据实际表格修改单元格位置
    SourceFolder = ThisWorkbook.Worksheets("TTPlanCopy").Range("C3").Value & "\"
    FileExtension = "pdf"
    ' 目标主目录
    DestinationMainFolder = "F:\UFP Design\Report Testing\Jobs\"
    
    ' 检查主目录是否存在
    If Dir(DestinationMainFolder, vbDirectory) = "" Then
        MsgBox "目标主目录不存在", vbExclamation
        Exit Sub
    End If
    
    ' 获取B列从B8开始的最后一行行号
    LastRowInB = ThisWorkbook.Worksheets("TTPlanCopy").Range("B" & Rows.Count).End(xlUp).Row
    Set Rng = ThisWorkbook.Worksheets("TTPlanCopy").Range("B8:B" & LastRowInB)
    
    ' 遍历每个工单号
    For Each Cel In Rng
        ' 跳过空单元格避免无效操作
        If Cel.Value <> "" Then
            ' 拼接工单号对应的子文件夹路径
            TargetFolder = DestinationMainFolder & Cel.Value & "\"
            
            ' 如果子文件夹不存在，自动创建
            If Dir(TargetFolder, vbDirectory) = "" Then
                MkDir TargetFolder
            End If
            
            ' 每次处理新的工单号时，重新获取源文件夹里的TT Plan前缀PDF
            SourceFile = Dir(SourceFolder & "TT Plan*." & FileExtension)
            
            ' 复制所有符合条件的文件到当前工单子文件夹
            Do While SourceFile <> ""
                FileCopy SourceFolder & SourceFile, TargetFolder & SourceFile
                SourceFile = Dir ' 获取下一个文件
            Loop
        End If
    Next Cel
    
    MsgBox "文件复制完成", vbInformation
End Sub

关键修改点 #

• 路径正确拼接：每个工单号对应独立子文件夹，复制时保留原PDF文件名，避免格式错误
• 自动创建子文件夹：无需手动提前建目录，代码会自动生成不存在的工单子文件夹
• 循环逻辑修复：每个工单号处理前重新调用Dir获取源文件，确保所有子文件夹都能复制完整的PDF
• 规范变量与错误检查：修正拼写错误，声明所有变量类型，显式检查目录存在性，跳过空单元格避免无效操作

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