VBA中实现文件拷贝副本

在VBA (Visual Basic for Applications) 中，你可以通过`FileSystemObject` 类来实现文件的复制功能。创建一个文件副本的基本步骤如下：

Sub CopyFile(ByVal srcPath As String, ByVal dstPath As String)
    ' 创建 FileSystemObject 对象
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查源文件是否存在
    If Not fso.FileExists(srcPath) Then
        MsgBox "源文件不存在!"
        Exit Sub
    End If
    
    ' 尝试复制文件，如果成功则创建新文件并写入
    On Error Resume Next ' 处理可能出现的错误
    fso.CopyFile srcPath, dstPath ' 复制源文件到目标路径
    On Error GoTo 0 ' 关闭错误处理模式
    
    If Err.Number <> 0 Then ' 如果有错误发生
        MsgBox "复制文件失败：" & Err.Description
        Err.Clear ' 清除错误信息
    Else
        MsgBox "文件已成功复制到：" & dstPath
    End If
    
    ' 清理
    Set fso = Nothing
End Sub

使用这个 `CopyFile` 函数，你可以传入源文件路径 (`srcPath`) 和目标文件路径 (`dstPath`)。函数会尝试复制文件，如果出错，它会显示一个错误消息。