Excel VBA无法按文件名搜索复制PDF文件该如何排查解决？

核心错误是路径拼接遗漏了末尾的反斜杠：你定义的strOldPath值为C:\Users\SOURCE，和文件名拼接后会生成错误路径C:\Users\SOURCEtest1.pdf，系统找不到对应文件，因此Dir判断直接返回空值，不会触发复制逻辑。

另外还有几个潜在风险也会导致复制失败：

• 变量声明不规范：strFileToCopy未显式声明为String类型，默认会被识别为Variant类型，极端情况可能出现类型转换异常
• 未提前判断目标文件夹是否存在，如果目标文件夹不存在，复制操作会直接失效
• 现有代码仅处理A1单元格，无法满足你批量处理10个文件名的需求

基础修复版本（仅修复当前A1单元格复制失败问题） #

Sub copyFile()
    Dim objFSO As Object
    Dim strFileToCopy As String, strOldPath As String, strNewPath As String
  
    ' 路径末尾统一加反斜杠，避免拼接错误
    strOldPath = "C:\Users\SOURCE\" '源文件所在目录
    strNewPath = "C:\Users\Destination\" '目标存储目录
  
    With ActiveSheet
        strFileToCopy = .Range("A1") '读取单元格中的文件名
        strFileToCopy = strFileToCopy & ".pdf" '拼接PDF后缀
        ' 先判断源文件是否存在
        If Dir(strOldPath & strFileToCopy, vbNormal) <> "" Then
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            ' 目标文件夹不存在则先创建
            If objFSO.FolderExists(strNewPath) = False Then
                objFSO.CreateFolder strNewPath
            End If
            objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strFileToCopy
        End If
    End With
  
    Set objFSO = Nothing
End Sub

批量处理版本（支持处理A1-A10共10个文件名） #

Sub batchCopyFile()
    Dim objFSO As Object
    Dim strFileToCopy As String, strOldPath As String, strNewPath As String
    Dim i As Integer
  
    strOldPath = "C:\Users\SOURCE\"
    strNewPath = "C:\Users\Destination\"
  
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 提前创建目标文件夹避免重复判断
    If objFSO.FolderExists(strNewPath) = False Then
        objFSO.CreateFolder strNewPath
    End If
  
    ' 循环处理A1到A10的文件名
    For i = 1 To 10
        strFileToCopy = ActiveSheet.Range("A" & i).Value
        ' 自动跳过空单元格
        If Trim(strFileToCopy) <> "" Then
            strFileToCopy = strFileToCopy & ".pdf"
            If Dir(strOldPath & strFileToCopy, vbNormal) <> "" Then
                objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strFileToCopy
            End If
        End If
    Next i
  
    Set objFSO = Nothing
End Sub

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