在Excel vba中使用FileDialog将多个文件复制到多个文件夹

Dim fileDialog As FileDialog
Dim selectedFiles As Variant

Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)

With fileDialog
    .AllowMultiSelect = True
    .Title = "Select Files to Copy"
    .Filters.Clear
    .Filters.Add "All Files", "*.*"
    
    If .Show = -1 Then
        selectedFiles = .SelectedItems
    End If
End With

Dim folderDialog As FileDialog
Dim selectedFolder As Variant

Set folderDialog = Application.FileDialog(msoFileDialogFolderPicker)

With folderDialog
    .Title = "Select Destination Folder"
    
    If .Show = -1 Then
        selectedFolder = .SelectedItems(1)
    End If
End With

Dim fso As Object
Dim file As Variant

Set fso = CreateObject("Scripting.FileSystemObject")

For Each file In selectedFiles
    fso.CopyFile file, selectedFolder & "\" & fso.GetFileName(file)
Next file