如何用EXCEL里的数据对其它文件进行文件名批量的替换修改

来源：百度知道 编辑：UC知道 时间：2024/04/30 03:50:51
简单的说就是，我有一个文件夹，里面有几千个图片，图片的文件名是数字.jpg；
然后，在我的一个EXCEL文件里有两列数据，A列就是上面那个文件夹里每张图片的文件名（不包含扩展名），B列是另一组数字；
我现在要做的是，把几千个图片的文件名按A、B列的一一对应关系将其改为B列数据.JPG。
哪位高手知道具体这要怎么做啊？

假设旧文件名在A列，新文件名在B列。

使用VBA宏即可。


具体步骤：

  • 打开Excel

  • 按下快捷键Alt+F11，打开宏编辑器

  • 输入代码

Sub renameGo_by_zzllrr()
    Application.ScreenUpdating = False
    
    If Range("A1") = "" Then End
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    cnt = 0
    For i = 1 To Columns(1).Find("*", , , , 1, 2).row
        file = "D:\zzllrr\" & Range("A" & i)
        n = Range("B" & i)