[已解决]批量修改图片名称

苏子龙

dyzx 发表于 2016-10-12 11:23
苏子龙老师：请问“With Application.FileDialog(msoFileDialogFolderPicker) '文件加一定取到你要的那个 ...

就是照片所在文件夹，即附件里的文件夹“4”

dyzx

zjdh 发表于 2016-10-12 10:51
还是你的“身份证”数据问题，任意输入一个内容（文本），即可运行。
2楼的数据都可以运行。

[size=11.666666030883789px]zjdh老师：请问我的“身份证”数据有什么问题？请指教，多谢

zjdh

有这么个函数就简单啦
Sub Macro1()
     Dim p$, f$, Fso As Object, sFileType$, i&, arr$(), brr$(), m&
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        p = .SelectedItems(1) & "\"
    End With
    sFileType = "*.jpg"
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Call GetFiles(p, sFileType, Fso, arr, m)
    W = Range("A65536").End(3).Row
    If W = 2 Then Exit Sub
    For J = 2 To W
        For i = 1 To m
            If arr(2, i) = Cells(J, 1) & ".jpg" Then
                f = arr(1, i) & Application.Clean(Cells(J, 3).Value) & ".jpg"
                If Dir(f) <> "" Then
                    MsgBox Cells(J, 3) & ".jpg 已存在"
                    GoTo 10
                End If
                Name arr(1, i) & arr(2, i) As f
                Exit For
            End If
        Next
10  Next
    MsgBox "处理完毕", vbInformation
    Set Fso = Nothing
End Sub

dyzx

苏子龙 发表于 2016-10-12 11:31
就是照片所在文件夹，即附件里的文件夹“4”

苏子龙老师：我将其他文件的数据复制到这个表时运行代码，是不能修改图片名称的，请指教，多谢。

zjdh

dyzx 发表于 2016-10-12 12:53
zjdh老师：请问我的“身份证”数据有什么问题？请指教，多谢

就是9楼所说的，存在非打印字符。

苏子龙

dyzx 发表于 2016-10-12 12:56
苏子龙老师：我将其他文件的数据复制到这个表时运行代码，是不能修改图片名称的，请指教，多谢。[/backco ...

用zjdh老师的代码吧，他考虑周到
我写的那个到i要确认改名字的工作表为活动工作表，或者在里面加个运行按钮，还不行可能名称和照片名称不符等原因，要不再上传多一点的照片及改名称的工作表试试

dyzx

zjdh 发表于 2016-10-12 13:38
就是9楼所说的，存在非打印字符。

zjdh老师：请问什么是“非打印字符”，应该怎样处理？是否要一个一个地重新输入身份证号，这样太麻烦了，有什么好办法？请指教，多谢。

zjdh

dyzx 发表于 2016-10-12 14:37
zjdh老师：请问什么是“非打印字符”，应该怎样处理？是否要一个一个地重新输入身份证号，这 ...

你用我13楼的宏替代原来的宏就可以啦，不必再重输数据了。

dyzx

zjdh 发表于 2016-10-12 15:51
你用我13楼的宏替代原来的宏就可以啦，不必再重输数据了。

zjdh老师：我运行你的代码，但电脑都一直在运行中，请指教，多谢。

zjdh

dyzx 发表于 2016-10-12 16:30
zjdh老师：我运行你的代码，但电脑都一直在运行中，请指教，多谢。

对话框已经出来了，应该是更改结束了。
能点对话框中的“确定”吗？