批量修改文件名的简单方法

闲来一记,不枉时间。路过的好汉觉得有用可驻足一看,若无用径自离去,盼江湖再见!
本篇闲记记录了如何将多个文件批量一键修改文件名,采用了windows的批处理脚本。

一、首先新建一个excel吧

二、修改Excel

1、待修改文件如下

放置在同一个文件下
在这里插入图片描述

2、在excel中将所有待修改的名字和新名字记录一下

在这里插入图片描述

3、excel添加一列生成脚本内容

公式内容如下

="ren"&" "&A3&" "&B3

在这里插入图片描述

4、同文件夹下新建一个.txt小文档

在这里插入图片描述

5、选中并复制excel中最后一列生成的数据

在这里插入图片描述

6、到文档中粘贴

第一行需要添加

chcp 65001

解释:用于脚本的转码,当文件名出现中文时,如果不转码会导致识别不到或是文件名变成乱码
在这里插入图片描述

7、txt文档保存后将后缀改为bat

在这里插入图片描述

双击即可,完活

在这里插入图片描述

  • 1
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
VBA(Visual Basic for Applications)是Microsoft Office应用程序内嵌的一种宏语言,可以用来自动化Office任务。如果你想通过VBA批量修改文件名,你可以编写一段脚本来遍历指定目录下的文件,并按照特定规则更改它们的名称。以下是一个简单的步骤指导: 1. **打开VBA编辑器**:在Excel、Word或PowerPoint等程序中,选择“开发者”选项卡(如果隐藏的话,需从视图菜单中启用),然后点击“Visual Basic”。 2. **创建新模块**:在VBA编辑器中,你会看到一个空白的工作区。右键点击“插入”,选择“模块”来创建一个新的VBA代码区域。 3. **编写代码**: ```vba Sub RenameFiles() Dim folderPath As String Dim fileName As String Dim newName As String ' 新的文件名 ' 设置需要操作的文件夹路径 folderPath = "C:\YourFolder\" ' 指定你的文件夹路径 ' 遍历文件夹中的所有文件 For Each fileName In Application.GetDirectories(folderPath & "*.txt") ' 这里假设你要改的是.txt类型的文件 ' 创建新的文件名,这里只是一个示例,实际可以根据需求调整 newName = Replace(fileName, ".txt", "_NewName.txt") ' 执行文件重命名 Call Shell("ren """ & fileName & """ """ & newName & """, vbNormalFocus") ' 或者使用 FileSystemObject 更精细地控制 ' Dim fso As Object ' Set fso = CreateObject("Scripting.FileSystemObject") ' fso.MoveFile fileName, newName Next fileName End Sub ``` 4. **运行脚本**:保存代码后,按F5或点击工具栏上的"运行"按钮执行`RenameFiles`宏。 注意:这个例子假设你的目标文件夹结构简单,只有一级子目录。如果有多层目录,可能需要递归处理。此外,批量修改文件名前最好做好备份,以防万一。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

悟空宇

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值