Ⅰ 如何用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
请注意修改使用上述代码中的文件路径。
Ⅱ 如何实现对excel文件进行批量更名
方法与步骤如下:
1、准备新的名字,对应相应的工作表,从A2单元格开始,A1存放标题字段如下:
2、新名字全部准备好后,然后任意工作表标签右击,点击查看代码,或者ALT+F 11快捷键,调出VBE对话框。
3、进入VBE对话框后,右击thisworkbook,选择插入,然后选择模块。
4、双击模块,进入代码输入框输入一下代码
Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
也可以记住,下次直接粘贴即可,代码通用。
5、 然后点击开发工具选项卡,在控件下面选择按钮控件(开发工具选项卡一般默认是没有的,具体可参考我前面的经验,有具体介绍如何调出)
6、在空白处,拖动鼠标,画出一个大小适合的按钮,然后右击选择制定宏。
7、选择重命名,然后点击确定。
8、最后点击按钮,看看效果吧,已经全部重命名。
Ⅲ 如何一次性重命名多个文件的名称,求方法
我是用EXCEL的VBA程序进行一次性重命名多个文件的名称的:
设要换名的文件在 “E:\文件列表” 的文件夹内,在EXCEL表格Sheet3的A列是原来文件的名称,B列是要更换后的名称,名称带文件类型,设此表有1行为标题,文件名从第2行开始,
Sub 换文件名()
Sheets("Sheet3").Select ' 选择工作表
lastrow = Cells(Rows.Count, 1).End(3).Row '取最后 一行的行数
c = "E:\文件列表" & "\" '要换名称文件的文件夹
For i = 2 To lastrow '从第2行到最后 一行
Name c & Cells(i, 1) As c & Cells(i, 2) '换文件名
Next '下一个
End Sub
Ⅳ 如何批量重命名文件夹下的Excel文件
批量修改文件夹中文件的名称
步骤1,下载优速文件批量重命名工具后安装打开,点击软件中间的大方框或者【添加文件】按钮,将需要修改名称的文件全部添加到软件中。
Ⅳ excel 给文件批量改名
比如,这里需要把11.20这个文件夹里面的所有的excel表格名称批量修改一下,当然这里是演示,表格不多,可以一个一个的该,但是如果是有很多的,那么一个一个的改,就非常费劲了。
Ⅵ excel批量修改文件名
附件 VBA 递归算法 批量提取 & 修改文件名
代码如下:
点击选择文件夹 按钮 选择文件夹, 在C 列输入新文件名后, 点击 重命名按钮 批量重命名
Ⅶ 请教excel批量修改文件名
excel批量修改文件名,可以通过excel函数公式加dos命令来完成。假设需要修改的文版件在D盘的批量权修改文件名文件夹中的Excel文档
具体操作步骤如下:
1、新建一个Excel文件,依次单击“公式”选项卡-“定义名称”;
2、在弹出窗口中的名称文本框中输入“名称”,引用位置输入:=FILES(“D:批量修改文件名*.xlsx”);
Ⅷ 如何根据excel对文件夹批量重命名
操作步骤:
1、打开Excel,在A列中输入“ren+空格”;
2、在B列中输入“旧文件名+空格”;
3、在C列中输入“新文件名+空格”;
4、在D列中输入函数“=A1&B1&C1”;
5、然后选择D列并复制;
6、打开新记事本并粘贴该内容;
7、把该文本文档保存为bat文件,并移动到该文件夹下,双击运行即可。