Excel通用按列拆分成工作簿/工作表/另存为PDF/分组直接打印（保留原格式）

lizhipei78 · 发表于 2024-1-1 13:01

本帖最后由 lizhipei78 于 2024-1-20 10:42 编辑

弄了一个逆向操作的，批量合并相同工作簿中的第一个工作表至一个工作簿中。

ykcbf1100 · 发表于 2024-1-1 13:57

lizhipei78 发表于 2024-1-1 13:01
感谢，确实是，WPS要删除后面Operator:=7这个代码，我重新上传了新的代码，麻烦你再帮看一下有哪些地方能 ...

我有个建议，你看行不行。

我建议A2单元格不要用文件名，而是用待拆分的工作表名，这样，你所拆分的表就不会局限于第1个表了。
本来嘛，文件就是手动选择的，何必在A2单元再放一个全路径文件名呢，多此一举嘛。
附件供参考。。。

lizhipei78 · 发表于 2024-1-1 15:40

ykcbf1100 发表于 2024-1-1 13:57
我有个建议，你看行不行。

我建议A2单元格不要用文件名，而是用待拆分的工作表名，这样，你所拆分的表 ...

非常感谢你的指导

ykcbf1100 · 发表于 2024-1-1 15:50

lizhipei78 发表于 2024-1-1 15:40
非常感谢你的指导

不客气，相互交流一下可以一起提高。

ykcbf1100 · 发表于 2024-1-1 20:23

lizhipei78 发表于 2024-1-1 15:40
非常感谢你的指导

另外，既然前面已经有了On Error Resume Next语句，那就不用再去判断工作簿是否已打开了。

熊文来 · 发表于 2024-1-1 21:08

ykcbf1100 发表于 2024-1-1 20:23
另外，既然前面已经有了On Error Resume Next语句，那就不用再去判断工作簿是否已打开了。

必须要赞一个。2016版本可以用吗？

ykcbf1100 · 发表于 2024-1-1 21:37

熊文来发表于 2024-1-1 21:08
必须要赞一个。2016版本可以用吗？

应该可以的。

lizhipei78 · 发表于 2024-1-1 22:03

ykcbf1100 发表于 2024-1-1 20:23
另外，既然前面已经有了On Error Resume Next语句，那就不用再去判断工作簿是否已打开了。

确实是哦，我咱想不到，效率又提高了一点点

c0co123 · 发表于 2024-1-25 08:49

谢谢LZ无私分享,

peter-chen · 发表于 2024-1-25 15:17

学习了，谢谢老师

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

[分享] Excel通用按列拆分成工作簿/工作表/另存为PDF/分组直接打印（保留原格式）