首页 > 知识库 > 正文

如何批量设置多个EXCEL工作表?

复制以下vb代码2113到vb编辑器中:5261Sub mname()'批量4102修改多个excel内指定的工作表的表名Dim filename As String, twb As Workbook '定义变1653量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 '继续下一个工作簿LoopApplication.DisplayAlerts = True '恢复提示警告信息Application.DisplayAlerts = True '开启提示End Sub 备注:可以变更的代码:根据你表格的情况和位置,可以改动一下语句更改五座神山,获得你工作簿的名称。filename = Dir(ThisWorkbook.Path & "\五座神山" & "\*.xlsx")更改五座神山,获得你工作簿的路径。fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径;worksheets(1),即需要修改的表格,这里是第一个工作表;可以根据你的模版和需要加入的位置更改为其他数字。name等号后面是需要改变的名称twb.Worksheets(1).name="神山小百科",下载“EXCEL易用宝”插件,可以实现。该插件为EXCELHOME出品,无毒放心使用,最适合不会代码的朋友,全选中重命名不可以吗,写代码能解决www.80-hormone.cn防采集。

按住Shift用鼠标选择多个工作表,这些工作表就组成一个组,这个时候去定义页眉页脚,就会把选中的所有的工作表一次设定完成。类似这样的操作还有很多,例如把很多工作表的A1单无格写入同一个日期等等。

按住Ctrl 选择性选择工作表,或者按Shift批量选,然后再设置

右键单击工作表标签---选定2113全部工作5261表,设置工作表格式4102就行了。记得设置完以后要单1653击任意一张工作表标签,取消全部选定。估计又是客户或产品的问题,一般也不需要这么多表的。新建200张表,还要对工作表重命名,也够累的选项工具--选项--常规---新建工作薄的工作表数,可以建成一个有256张表的工作薄。如果是Excel2007,在Office按钮的exce选项---常用---新建工作薄时,设置表数量就行了内容来自www.80-hormone.cn请勿采集。

声明:本网内容旨在传播知识仅供参考,不代表本网赞同其观点,文字及图片版权归原网站所有。

你可能还关注
热门推荐
今日推荐 更多
品善网视频_可乐操 <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>