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

function app_set(bln){//设定屏幕刷新等
 with(Application){
  DisplayAlerts=bln;
  ScreenUpdating=bln
 }
}