VBA使用文件对话框进行搜索，然后复制和粘贴

Sub SearchAndCopyFiles()
    Dim dialog As FileDialog
    Dim sourcePath As String
    Dim destinationPath As String
    Dim file As Variant
    
    ' 创建文件对话框对象
    Set dialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置对话框属性
    With dialog
        .Title = "选择要搜索的文件"
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "所有文件", "*.*"
        
        ' 显示文件对话框并检查用户是否点击了“确定”按钮
        If .Show = -1 Then
            ' 获取选择的文件路径
            For Each file In .SelectedItems
                ' 复制文件
                FileCopy file, "目标文件夹路径\" & GetFileName(file)
            Next file
        End If
    End With
    
    ' 释放对话框对象
    Set dialog = Nothing
    
    ' 提示复制完成
    MsgBox "文件复制完成！"
End Sub

Function GetFileName(filePath As String) As String
    ' 从文件路径中提取文件名
    GetFileName = Mid(filePath, InStrRev(filePath, "\") + 1)
End Function