如何根据excel对文件夹批量重命名-excel批量重命名文件,excel怎么批量重命名

这个没有专门程抄序很难实现，首先，程序要读XLS里的某列内容（名字），读到一百个后执行操度作，不知道你的相片名是否有规律，没规律的话也难处理。
好象VBA可以实问现，不过我不懂，答我只会自己写程序读XLS再改文件名

1、打开Excel，在zhidaoA列中输入“ren+空格”；
2、在B列中输入“旧文件名+空格”；
3、在C列中专输入“新文件名+空格”；
4、在D列中输入函数“=A1&B1&C1”；

5、然后选择D列并复制；
6、打开新记事本并粘贴该内容；
7、把该文本文档保存为bat文件，并属移动到该文件夹下，双击运行即可。
操作前先备份你要操作的扫描文件，这是一个良好习惯．

首先把该Excel文件和你扫描出来的文件都zd放在一个文件夹中.
打开excel文件, alt + f11进入VBA编辑环境.
再按alt + I + M 插入一个模块
把下面的代版码复制进去.

Sub rename()
i = 1
Do Until Range("a" & i) = ""
Name ThisWorkbook.Path & "/pag" & Format(i, "000") As Range("a" & i)
i = i + 1
Loop
MsgBox "OK"
End Sub

然后关闭编辑器,按alt + f8,选择rename,点执行就可以了.
如果你扫描文件的名字有扩展名,如".jpg"
中间的代码应该修改为
Name ThisWorkbook.Path & "/pag" & Format(i, "000") & ".jpg" As Range("a" & i) & ".jpg"
这点要注意

子易权空间站 - Excel培训专家

原来文件名称复制到来A2以下单元，再自将新文件名称录入到B2以下单百元，执行宏：
Sub 批量修改文件名度()
a = [a:a].Find("*", , xlValues, , , 2).Row 'A列最后可见单元的行号
For b = 2 To a
c = Range("a" & b).Value
cc = Range("b" & b).Value
Name "e:\图片\" & c As "e:\图片\" & cc
Next
End Sub
请注意修知改使用上述代码中的道文件路径。