求助：指定表格按模板拆分成独立的工作簿

一指禅62

紫寒100 发表于 2021-3-31 06:36
老师，早安。
辛苦您了，这么晚还回复我。谢谢您。可以帮我再写一段拆分03表，其他要求不变的代码吗？麻 ...

总表拆分成独工作簿.zip (41.74 KB, 下载次数: 33)

2021-3-31 08:43 上传

点击文件名下载附件

加了个进度提示：

紫寒100

一指禅62 发表于 2021-3-31 08:44
加了个进度提示：

谢谢老师。辛苦您了。

紫寒100

老师，谢谢您，效果真的很好，我还有一个问题，如果模板1和模板2是两个单独的工作簿，不在待拆分的数据源工作簿里，与数据源放在同一个文件夹中，这样的话，用03表和04表分别拆分保存，其余条件不变，能帮我一下吗？

紫寒100

zpy2 发表于 2021-3-31 08:11
：直接从【原表】中取数，可能效率更高一些。

嗯，您和楼上老师都这样想的，不是我不给，是因数原表不是我做的，很大很乱，然后......我什么也不敢说什么也不敢问，只能自己整理出需要的数据，这个你懂的。从03或04两个表拆分出数据就可以了。两套代码。

紫寒100

一指禅62 发表于 2021-3-31 08:44
加了个进度提示：

老师再请教一个问题，代码中的Sheet1 Sheet4 Sheet6如果替换成表名，代码要如何修改呢？

紫寒100

一指禅62 发表于 2021-3-31 08:44
加了个进度提示：

老师。拆分结束后，模板表不保留数据。

紫寒100

一指禅62 发表于 2021-3-31 08:44
加了个进度提示：

老师有几个问题，再麻烦你帮我修改一下，谢谢啦。
1、打开数据表的时候，当前文件夹马上生成几个相对应的空文件夹，你是如何设置的呢？能修改吗？如果列字段名发生了改变，代码就不能用了，调试出错。
2、拆分结束后，模板表不保存数据。
3、代码中的Sheet1 Sheet4 Sheet6能替换成表名吗？
辛苦老师百忙之中帮我修改一下。谢谢。

紫寒100

一指禅62 发表于 2021-3-31 08:44
加了个进度提示：

老师，修改文件夹名，我知道了，打扰你了哦，其他几个问题我还没有解决呢。望老师指导。