如果批量将以工号命名的照片名修改为身份证号命名？

35610101

如果将以工号命名的照片名批量修改为身份证号命名？

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, strFileName$, strPath$, strReName$
   
    Application.ScreenUpdating = False
   
    ar = [A1].CurrentRegion.Value
    strPath = ThisWorkbook.Path & "\职工照片\"
   
    strFileName = Dir(strPath & "*.xls*")
    For i = 2 To UBound(ar)
        strFileName = strPath & ar(i, 2) & ".jpg"
        strReName = strPath & ar(i, 3) & ".jpg"
        If Dir(strFileName) <> "" Then
            Name strFileName As strReName
        End If
    Next i
   
    Application.ScreenUpdating = True
    Beep
End Sub

3190496160

do while 循环，name命名

gwjkkkkk

请参考附件。。。

quqiyuan

参与一下，仅供参考。。。。

quqiyuan

代码如下。。。。
Sub 获取文件夹下所有文件名()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    file_path = wb.Path & "\职工照片\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set gfd = fso.GetFolder(file_path)
    For Each f In gfd.Files
        For i = 2 To UBound(arr)
            If InStr(f, arr(i, 2)) Then
                f.Name = arr(i, 3) & ".jpg"
                Exit For
            End If
        Next
    Next
    Beep
    Set fso = Nothing
End Sub

lizhipei78

https://club.excelhome.net/thread-1708041-1-1.html
这个非常好用

35610101

gwjkkkkk 发表于 2024-12-16 21:25
请参考附件。。。

这个可用，谢谢！

35610101

quqiyuan 发表于 2024-12-16 22:06
代码如下。。。。
Sub 获取文件夹下所有文件名()
    Dim wb As Workbook, sht As Worksheet

职工多了，excel就停止响应

quqiyuan

35610101 发表于 2024-12-17 10:01
职工多了，excel就停止响应

如果是几千的话vba不至于卡死吧，是不是要稍等一下让它运行完