WPS JS宏代码（更新2023.2.28）

function拆分工作表成单独文件(){
letpath=ThisWorkbook.Path+"\\";//路径app_set(false);//取消屏幕刷新for(letshtofWorksheets){//遍历工作表sht.Copy();//工作表复制后成为活动工作簿with(ActiveWorkbook){
SaveAs(path+sht.Name);//默认文件类型并覆盖同名同类型文件并放在当前工作簿路径下Close(true);//保存关闭  }
 }
app_set(true);//恢复屏幕刷新MsgBox("拆分完成",0,"逗号Office技巧")
}
functionapp_set(bln){//设定屏幕刷新等with(Application){
DisplayAlerts=bln;
ScreenUpdating=bln }
}