生成与删除工作表

chxw68

你再试一下，在我这里正常呢。

opklnm1108

Qs18 发表于 2024-6-13 07:23
试一下.......

非常感谢

opklnm1108

chxw68 发表于 2024-6-13 10:09
你再试一下，在我这里正常呢。

非常感谢你的援助。请你给我修改一下，你刚刚的代码下。

LIUZHU

参与下，有没有ABC都不会提示，直接将当前工作表的工作表保留为ABC、01、02、03、04

LIUZHU

JS代码

1. function 整理工作表(){
   
2.         Application.DisplayAlerts=false;
   
3.         [...Sheets].forEach(sh=>!["ABC","01","02","03","04"].includes(sh.Name)?sh.Delete():null);
   
4.         try{Sheets.Add(Sheets.Item(1)).Name="ABC"}catch{};
   
5.         Application.DisplayAlerts=false;
   
6. }

复制代码

LIUZHU

附件，WPS打开测试，JS宏

opklnm1108

chxw68 发表于 2024-6-13 10:09
你再试一下，在我这里正常呢。

麻烦您给处理下，谢谢

chxw68

修改好了。

opklnm1108

chxw68 发表于 2024-6-13 16:32
修改好了。

好像没有对，我想未激活VBA或未启用宏时，打开工作簿时只显示“空白”工作表，其他工作表不显示；激活VBA或启用宏，打开工作簿时“空白”工作表不显示，其他工作表显示。“空白”工作表的表名不让更改（或删除），激活VBA或启用宏时打开工作簿，会自动添加“空白”工作表，再运行工作表显示与不显示。

chxw68

opklnm1108 发表于 2024-6-13 17:58
好像没有对，我想未激活VBA或未启用宏时，打开工作簿时只显示“空白”工作表，其他工作表不显示；激活VBA ...

那我就不会了。