请选择 进入手机版 | 继续访问电脑版
查看: 541|回复: 0

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

[复制链接]

492

主题

770

帖子

3790

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3790
QQ
发表于 2022-7-26 16:11:56 | 显示全部楼层 |阅读模式
  如何批量修改多个excel文件指定工作表的表名呢?
  若有多个excel文件,即多个工作簿,你需要将每个excel文件中的一个指定的sheet工作表的表名进行修改,这个工作表所处的位置相同,即都是每个excel文件中第n个工作表,那么你是一个一个打开文件去修改sheet表名呢,还是想用便捷的方法呢?
988e1c532f632385ed524e25cce833e038725df8.jpg
工具/原料 excel2013 方法/步骤 1
  需求实例化:
  如图所示,需要将“五座神山”文件夹下的5个excel文件(工作中可能遇到N个文件)中的第一个表格“神山百科”更名为“神山小百科”
32a127723d03bbea2ae29cfcea43d7d4493154f8.jpg
2
  新建一个excel文件,excel2010版本以上的新建一个xlsm文件,可以支持宏命令运行;
  这里我建立了一个vba.xlsm文件,与五座神山同一个文件夹下。
d695563104ebf6a7446b2e9fffee1c324a184ff8.jpg
3
  打开vba.xlsm,点开发工具---插入按钮,在空表处新建一个按钮,并更改名称为“批量修改表名”。
5e4e9c2b74ee1c32547cfd9807f1d8a727334bf8.jpg
4
  点开发工具---visual basic,或者操作快捷键ALT+F11,打开vba编辑器。
8db0c6a726334884e887e798ddee7b7f870e45f8.jpg
5
  右键单击microsoft excel 对象,在弹出的对话框列表中选择插入--模块。
7a3e980e7c75e5f4d09142b9b1ceaad7736bbcf8.jpg

  复制以下vb代码到右侧的编辑框中:
  1. Sub mname()
  2. '批量修改多个excel内指定的工作表的表名
  3. Dim filename As String, twb As Workbook '定义变量
  4. Application.ScreenUpdating = False '关闭屏幕更新
  5. Application.DisplayAlerts = False '不显示需要确定删除的警告信息
  6. filename = Dir(ThisWorkbook.Path & "\五座神山" & "*.xlsx")
  7. '获得五座神山文件下的所有工作表的名字
  8. Do While filename <> "" '若工作簿名字不为空,执行循环体;
  9. fn = ThisWorkbook.Path & "\五座神山" & filename  '设置fn为路径;
  10. Set twb = Workbooks.Open(fn) '打开五座神山文件下的工作簿;
  11. twb.Worksheets(1).Name = "神山小百科" '修改第一个工作表的表名为“神山小百科”
  12. twb.Close True '保存并关闭工作簿
  13. filename = Dir  '继续下一个工作簿
  14. Loop
  15. Application.DisplayAlerts = True '恢复提示警告信息
  16. Application.DisplayAlerts = True  '开启提示
  17. End Sub
复制代码
7
  可以变更的代码:
  根据你表格的情况和位置,可以改动一下语句
  更改五座神山,获得你工作簿的名称。
  filename = Dir(ThisWorkbook.Path & "\五座神山" & "\*.xlsx")
  更改五座神山,获得你工作簿的路径。
  fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径;
  worksheets(1),即需要修改的表格,这里是第一个工作表;
  可以根据你的模版和需要加入的位置更改为其他数字。
  name等号后面是需要改变的名称
  twb.Worksheets(1).name="神山小百科"

  关闭宏编辑器,将按钮和宏命令关联起来。
  关联的方法见经验贴:  
bff8683e21c2bbd6dbb4c15c116186254093aef8.jpg

  点击批量修改执行按钮,执行vb程序后,
  打开所有的工作簿,可以看到,已经将“神山百科”工作表的表名更改为“神山小百科”了。
87645f93cee8b004157f7dbb79260d9a300ea9f8.jpg
d04eec260d9a310e51fd459e31b842406bfea2f8.jpg

0da37be7340f64782147120dfd3e21c2bad6b5f8.jpg
人发展的历程就像爬山,每登上一个高度都能看到更远、更美的风景。很多人留恋眼前的风景,不愿继续努力前行。只有一小部分人,才敢于向上攀登。不断学习修正自己   ...
回复 关闭延时

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则

快速回复 返回顶部 返回列表