怎样批量修改一个文件中多个工作表的名称.

发布网友 发布时间：2022-03-27 00:32

我来回答

共2个回答

懂视网 时间：2022-03-27 04:53

产品型号：ASUS S340MC

系统版本：Windows 10

软件版本： null   

1、首先我们看到这几个文件夹，用鼠标框选住全部。

2、然后鼠标右键，点击重命名，输入要改的文件名。

3、再点击空白处即可全部按照顺序批量命名。

总结

1、首先我们看到这几个文件夹，用鼠标框选住全部。

2、然后鼠标右键，点击重命名，输入要改的文件名。

3、再点击空白处即可全部按照顺序批量命名。

热心网友 时间：2022-03-27 02:01

如图所示，需要将“五座神山”文件夹下的5个excel文件（工作中可能遇到N个文件）中的第一个表格“神山百科”更名为“神山小百科”

如何批量修改多个excel文件指定工作表的表名

新建一个excel文件，excel2010版本以上的新建一个xlsm文件，可以支持宏命令运行；

这里我建立了一个vba.xlsm文件，与五座神山同一个文件夹下。

如何批量修改多个excel文件指定工作表的表名

打开vba.xlsm，点开发工具---插入按钮，在空表处新建一个按钮，并更改名称为“批量修改表名”。

如何批量修改多个excel文件指定工作表的表名

点开发工具---visual basic，或者操作快捷键ALT+F11，打开vba编辑器。

如何批量修改多个excel文件指定工作表的表名

5

右键单击microsoft excel 对象，在弹出的对话框列表中选择插入--模块。

如何批量修改多个excel文件指定工作表的表名

复制以下vb代码到右侧的编辑框中：

Sub mname()

'批量修改多个excel内指定的工作表的表名

Dim filename As String, twb As Workbook '定义变量

Application.ScreenUpdating = False '关闭屏幕更新

Application.DisplayAlerts = False '不显示需要确定删除的警告信息

filename = Dir(ThisWorkbook.Path & "\五座神山\" & "*.xlsx")

'获得五座神山文件下的所有工作表的名字

Do While filename > "" '若工作簿名字不为空，执行循环体；

fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径；

Set twb = Workbooks.Open(fn) '打开五座神山文件下的工作簿；

twb.Worksheets(1).Name = "神山小百科" '修改第一个工作表的表名为“神山小百科”

twb.Close True '保存并关闭工作簿

filename = Dir '继续下一个工作簿

Loop

Application.DisplayAlerts = True '恢复提示警告信息

Application.DisplayAlerts = True '开启提示

End Sub

打开所有的工作簿，可以看到，已经将“神山百科”工作表的表名更改为“神山小百科”了。