批量更改文件名，并提取至EXCEL

Question

批量更改指定文件夹中的文件名，并且为其加上编号，比如1-，2-，假设指定文件夹为A，包含若干文件和子文件夹，先将A文件夹中的文件编号，再对子文件夹B中的文件编号，子文件夹B中依旧包含子文件夹和文件，编号方法与A一样但是要接着A的序号，比如A中有3个文件，那么B中的文件就从4开始

Answer 1

　　如下两种方法可供选择：bat批量处理和VBA。

　　1、BAT批处理文件

　　A.  获取文件名

　　选定部分或全选所有文件 > Shift+右键 > 复制为路径 > 粘贴到Excel

　　B.  编辑命令符

　　l  替换文件名前的路径（全部替换）

　　l  生成如下字符（空格不可缺少）： REN_原文件名_新文件名

　　可以使用EXCEL公式批量处理：

　　例如如下公式可将文件名前增加序列号1,2,3等。

　　=CONCATENATE("REN","",A1," ",ROW(A1),A1)生成批处理文件

　　C.  批处理

　　l  文件夹内新建txt文件

　　l  复制所有excel中编辑好的字符到txt文件中

　　l  文件扩展名更改为bat，运行。

　　2、VBA法

　　alt+F11,复制如下代码到代码栏，F5运行

Sub Rename_()
Dim my_Path, my_Doc As String

With Application.FileDialog(msoFileDialogFolderPicker) '定位文件夹
.Show
.AllowMultiSelect = False
my_Path = .SelectedItems(1)
End With

Dim i As Single
i = 1
my_Doc = Dir(my_Path & "\" & "*") '遍历所有文件
Do While Len(my_Doc) <> 0
Name my_Path & "\" & my_Doc As my_Path & "\" & i & my_Doc '更名：增加序号
i = i + 1
my_Doc = Dir
Loop

my_Doc = Dir(my_Path & "\" & "*")
i = 1
Do While Len(my_Doc) <> 0 '复制到excel
Cells(i, 1) = my_Doc
i = i + 1
my_Doc = Dir
Loop

End Sub

　　

Answer 2

文件批量处理百宝箱V8.0

Answer 3

下载一个“批量更改文件名”的软件
开始－运行CMD，进入DOS状态窗口
使用C: D: E：.....改变盘符
使用CD命令进入指定文件夹的路径
使用DIR *.*>C:\ABC.TXT把该文件所有文件信息导入C:盘根目录下的ABC.txt文件
进入EXCEL，使用文件－打开－类型选*.*或*.txt即可在EXCEL中编辑

Answer 4

找个批量修改文件名的软件吧

EXCEL 中就自己拖拉等等，输上去便是

Answer 5

可以使用《灵者更名》来解决

1、使用“过滤”板块遍历全部目标文件
2、使用“递增”板块命名为1-、2-这样的格式
3、到菜单“列表”-“导入导出”-“Excel”将列表导出到Excel工作簿本回答被提问者采纳