[已解决]有一难题求助各位老师，看看能否解决

qhllqhll

给文件夹里的所有文件改名，见附件
谢谢
批量更改照片名.rar (105.68 KB, 下载次数: 3)

2016-10-20 16:18 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-10-20 16:58

Sub test()
    Dim A, i, path, ext, oldName, newName   
    A = Range("a1").CurrentRegion
    path = ThisWorkbook.path & "\照片文件夹\"
    ext = ".jpg"   
    For i = 2 To UBound(A)
        oldName = path & A(i, 2) & ext
        newName = path & A(i, 4) & ext
        If Dir(oldName) <> "" Then Name oldName As newName
    Next i
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i, path, ext, oldName, newName   
    A = Range("a1").CurrentRegion
    path = ThisWorkbook.path & "\照片文件夹\"
    ext = ".jpg"   
    For i = 2 To UBound(A)
        oldName = path & A(i, 2) & ext
        newName = path & A(i, 4) & ext
        If Dir(oldName) <> "" Then Name oldName As newName
    Next i
End Sub

qhllqhll

爱疯 发表于 2016-10-20 16:58
Sub test()
    Dim A, i, path, ext, oldName, newName   
    A = Range("a1").CurrentRegion

非常感谢版主的出手相救