excel能不能做到批量修改文件名或者创新文件夹？

1、首先提取文件夹内文件目录。桌面新建txt文件写入：

dir C:\Users\Administrator\Desktop\doc/w/s/b>>123txt

写入txt保存更改文件后缀为bat格式，双击执行。执行后该文件同目录下会有一个新的txt文件，此文件内就是目录C:\Users\Administrator\Desktop\下所有的doc格式文件名。

其中"C:\Users\Administrator\Desktop\"为需要提取文件目录。“doc”为需要提取文件名的文件格式，如果需要全部提取可以删除“doc”。“123txt”为提取文件名称到一个新的txt为“123txt”。

2、根据提取的“123txt”进行重命名。打开“123txt”粘贴进表格A列，复制A列到B列,B列使用替换功能删除文件路径，保留文件名，在C列使用公式保留文件后缀格式。如“jpg/png”等格式后缀。可根据需要批量修改B列内容，修改完成并追加C列的格式后缀。A列插入“ren”保存，复制ABC三列内容到一个新的txt，保存并更改后缀为“bat”，执行后将更改该目录下对应文件名称。

3、创建空白文件夹。新建表格，A列输入“md”B列输入需要创建的文件夹名称，保存AB列内容到TXT，更改后缀格式为“bat”执行后再该执行文件目录下创建空白文件夹。

更改文件名

复制以下vb代码到vb编辑器中：
Sub mname()
'批量修改多个excel内指定的工作表的表名
Dim filename As String, twb As Workbook '定义变量
ApplicationScreenUpdating = False '关闭屏幕更新
ApplicationDisplayAlerts = False '不显示需要确定删除的警告信息
filename = Dir(ThisWorkbookPath & "\五座神山\" & "xlsx")
'获得五座神山文件下的所有工作表的名字
Do While filename <> "" '若工作簿名字不为空，执行循环体；
fn = ThisWorkbookPath & "\五座神山\" & filename '设置fn为路径；
Set twb = WorkbooksOpen(fn) '打开五座神山文件下的工作簿；
twbWorksheets(1)Name = "神山小百科" '修改第一个工作表的表名为“神山小百科”
twbClose True '保存并关闭工作簿
filename = Dir '继续下一个工作簿
Loop
ApplicationDisplayAlerts = True '恢复提示警告信息
ApplicationDisplayAlerts = True '开启提示
End Sub

备注:可以变更的代码：
根据你表格的情况和位置，可以改动一下语句
更改五座神山，获得你工作簿的名称。
filename = Dir(ThisWorkbookPath & "\五座神山" & "\xlsx")
更改五座神山，获得你工作簿的路径。
fn = ThisWorkbookPath & "\五座神山\" & filename '设置fn为路径；
worksheets(1)，即需要修改的表格，这里是第一个工作表；
可以根据你的模版和需要加入的位置更改为其他数字。
name等号后面是需要改变的名称
twbWorksheets(1)name="神山小百科"

比如，这里需要把1120这个文件夹里面的所有的excel表格名称批量修改一下，当然这里是演示，表格不多，可以一个一个的该，但是如果是有很多的，那么一个一个的改，就非常费劲了。

第一步，先把“1120”这个文件夹，整个拖动到浏览器，获取文件索引，目前支持的浏览器不是很多，这里使用360浏览器，当然也可以选择其他的，不过不一定所有的浏览器都可以。

第二步，选择复制文件名称索引，然后复制到excel表格中，选择粘贴为文本，然后只选择文件名称即可，其他的都可以不要，然后新建一个excel，把文件名称复制，粘贴。

第三步，先在新建的excel表格中，把原来的公司名称，以及想要修改的公司名称，然后用公式，="ren "&B2&" "&C2，下拉公式，就可以得到我们想要的东西了，后面需要用到。

第四步，新建一个文本文档，然后把在excel表格中，用公式得到的数据，复制粘贴在里面，比如这里演示的，还是在这个“1120”文件夹里面，新建一个文本文档，把数据填写进去保存。

第五步，然后修改文本文档的格式，把后缀txt改为bat，比如这里“批量修改名称txt”改为“批量修改名称bat”，然后双击bat这个文件，在这个文件夹里面的，就都名称变了。

excel批量修改文件名，可以通过excel函数公式加dos命令来完成。假设需要修改的文件在D盘的批量修改文件名文件夹中的Excel文档
具体 *** 作步骤如下：
1、新建一个Excel文件，依次单击“公式”选项卡-“定义名称”；
2、在d出窗口中的名称文本框中输入“名称”，引用位置输入：=FILES(“D:\批量修改文件名\xlsx”)；

3、在A1单元格输入公式并向下填充至没有文件名出现为止：=INDEX(名称,ROW())

4、在B1单元格开始对应输入需要修改的文件名称；
5、在C1单元格输入公式并向下填充：=“REN “&A1&” “&B1

6、在批量修改文件名这个文件夹中创建一个文本文档的文件；
7、将Excel表中C1:C3的数据复制粘贴到新建的文本文档中，保存并关闭；

8、将新建文本文档尾缀的txt修改为bat，最后再双击该文件自动运行完成即可。

批量修改，只要把需要修改的Excel文件放在同一文件中，通过文件夹属性修改即可
1、将要修改的文档全部放在同一个文件夹中，并全部选中，右击鼠标，在d出的快捷菜单中选择“属性”命令
2、d出多个文档共同的属性对话框，选择“摘要“选项卡，然后单击“高级”按钮
3、将对话框切换到高级设置界面，在“作者”文本框中输入作者名称
4、单击“确定”按钮，将作者名称应用到Excel文档中，将鼠标指针放在更改作者后的文档图标上，即可查看作者名称
注意事项：在文档属性对话框中，除了可以设置作者名称外，还可以为文档添加统一的标题、主题和类别等

方法/步骤
比如，这里需要把1120这个文件夹里面的所有的excel表格名称批量修改一下，当然这里是演示，表格不多，可以一个一个的该，但是如果是有很多的，那么一个一个的改，就非常费劲了。
第一步，先把“1120”这个文件夹，整个拖动到浏览器，获取文件索引，目前支持的浏览器不是很多，这里使用360浏览器，当然也可以选择其他的，不过不一定所有的浏览器都可以。
第二步，选择复制文件名称索引，然后复制到excel表格中，选择粘贴为文本，然后只选择文件名称即可，其他的都可以不要，然后新建一个excel，把文件名称复制，粘贴。
第三步，先在新建的excel表格中，把原来的公司名称，以及想要修改的公司名称，然后用公式，="ren
"&B2&"
"&C2，下拉公式，就可以得到我们想要的东西了，后面需要用到。
第四步，新建一个文本文档，然后把在excel表格中，用公式得到的数据，复制粘贴在里面，比如这里演示的，还是在这个“1120”文件夹里面，新建一个文本文档，把数据填写进去保存。
第五步，然后修改文本文档的格式，把后缀txt改为bat，比如这里“批量修改名称txt”改为“批量修改名称bat”，然后双击bat这个文件，在这个文件夹里面的，就都名称变了。

---