将物资台账按品名分别导出excel簿，里面的数据都要有

yangkekuaile10

将物资台账按品名分别导出excel簿，里面的数据都要有

研究了好久都不行
就是物资台账里面的数据分别按品名做成一个一个单元簿

LIUZHU

生成后是这样的

LIUZHU

JSA代码，适合WPS软件，代码简单，但速度一般

1. function 拆分工作簿(){
   
2.         Sheets.Item("物资台账").Activate();
   
3.         Range(Range("p1").Validation.Formula1).Value2.forEach(([x],i)=>{
   
4.                 Range("p1").Value2=x;
   
5.                 ActiveSheet.Copy();
   
6.                 ActiveWorkbook.SaveAs(`${ThisWorkbook.Path}\\品名${String(i+1).padStart(2,0)}_${x}.xlsx`,51);
   
7.                 ActiveWorkbook.Close(false);
   
8.         });
   
9.         alert("生成完毕。");
   
10. }

复制代码

LIUZHU

入库记录和出库记录表，无效被占用单元格太多，造成表格很大，保存起来较慢

LIUZHU

这组代码比较快，生成125个工作簿，手机计时，43秒左右。

1. function 拆分工作簿2(){
   
2.         let arr=Range(Range("p1").Validation.Formula1).Value2;
   
3.         Sheets.Item("物资台账").Copy();
   
4.         arr.forEach(([x],i)=>{
   
5.                 Range("p1").Value2=x;
   
6.                 ActiveWorkbook.SaveCopyAs(`${ThisWorkbook.Path}\\品名${String(i+1).padStart(2,0)}_${x}.xlsx`);
   
7.         });
   
8.         ActiveWorkbook.Close(false);
   
9.         alert("生成完毕。");
   
10. }

复制代码

LIUZHU

附件在此，请审核

yangkekuaile10

对的对的，感谢分享

yangkekuaile10

LIUZHU 发表于 2024-4-23 17:29
附件在此，请审核

灰常感谢，就是这样！！！