将汇总表按标准模板拆分

adminsong · 发表于 2019-12-30 10:56

liulang0808 发表于 2019-12-30 07:49
在原来代码上做了调整，供参考。。。。。。

老师您好，我之前没表达清楚，现在是按照工程拆分的，能不能将拆分的表格全部放在一个新的工作簿里，

liulang0808 · 发表于 2019-12-30 12:10

不知道理解对不对。。。。。。

adminsong · 发表于 2019-12-30 13:12

liulang0808 发表于 2019-12-30 12:10
不知道理解对不对。。。。。。

麻烦老师了，是想把新拆分的表格再新建一个工作簿，把所有的新拆分表格都放在这个工作簿里，您给的这个也可以，但是如果能按照新的拆分就更好了，麻烦老师了

liulang0808 · 发表于 2019-12-30 13:21

adminsong 发表于 2019-12-30 13:12
麻烦老师了，是想把新拆分的表格再新建一个工作簿，把所有的新拆分表格都放在这个工作簿里，您给的这个也 ...

新的不知道是怎么拆分的，楼主参考下代码根据自己的需求修改看看
有问题再反馈

adminsong · 发表于 2019-12-30 13:23

liulang0808 发表于 2019-12-30 12:10
不知道理解对不对。。。。。。

老师您好，按照您上次的代码改过来了，已经达到预期的效果，谢谢老师
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & arr(1) & arr(2) & ".xlsx" 你给的这个代码就是新建工作簿的

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