批量重命名文件名称小软件

2022-05-30 04:30| 来源: 网络整理| 查看: 265

说在前面

先扯会，如果不是Android开发的，要使用本小软件，可以直接到下面正题

在Android开发中，有时会遇到大量文件需要重命名的情况，特别是一些图片文件。有两个同学遇到过这种情况，我暂时还没遇到，但这种情况以后肯定会遇到的。

可以用批处理命令（move，ren）来解决，但要一条一条写命令，写修改后的文件名，还要写原文件名。如果有些修改后的名称直接是a001.txt，a002.txt，a003.txt，……毫无疑问这样有规律的名称，用万能的Excel解决最快了，一个拖拉就搞定。以前也写过类似的批量修改软件，虽然功能不一样，但最核心的原理是一样的。好久没有写VB了，写起来真别扭。用惯了AS（Android Studio），感觉这就是一个天堂，一个地狱。

在现有的情况下，如果文件被引用了，需要重命名，在中，只能一个一个更改（Win：Shift+F6）。但如果文件还没有被引用，需要重命名，那就可以使用本小软件助您一臂之力。

本来要上传到CSDN的资源里，可是一直弹出让我登录。点击“确定”还不行，也关闭不了页面，不知道的还以为是中病毒了。还好咱们都是有经验的人，一个勾选，最后页面显示服务器异常。尝试了好多遍都不行，最后放弃，投向百度云的怀抱这里写图片描述

回归正题

下载地址：http://pan.baidu.com/s/1qYGJ3VQ

解压后，里面有一个.xls文件，就是所谓的小软件。另一个是folder文件夹，用于存放需要重命名的文件。

注意： 1. Excel文件和folder文件夹必须在同一目录下 2. 切勿更名此folder文件夹的名称

操作步骤：【1】打开Excel，你就能看到华丽的页面出来了这里写图片描述

【2】但要完成功能，需要手动开启宏。一般在上面会弹出此警告，点击“启用内容”即可这里写图片描述

【3】把你的文件放入到folder文件夹中这里写图片描述

【4】点击按钮“获取folder文件夹中的所有文件” 会把folder中所有的文件名显示出来，如步骤1中图片。有时只需要在旧名称上修改一点点即可，为了减少工作量，把新名称和新名称的后缀名也填成了旧名称的

【5】修改新的名称（⊙﹏⊙b后面的执行结果，是等到下一步修改名称后才会出现的，Sorry）这里写图片描述

【6】点击“批量修改文件名”，folder文件夹中的文件将改头换面了这里写图片描述

OK，完成了。。。

赠送福利

除了这基本的功能外，还有两个额外的功能：

A、除了新名称和其后缀名可以编辑外，其他都禁止编辑，为了防止你的一个不小心。但可以调整宽度，给你更好的视觉查看超长名称

B、新名称中如果有相同的（因为你没有看到过在哪个文件夹中存在两个一样的文件名称），将报红色警告，给您温馨的提示。这里写图片描述

年终奖

Android开发过程中，如果没有大神们的开源项目，大家都不知道在哪里摸爬滚打。支持OpenSource

Option Explicit '************************************************ '获取folder文件夹中所有的文件 '************************************************ Sub GetFiles_Click() Dim myPath$, myFile$, eachwirexls As Workbook Dim num% num = 0 '获取本软件目录下的folder文件路径 myPath = ThisWorkbook.Path & "/folder/" On Error GoTo Error_handle Call unlockSheet '解锁 With Application.ThisWorkbook.ActiveSheet ' 清除所有单元格区域 Range("A3:F65536") = "" '获取路径中所有的文件 myFile = Dir(myPath, vbNormal) Do Until Len(myFile) = 0 num = num + 1 Cells(num + 2, 1) = num 'Debug.Print myFile '立即窗口测试打印结果 Dim temp As Variant Dim results() As String temp = splitSuffix(myFile) results() = temp Cells(num + 2, 2) = results(1) Cells(num + 2, 4) = results(1) Cells(num + 2, 3) = results(2) Cells(num + 2, 5) = results(2) myFile = Dir Loop 'Debug.Print myFile End With Call lockSheet MsgBox "共查找到 " & num & " 个文件" Exit Sub Error_handle: Call lockSheet MsgBox "查找文件失败，请检查" End Sub '************************************************ '获取文件名称中的后缀名 '************************************************ Private Function splitSuffix(fileName As String) As Variant Dim sum%, location%, i% Dim results(2) As String results(1) = fileName results(2) = "" sum = Len(fileName) location = 0 For i = sum To 1 Step -1 If Mid(fileName, i, 1) = "." Then location = i GoTo End_Handle End If Next End_Handle: If location 0 Then results(1) = Left(fileName, location - 1) '文件名 results(2) = Right(fileName, sum - location + 1) '文件后缀名 End If splitSuffix = results End Function '************************************************ '批量修改文件名称 '************************************************ Sub Rename_Click() Dim myPath$, i% myPath = ThisWorkbook.Path & "/folder/" Call unlockSheet With Application.ThisWorkbook.ActiveSheet .Unprotect For i = 3 To [A65536].End(3).Row Name myPath & Trim(Cells(i, 2)) & Trim(Cells(i, 3)) As myPath & Trim(Cells(i, 4)) & Trim(Cells(i, 5)) Cells(i, 6) = "OK" Next End With Call lockSheet MsgBox "批量修改完成" End Sub '************************************************ '工作表解锁 '************************************************ Private Function unlockSheet() Application.ThisWorkbook.ActiveSheet.Unprotect End Function '************************************************ '工作表上锁 '************************************************ Private Sub lockSheet() Application.ThisWorkbook.ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFormattingColumns:=True, AllowDeletingRows:=True, _ AllowFiltering:=True End Sub

【本文地址】

公司简介

联系我们

今日新闻

推荐新闻

专题文章