整表复制汇总到一个工作簿指定表里

yunwufengxue · 发表于 2023-2-8 17:05

本帖最后由 yunwufengxue 于 2023-2-8 17:25 编辑

求大神给个代码：要求就是把同文件夹下的包含“社区”工作簿里的表1整表复制到“社区”表里，格式样式相同；同样，把同文件夹下的包含“村”工作簿里的表1整表复制到“村”表里，等等，还有很多表复制过来。复制过来的表顺序按照主工作簿的工作表名顺序黏贴。

shiruiqiang · 发表于 2023-2-8 20:30

-------------------------新手路过，不包售后---------

yunwufengxue · 发表于 2023-2-9 11:44

shiruiqiang 发表于 2023-2-8 20:30
-------------------------新手路过，不包售后---------

非常感谢大神，修改一下挺顺畅。另外在哪里加一句代码，把汇总表里面复制过来的数据清空了再执行复制黏贴。

shiruiqiang · 发表于 2023-2-9 12:21

本帖最后由 shiruiqiang 于 2023-2-9 12:25 编辑

yunwufengxue 发表于 2023-2-9 11:44
非常感谢大神，修改一下挺顺畅。另外在哪里加一句代码，把汇总表里面复制过来的数据清空了再执行复制黏贴 ...

一开始就处理一下，for each sht ，sht.cells。注意一下，第一行需要保留，否则表写入不了（因为你的分表都不知道怎么样，统一处理了）

yunwufengxue · 发表于 2023-2-9 14:47

本帖最后由 yunwufengxue 于 2023-2-9 14:48 编辑

shiruiqiang 发表于 2023-2-9 12:21
一开始就处理一下，for each sht ，sht.cells。注意一下，第一行需要保留，否则表写入不了（因为你的分表 ...

不好意思，我的意思没有表达准确，就是把准备黏贴的这些表的原始数据清除，汇总表里面有几张表是固定的输出模式，只需要更新后面的表就可以吧需要的数据引用到固定输出模式表里面了。应该是需要要清除f.Name, sht.Name这一部分数据。还有就是分表里面的标题行都在第一行。

shiruiqiang · 发表于 2023-2-9 14:57

清除分表很简单，但是个人来说不建议，因为万一表格有错误，追溯的话，你的备份表格都没有了，还不如放到别的文件夹下算作备份。

yunwufengxue · 发表于 2023-2-9 15:38

shiruiqiang 发表于 2023-2-9 14:57
清除分表很简单，但是个人来说不建议，因为万一表格有错误，追溯的话，你的备份表格都没有了，还不如放到别 ...

另辟蹊径，豁然开朗！

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

[求助] 整表复制汇总到一个工作簿指定表里