VBA批量移动相同文件名的图片到新文件夹

VBA批量移动相同文件名的图片到新文件夹 在处理大量图片时，经常需要将相同名称的图片整理到一起。本文将介绍如何使用VBA代码，实现将指定文件夹中所有与目标文件夹文件名相同的图片自动移动到目标文件夹。### 代码示例vbaSub MoveImagesToNewFolder() Dim originalFolderPath As String Dim newFolderPath As String ' 设置原始文件夹路径 originalFolderPath = 'C:/原始文件夹路径/' ' 创建新文件夹路径，与图片名称相同 newFolderPath = 'C:/新文件夹路径/' ' 创建新文件夹 MkDir newFolderPath ' 获取原始文件夹中的所有文件 Dim fileName As String fileName = Dir(originalFolderPath & '.jpg') ' 这里的 '.jpg' 可以根据实际情况更改文件类型 ' 移动具有相同名称的图片到新文件夹 Do While fileName <> '' ' 判断文件是否存在于新文件夹中 If Dir(newFolderPath & fileName) = '' Then ' 如果不存在，则移动文件 Name originalFolderPath & fileName As newFolderPath & fileName End If ' 继续查找下一个文件 fileName = Dir Loop ' 显示完成消息 MsgBox '所有相同名称的图片已成功移动到新文件夹。'End Sub### 使用步骤1. 打开VBA编辑器: 在Excel中按下 Alt + F11 打开VBA编辑器。2. 插入新的模块: 在左侧的'项目资源管理器'窗格中，找到要进行操作的工作簿，双击打开。然后，在工作簿的模块中，插入一个新的模块。3. 粘贴代码: 将上述代码复制粘贴到新插入的模块中。4. 修改路径: 修改 originalFolderPath 和 newFolderPath 变量的值为您的原始文件夹路径和新文件夹路径。注意路径两边的单引号。5. 运行代码: 按下 F5 键或在VBA窗口中点击运行按钮来执行 MoveImagesToNewFolder 子例程。### 注意事项* 请确保在运行代码之前备份您的数据，以免意外操作导致数据丢失。* 代码中的 '*.jpg' 可以根据实际情况修改为其他文件类型，例如 '*.png' 或 '*.gif'。通过以上步骤，您就可以使用VBA代码快速将相同文件名的图片移动到指定文件夹，提高您的工作效率。