VBA文件复制重命名报错：Object Required问题求助

错误原因 #

1. 未实例化FileSystemObject：直接调用FileSystemObject.CopyFile会触发“Object Required”错误，因为FileSystemObject是需要实例化的对象，不能直接通过类名调用方法。
2. 目标路径格式不规范：Destination_Location仅为选中的文件夹路径，CopyFile方法要求目标路径要么是带结尾反斜杠的文件夹路径，要么是完整的目标文件名，否则会因路径识别失败导致复制出错。

修正后的代码 #

Private Sub Form_41_Download()
    Dim File_Location As String
    Dim Destination_Folder As String
    Dim Destination_File As String
    Dim fldr As FileDialog
    Dim sItem As String
    Dim fso As Object ' 声明FileSystemObject对象
    
    ' 初始化源文件路径
    File_Location = Sheet2.Cells(1, 22) & "\Form_41\41_form_2025.pdf"
    
    ' 选择目标文件夹
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        If .Show <> -1 Then
            MsgBox "未选择目标文件夹，操作取消。"
            GoTo Cleanup
        End If
        sItem = .SelectedItems(1)
    End With
    
    ' 处理目标文件夹路径，确保以反斜杠结尾
    If Right(sItem, 1) <> "\" Then
        Destination_Folder = sItem & "\"
    Else
        Destination_Folder = sItem
    End If
    ' 拼接完整目标文件路径
    Destination_File = Destination_Folder & "41_form_2025.pdf"
    
    ' 实例化FileSystemObject并执行复制
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 先检查源文件是否存在
    If fso.FileExists(File_Location) Then
        fso.CopyFile File_Location, Destination_File, True ' True表示允许覆盖同名文件
        MsgBox "文件复制完成！"
    Else
        MsgBox "源文件不存在，请检查路径：" & vbCrLf & File_Location
    End If
    
Cleanup:
    ' 释放占用的对象资源
    Set fldr = Nothing
    Set fso = Nothing
End Sub

关键修改说明 #

• 对象实例化：用CreateObject("Scripting.FileSystemObject")创建对象实例，无需手动添加引用，兼容性更强。
• 路径规范化：对选中的文件夹路径做结尾反斜杠检查，确保CopyFile能正确识别目标位置。
• 健壮性提升：增加源文件存在性检查、用户取消操作的提示，避免无意义的错误触发。
• 覆盖控制：CopyFile第三个参数设为True，允许覆盖目标位置已存在的同名文件，可根据需求改为False禁止覆盖。

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