如何根据EXCEL表格内的序号和名称对某文件夹照片批量命名？

lover826

如图表一所示，我现在有一个EXCEL表，内容见（表一），另本电脑某个盘存有表格对应的这些名字的照片（路径：C:\Users\Administrator\Desktop\临时\照片文件），名字顺序是乱的，要达到（表二）的样子，请问怎么操作？请版主和知道的师傅帮忙操作一下，谢谢！
电脑照片文件：


表一：


表二：

liulang0808

https://club.excelhome.net/thread-1441877-1-1.html
链接是图片有关操作，楼主可以参考

lover826

liulang0808 发表于 2021-8-5 07:11
https://club.excelhome.net/thread-1441877-1-1.html
链接是图片有关操作，楼主可以参考

您好，没看明白那个，可以请你帮忙做个吗？我传个附件。谢谢你！    步骤和方法

liulang0808

lover826 发表于 2021-8-5 07:30
您好，没看明白那个，可以请你帮忙做个吗？我传个附件。谢谢你！    步骤和方法

楼主的表格数据对比来看 ，貌似跟图片没有关系吧
对应写入表格数据即可

liulang0808

Sub 按钮1_Click()
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then pth = .SelectedItems(1) Else Exit Sub
    End With
    If Right(pth, 1) <> "\" Then pth = pth & "\"
    Set d = CreateObject("scripting.dictionary")
    Set fso = CreateObject("scripting.filesystemobject")
    arr = [a1].CurrentRegion
    For Each f In fso.getfolder(pth).Files
        d(Split(f.Name, ".")(0)) = f
    Next f
    r = 0
    For j = 3 To UBound(arr)
        If d.exists(arr(j, 2)) Then
            r = r + 1
            arr(j, 5) = arr(j, 2) & "-" & Format(r, "000")
            Name d(arr(j, 2)) As pth & "\" & arr(j, 5) & ".jpg"
        End If
    Next j
    [a1].CurrentRegion = arr
End Sub

liulang0808

附件内容供参考，不知道理解对不对，修改了文件名

lover826

liulang0808 发表于 2021-8-5 07:48
附件内容供参考，不知道理解对不对，修改了文件名

是这种效果， 你太厉害了，  是怎么做到的  ？  请你帮我把完整版做出来，比这个多一列内容， 太感谢你了！
请在表里给我说下详细方法步骤。谢谢

liulang0808

lover826 发表于 2021-8-5 08:07
是这种效果， 你太厉害了，  是怎么做到的  ？  请你帮我把完整版做出来，比这个多一列内容， 太感谢你了 ...

楼主参考下五楼附件的代码。。。。。

鑫尼达

liulang0808 发表于 2021-8-5 08:08
楼主参考下五楼附件的代码。。。。。

请你把注释加上，再录制一个视频详细讲解直到我弄懂为止。

手动dog

指月山人

看得出来，是位收藏家。