python修改sheet名称_如何批量修改多个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