excel能不能做到批量修改文件名或者创新文件夹？ excel批量修改文件夹名
怎么用excel批量修改文件名？
1、先启动电脑上的Excel，我跟大家举例演示，就随便创建了一个比较简单的表格，在C2单元格输入公式：="ren "&A2&".jpg "&B2&".jpg"，这是一个字符链接公式，表示将A2单元格的内容重命名为B2单元格的内容，回车得到结果，然后单元格填充完整个表格。
2、复制C列中的内容，不包括标题，粘贴到一个记事本中，保存类型选为所有类型，然后另存为bat文件。
3、将bat文件放到与需要替换名称的文件，同一文件夹之内，双击执行即可。
Excel怎么批量修改文件名？
Excel怎么批量修改文件名?在使用电脑和网络进行写文章时，经常要从网上下载一些图片进行配图，而网络上的文件名千奇百怪，需要将图片文件按顺序编号。因此就需要批量修改文件名，下面就和大家一起分享这个方法。
第一步、在c盘建立一个文件夹，将下载的图片放置于该文件夹中，如下图所示。
第二步、鼠标左键点击，开始-》运行-》在对话框中输入字母“cmd”，进入dos模式 ，如下图所示。
第三步、在dos模式输入命令行“cd c:\pic”然后回车，再输入命令行“dir /b>rename.xls"，如下图所示，可将文件夹中的文件名在rename.xls文件中列出。
小贴士：有的时候，你的计算机正处于中文输入状态，为确保命令行能够打出来，也可以切换成英文大写状态。
第四步、随后用Excel打开c:\pic文件夹中的rename.xls，你会发现文件名以全部罗列在A列中(你也可以用鼠标来调整文件名的顺序)，你可以在B1列中输入1.jpg作为第一个文件文件名。
第五步、鼠标选中B1单元格，并在B1列的右下方，使鼠标光标变为+号时，拖动使所有jpg文件的右侧B列中都有文件名。再将A8单元格中没有用的文件名删除，如下图示。
第六步、鼠标选中C1单元格，并在编辑框中输入公式="ren "&A1&" "&B1，如下图所示。
第七步、继续用鼠标拖动C1单元格右下方的句柄，使剩余的C2-C7单元格填充如下图所示。
第八步、然后，鼠标选中C列，鼠标右键复制，如下图示。
第九步、在记事本中，粘贴刚才的命令行，如下图示。
第十步、鼠标点击菜单“文件”——“另存为”，输入文件名ren.bat，要注意下图所示红圈中的路径及扩展名选项。
第十一步、打开c盘pic文件夹，鼠标双击ren.bat这个批处理文件，即可将该文件夹下的jpg图片，按照刚才rename.xls中的顺序和文件名批量修改文件名，如下图示。
excel批量修改文件名
附件 VBA 递归算法 批量提取 & 修改文件名
代码如下：
点击选择文件夹 按钮 选择文件夹， 在C 列输入新文件名后， 点击 重命名按钮 批量重命名
Option Explicit
Private Fso As Object, Mypath As String
Sub 选择文件夹()
Dim Fo
Call 清除
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要批量重命名文件的文件夹"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
Mypath = .SelectedItems(1) & "\"
End With
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fo = Fso.getfolder(Mypath)
Call 递归(Fo)
End Sub
Sub 获取文件名(Folder)
Dim Fi, filename As String, r As Integer
For Each Fi In Folder.Files
r = Range("A65536").End(xlUp).Row + 1
filename = Fi.Name
Cells(r, 1) = Folder.Path & "\"
Cells(r, 2) = Fso.getbasename(filename)
Cells(r, 4) = "." & Fso.GetExtensionName(filename)
r = r + 1
Next
End Sub
Sub 递归(Folder)
Dim Fi, Fo
Call 获取文件名(Folder)
If Folder.subFolders.Count > 0 Then
For Each Fo In Folder.subFolders
Call 递归(Fo)
Next
End If
End Sub
Sub 重命名()
Dim i As Integer, r As Integer, Rng As Range
r = Range("A65536").End(xlUp).Row
For Each Rng In Range("C2:C" & r)
If Rng = "" Then MsgBox "请将新文件名填写完整!", 64, "提示": Exit Sub
Next
For i = 2 To Range("A65536").End(xlUp).Row
Name Cells(i, 1) & Cells(i, 2) & Cells(i, 4) As Cells(i, 1) & Cells(i, 3) & Cells(i, 4)
Next
MsgBox "文件名修改完成!", 64, "提示"
Call 清除
End Sub
Sub 清除()
Dim r As Integer
r = Range("A65536").End(xlUp).Row
If r = 1 Then Exit Sub
Range("A2:D" & r).ClearContents
End Sub
用EXCEL数据批量改文件名
然后打开我帮你做的附件，会弹出宏安全提示窗，点击启用宏，这样打开文档，宏就可以使用了，然后你把你自己表里的内容复制过来，更改文件名就很简单了，点击一下文档中的那个按钮，在弹出的对话框里选择放置文件的文件夹，确定后就可以完成全部文件的更名。或都复制我写的代码，到你自己的EXCEL文档里，并运行它，也可以实现批量更名。