JSA-通用按列拆分成工作簿、工作表、PDF、分组打印

lizhipei78 · 发表于 2024-12-4 10:26

~
这是我的JSA通用系列第三个，都是不用懂得代码就能操作，按列拆分这个在日常中还是能用得到，这个是之前VBA写的Excel通用按列拆分成工作簿/工作表/另存为PDF/分组直接打印（保留原格式），网友是给了不少鲜花，非常感谢，VBA数组字典拆分那个代码忘记更改赋值区域了，有点BUG懒得改了。

JSA-通用按列拆分成工作簿、工作表、PDF、分组打印_操作台.png

JSA-通用按列拆分成工作簿、工作表、PDF、分组打印.rar (81.67 KB, 下载次数: 31)
---------------------------------------------------------------
都是屎山代码，希望大神多多指教。

cai2532 · 发表于 2024-12-5 11:05

感谢，好人一生快乐！

踏破拖鞋 · 发表于 2024-12-6 15:45

感谢分享。

lihongju · 发表于 2024-12-12 12:37

本帖最后由 lihongju 于 2024-12-12 12:39 编辑

感谢分享！最新版本运行正常，但wps2019运行提示“第43行第36列：语法错误：Unexpected token?”aData.forEach(v=>{dic[v[splitCol]]??=[];dic[v[splitCol]].push(v)}); 问题错在？？第二个？上，有办法解决吗？

lizhipei78 · 发表于 2024-12-12 15:11

lihongju 发表于 2024-12-12 12:37
感谢分享！最新版本运行正常，但wps2019运行提示“第43行第36列：语法错误：Unexpected token?”aData.for ...

dic[v[splitCol]]||dic[v[splitCol]]=[]
改成这样子试试看

lihongju · 发表于 2024-12-13 08:28

本帖最后由 lihongju 于 2024-12-13 11:12 编辑

修改后aData.forEach(v=>{dic[v[splitCol]]||dic[v[splitCol]]=[];dic[v[splitCol]].push(v)});
提示Project-Module1:第43行第19列:
引用错误: 赋值语句的左侧无效，该怎么修改？
工作环境：麒麟系统+wps2019

lizhipei78 · 发表于 2024-12-13 17:12

lihongju 发表于 2024-12-13 08:28
修改后aData.forEach(v=>{dic[v[splitCol]]||dic[v[splitCol]]=[];dic[v[splitCol]].push(v)});
提示Proje ...

改成这样子肯定行
if (!(dic.hasOwnProperty(v[splitCol]))){dic[v[splitCol]]=[];dic[v[splitCol]].push(v)}

lihongju · 发表于 2024-12-16 15:48

还是不行，是不是我整句粘贴的不对？

lihongju · 发表于 2024-12-16 16:33

我改成aData.forEach(v=>{if (!(dic.hasOwnProperty(v[splitCol]))){dic[v[splitCol]]=[];dic[v[splitCol]].push(v)}}); 不提示错了但运行选择文件会提示“请检查权限”，是怎么回事？

myl玉龙 · 发表于 2024-12-18 21:45

感谢分享

		自动登录	找回密码
密码			免费注册

[分享] JSA-通用按列拆分成工作簿、工作表、PDF、分组打印

评分

评分