【WPS应用案例】JS宏批量创建和删除工作表

懒人办公

创作者俱乐部成员

【案例】在“首页”工作表中,B列是部门名称,我们需要按照部门名称批量创建相应的工作表。

【操作效果】具体操作效果如下:

【代码】具体代码如下,可按ALT+F11打开WPS宏编辑器,复制下面的代码粘贴到编辑器中。

function 批量创建工作表()

{

批量删除工作表(); //先删除所有工作表

let th=Sheets.Item('首页');

n=th.Range('a'+Rows.Count).End(xlUp).Row //获取最后一行数据所在行号

for (i=2;i<=n;i++){ //按B列部门名称循环

let sh=Sheets.Add(undefined,After=th); //新建工作表

sh.Name=th.Range('b'+i).Value2; //用首页B列的部门名称命名工作表

th.Activate();

}

}

function 批量删除工作表(){

Application.DisplayAlerts=false; //关闭提示

for (sh of Sheets){ //遍历所有工作表

if(sh.Name!='首页'){

sh.Delete(); //删除工作表

}

}

Application.DisplayAlerts=true; //打开提示

}

【素材下载】点击下方链接,下载文件进行练习。

https://kdocs.cn/l/ceLlYJJASlLB

贵州省
浏览 8172
2
28
分享
28 +1
28
2 +1
全部评论 28
 
请教一下wps宏怎么样打开一个文本文件,用竖道作为分隔符,2、3列转换为文本格式。
· 河南省
回复
 
工作表 新建
· 浙江省
回复
 
Sheets.Add
· 浙江省
回复
 
跟着教程学习,上班轻松了很多
· 四川省
回复
 
非常实用的教程,刚好需要。
· 重庆
回复
 
很实用,有教程学得轻松
· 江西省
回复
 
很实用的教学,而且还有文件可以联系,超赞
· 吉林省
回复
 
有教程学习起来轻松多了,多练多操作就可以上手
· 四川省
回复
 
有教程学习起来轻松多了,多练多操作就可以上手
· 四川省
回复
 
很实用,超级赞
· 河南省
回复
 
太实用了,节约了一大笔,不然我单位的事情还要花自己一大笔
· 四川省
回复
 
很实用很棒
· 浙江省
回复
 
很实用 赞赞赞
· 上海
回复
 
赞赞赞赞
· 广东省
回复
 
太实用了,感谢大佬分享
· 安徽省
回复
 
为什么不早点有这个了
· 广东省
回复
 
非常棒,赞赞赞
· 新疆
回复
 
很棒,收藏了
· 四川省
回复
 
这个表格很棒
· 内蒙古
回复
 
不错。赞
· 福建省
回复