任务介绍：

批量把多个文件夹的图片重名命名为对应表格的L列数据；

重命名规则

修改前

修改后

实现思路

遍历工作表
填充字典：字典记录 键值对信息： key-旧名称 value-新名称 （分别对应每个表个A列和L列）
遍历父文件夹下的子文件夹：
匹配工作表名和子文件夹名
检查文件数量匹配
处理文件名和重命名

1. 设置变量和文件夹路径：

   • 在代码中首先声明了各种变量，如文件夹路径、工作簿、工作表、行数、旧文件名、新文件名等。
   • 给 folderPath 变量赋值为包含要处理文件的文件夹路径。

2. 创建文件系统对象：

   • 使用 CreateObject("Scripting.FileSystemObject") 创建了文件系统对象 (fso)，用于操作文件和文件夹。

3. 遍历工作簿中的每个工作表：

   • For Each ws In wb.Worksheets 循环遍历工作簿中的每个工作表。

4. 填充字典：

   • 对于当前工作表，通过 For 循环，提取指定列的数据，并存储到一个字典 dictSheet 中。其中，键是文件名，值是对应的新文件名。

5. 遍历父文件夹下的子文件夹：

   • For Each subFolder In folder.SubFolders 遍历父文件夹下的所有子文件夹。

6. 匹配工作表名和子文件夹名：

   • If subFolder.Name = ws.Name Then 确保子文件夹的名称与当前工作表名匹配。

7. 检查文件数量匹配：

   • 检查当前子文件夹内的文件数量是否与当前工作表中特定数据行数量匹配。

8. 处理文件名和重命名：

   • 遍历当前子文件夹下的所有文件，对每个文件的文件名进行处理。
   • 检查文件名是否存在于字典中，如果存在则重命名文件，将文件名更改为字典中对应的值。

9. 重命名文件：

   • 使用文件系统对象的 Name 方法来重命名文件，将旧文件名改为新文件名。

10. 输出信息或调试消息：

    • 使用 Debug.Print 输出信息，比如某个工作表文件数量不匹配的情况。

这段代码的主要逻辑是根据工作表中的数据，匹配文件名并进行重命名。通过循环遍历每个工作表以及文件夹中的文件，它自动将文件名更改为给定的值。

VB代码实现

Sub RenameImages()Dim folderPath As StringDim wb As WorkbookDim ws As WorksheetDim cureetSheetlastRow As LongDim i As LongDim oldName As String, newName As StringDim dictSheet As ObjectDim keyCell As Range, valueCell As RangeDim fso As ObjectDim folder As ObjectDim subFolder As ObjectDim file As ObjectDim fileCount As IntegerDim key As VariantDim value As Variant' 设置文件夹路径folderPath = "C:\Users\Administrator\Desktop\Plasma 变色标签" ' 修改为您的父文件夹路径Set fso = CreateObject("Scripting.FileSystemObject")Set wb = ThisWorkbookFor Each ws In wb.WorksheetscureetSheetlastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).RowSet dictSheet = CreateObject("Scripting.Dictionary")' 填充字典For i = 5 To cureetSheetlastRowSet keyCell = ws.Cells(i, "A")Set valueCell = ws.Cells(i, "L")dictSheet(Trim(keyCell.value)) = Trim(valueCell.value)Next i'For Each key In dictSheet.Keys'Debug.Print "Key: " & key & ", Value: " & dictSheet(key)'Next key' 遍历父文件夹下所有子文件夹Set folder = fso.GetFolder(folderPath)For Each subFolder In folder.SubFolders' 判断子文件夹名称是否为当前工作表名称'If subFolder.Name = "3.28" Then''Debug.Print subFolder.Files.Count'For Each file In subFolder.Files'Debug.Print file.Path'Next file'End IfIf subFolder.Name = ws.Name Then' 获取子文件夹内文件数量fileCount = subFolder.Files.Count - 1'判断子文件文件数量是否等于currentSheetLast-4If fileCount = (cureetSheetlastRow - 4) Then' 遍历当前子文件夹下所有文件For Each file In subFolder.FilesoldName = file.PathDim fileName As StringfileName = fso.GetBaseName(file.Path) ' 获取文件名'Debug.Print "正在处理文件: " & fileName'If dictSheet.Exists("1") Then'MsgBox "存在1"'Else'MsgBox "不存在1"'End If' 检查文件名是否在字典中，并重命名文件If dictSheet.Exists(fileName) ThennewName = dictSheet(fileName) & ".png"  ' 新的文件名为对应字典值' 使用文件系统对象的 Name 方法来重命名文件fso.GetFile(oldName).Name = dictSheet(fileName) & ".png"End IfNext fileElseDebug.Print ws.Name & " 文件数量：" & fileCount & " " & "表格数量" & cureetSheetlastRow - 4End IfEnd IfNext subFolderNext ws
End Sub

BUG犯罪现场（眼见不一定为实）

代码中的防呆设计：
子文件夹的文件数量要和Excel对应表格A列序号数量一致。
打印文件夹数量每次都比Excel的序号数量多一个或者二个！！！特别奇怪！！！！

破案1：抓顶风作案的反贼！！！

图片为中图标查看的时候我没发现这个刺客！！！

查看设置为列表！！ 发现了不一样！！！

破案2：破隐身抓刺客！！！

你以为查看设置了显示隐藏文件夹就稳了？？？
不行滴，年轻人！！！

判断文件图片数量和表格A列序号的数量（A5到最后一行），总是文件的数量总是显示多一个，全部打印出来发现是Thumb.db ，就算在查看中设置把文件隐藏打开还是看不到这个文件，但是打印文件夹文件名称会打印！！！

杀器：新建文件夹全部打印文件名对比文件名区别

新建一个文件夹复制3.28文件夹所有图片到新文件夹test，打印两个文件夹目录下的文件名，全部复制到Excel中对比，发现原文件夹多了Thumbs.db!!!

Thumb.db是什么？

Thumbs.db 是Windows操作系统下的一个系统隐藏文件，用于存储缩略图和预览图像的缓存信息。这个文件通常会在文件夹中出现，当操作系统需要显示文件夹中的缩略图或预览图时，会自动生成这个Thumbs.db文件来加快图像显示的速度。

下面是关于Thumbs.db文件的一些特点和信息：

1. 缓存信息：Thumbs.db文件会存储与文件夹中的图片文件相关的缩略图信息，这些缩略图可以帮助操作系统快速显示文件夹中的预览图像，而不必重新生成缩略图。

2. 隐藏文件：Thumbs.db文件通常是一个系统隐藏文件，在常规情况下，用户是看不到这个文件的，除非在Windows文件夹选项中选择显示隐藏文件和文件扩展名。

3. 占用磁盘空间：虽然Thumbs.db文件有助于加快图像预览的显示速度，但有时会被用户视为占用磁盘空间的不必要文件。

4. 删除注意：在某些情况下，用户可能选择手动删除Thumbs.db文件，但系统会在需要时重新生成这些文件。可以通过更改Windows文件夹选项来禁用系统生成Thumbs.db文件，但这可能会影响文件夹中的缩略图显示速度。

总的来说，Thumbs.db文件是Windows系统用来缓存文件夹中缩略图信息的隐藏文件，有助于提高文件夹图像显示的效率。

如何删除Thumbs.db 文件

1 当前目录下使用进入cmd 运行程序

 del /f /s /q /a thumbs.db 

2 遍历文件夹文件删除，所以在获取需要处理的文件实际数量时，可以先把文件名称打印出来查看是否存在Thumbs.db文件，存在则删除，删除后计数才比较准确

如何禁止Thumbs.db 文件

Win10系统禁止生成Thumbs.db缩略图缓存的方法
https://www.cnblogs.com/Music/p/hide-win10-thumbs-dot-db.html