能否创建VBA函数实现文件复制，避免为每个按钮重复编写代码？

当然可以把重复的复制逻辑封装成通用过程，这样每个按钮只需要一行调用代码，不用重复写整个复制逻辑。

步骤1：创建通用文件复制过程 #

把核心的复制、错误检查逻辑写成一个公共Sub，接收源文件路径和目标文件夹路径作为参数：

' 通用文件复制过程，处理源文件检查、目标文件夹创建和文件复制
Public Sub CopyFileToDestination(ByVal sourceFilePath As String, ByVal targetFolderPath As String)
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 验证源文件是否存在
    If Not FSO.FileExists(sourceFilePath) Then
        MsgBox "源文件不存在：" & sourceFilePath, vbExclamation, "错误"
        Exit Sub
    End If
    
    ' 目标文件夹不存在则自动创建
    If Not FSO.FolderExists(targetFolderPath) Then
        FSO.CreateFolder targetFolderPath
    End If
    
    ' 执行文件复制，允许覆盖已存在文件（需禁止覆盖则把overwritefiles设为False）
    On Error Resume Next
    FSO.CopyFile source:=sourceFilePath, destination:=targetFolderPath & "\", overwritefiles:=True
    On Error GoTo 0
    
    ' 反馈复制结果
    If Err.Number = 0 Then
        MsgBox "文件已成功复制到：" & targetFolderPath, vbInformation, "完成"
    Else
        MsgBox "复制失败：" & Err.Description, vbCritical, "错误"
    End If
End Sub

步骤2：给每个按钮绑定调用代码 #

每个按钮的点击事件只需要做简单的参数准备，然后调用上面的通用过程即可：

比如第一个按钮对应读取S2单元格的源路径，复制到C:\Test\：

Private Sub CommandButton1_Click()
    Dim sourcePath As String
    sourcePath = Range("S2").Value
    
    ' 检查单元格是否为空
    If sourcePath = "" Then
        MsgBox "请在S2单元格填写源文件路径", vbExclamation, "提示"
        Exit Sub
    End If
    
    ' 调用通用复制过程
    CopyFileToDestination sourcePath, "C:\Test\"
End Sub

第二个按钮对应读取S3单元格，复制到D:\Backup\：

Private Sub CommandButton2_Click()
    Dim sourcePath As String
    sourcePath = Range("S3").Value
    
    If sourcePath = "" Then
        MsgBox "请在S3单元格填写源文件路径", vbExclamation, "提示"
        Exit Sub
    End If
    
    CopyFileToDestination sourcePath, "D:\Backup\"
End Sub

优势说明 #

• 避免重复代码：所有复制逻辑只写一次，后续新增按钮只需要修改单元格位置和目标路径。
• 错误处理更完善：自动检查源文件、创建目标文件夹，还会反馈复制结果，比原始代码更稳定。
• 维护方便：如果需要修改复制规则（比如禁止覆盖、改变提示内容），只需要修改通用过程即可，不用逐个改按钮代码。

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