vba用弹窗选择文件夹中的任意一个或者多个文件移动到用弹窗选择的另一个文件夹

在VBA (Visual Basic for Applications) 中，你可以创建一个简单的用户界面让用户选择源文件夹和目标文件夹，并将文件从一个文件夹移动到另一个。以下是基本步骤：

1. **打开Excel工作簿并插入模块**：在VBA编辑器中，首先需要插入一个新的模块，可以按 `Alt + F11` 进入。

2. **编写用户输入函数**：
- 使用 `Application.GetOpenFilename()` 弹出一个对话框让用户选择源文件夹，例如：

     Dim sourceFolder As String
     sourceFolder = Application.GetOpenFilename("所有文件", , "请选择源文件夹(*.*)")

- 同样地，用 `GetOpenFilename()` 获取目标文件夹：

     Dim targetFolder As String
     targetFolder = Application.GetOpenFilename("所有文件", , "请选择目标文件夹(*.*)")

3. **遍历文件夹中的文件**：
- 使用 `Directory.GetFiles(sourceFolder)` 函数获取源文件夹下的所有文件路径数组，如：

     Dim files() As String
     files = Dir(sourceFolder & "\*.*")
     While Len(files) > 0
       ' 接下来的代码处理每一个文件
       ' ...
       files = Dir()
     Wend

4. **移动文件**：
- 使用 `FileSystemObject` 对象移动文件，例如：

     Dim fso As Object
     Set fso = CreateObject("Scripting.FileSystemObject")
     
     For Each file In files
       Dim srcPath As String
       Dim dstPath As String
       
       srcPath = sourceFolder & "\" & file
       dstPath = targetFolder & "\" & file ' 或者加上原文件名，避免覆盖同名文件
       
       If fso.FileExists(srcPath) Then
         fso.MoveFile srcPath, dstPath
       End If
     Next file

5. **关闭文件系统对象**：

     Set fso = Nothing

6. **运行宏**：
- 将上述代码放在一个名为 `MoveFiles` 的子过程中，然后添加一个触发器（如按钮点击事件），通过 `ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Run SubName` 调用它。

记得在实际操作前备份数据，因为一旦开始执行，移动操作将是不可逆的。