求助：报表自动拆分功能

海哥2011 · 发表于 2013-5-8 17:54

各位：附件是我自己做的一个销售报表的样式，需要按照团队进行拆分，然后发送给不同的人员，我想有没有这种程序可以自动拆分成不同的组别，然后发送给各相关人员呢，我平时处理的报表中有很多类似的，需要不停的拆分。请大师们帮忙指点一下。感谢。
想实现的功能：自动拆分，自动发送给各相关人员。

hehex · 发表于 2013-5-8 19:15

本帖最后由 hehex 于 2013-5-8 21:33 编辑

请参考附件。
会自动在你的当前工作薄所在文件夹下面的\departments\ 子文件夹下生成各个部门的记录的.xlsx 文档。
需要在使用前先建立好该名字的子文件夹，如果要修改文件夹的名称，请按alt+f11 参考程序源码，里面注释写的比较清楚如何改，注意事项等等。

另外，关于自动发送邮件功能，如果你使用的是微软office 里的outlook 组件（不是outlookexpress,是outlook)的话，我可以试写一下相关代码。
这几天正尝试学这方面的知识。

有任何问题，请联系我。

海哥2011 · 发表于 2013-5-9 17:26

非常感谢。功能很强大，节省了大量重复工作。我再仔细看看。

海哥2011 · 发表于 2013-7-24 15:14

hehex
您好！
你给我写的程序对我帮助很大。
你给我的这个拆分程序，我测算了一下如果日报有两万行，处理速度大概在5-10秒之间。非常实用，还有一点需要你帮忙再修改一下。
1、总表中有多个部门，我只需要将基础数据部分涉及的部门拆分出来
2、以本报表为例，总表中有三个部门，彩电事业部，冰箱事业部，笔记本事业部，我只需要将基础数据这个sheet中列示的冰箱事业部、笔记本事业部拆分出来；因为基础数据部分无人事部，所以人事部数据不做任何处理
3、我这么做的原因是，销售总表是包含各个团队的，我只负责其中的一部分团队，所以我只需要摘取一部分团队的明细，发给不同团队负责人。
4、各分表格式与总表保持一致，特别是分表中的日期部分。
请帮忙再看看这个代码改怎么写呢。

部分团队拆分.zip (33.55 KB, 下载次数: 12)

海哥2011 · 发表于 2013-7-24 16:01

另外，关于自动发送邮件功能，如果你使用的是微软office 里的outlook 组件（不是outlookexpress,是outlook)的话，我可以试写一下相关代码。
这几天正尝试学这方面的知识。

有任何问题，请联系我。
---自动发送邮件部分，我在网上找到了CDOMail这两天在调试。我看有的人还用jmail系统在设置。

hehex · 发表于 2013-7-25 12:41

海哥2011 发表于 2013-7-24 16:01
另外，关于自动发送邮件功能，如果你使用的是微软office 里的outlook 组件（不是outlookexpress,是outlook) ...

已经修改代码完成你按配置文件拆分报表的功能。
请自行测试是否有问题。
利用CDO 对象发送邮件可以给你编写，但是你需要提供一个发送用的测试邮箱的账户密码
网上free 的就可以，仅供测试使用。

海哥2011 · 发表于 2013-7-26 17:52

报表事例.zip (19.39 KB, 下载次数: 13)
你好
非常感谢你的回复。
有一部分代码我没看明白哈，我把我的疑问以备注形式放上去了。
另外，不需要判断是否有有没有文件存在，我会提前创建好。
清空分表文件内容的时候可以只清空按team命名的sheet，其他sheet保留么。
比如说只清空工作表冰箱事业部中的worksheet(”冰箱事业部")，对于此文件中的其他sheet保存。
我这样做的想法是，要把各分表当做一个管理平台。此分表包含明细表，还包含汇总表，其中汇总表中我会添加目标、应收等信息。
也就是说各分表不只包含明细，还包括很多汇总报表。
你再帮忙看看。
感谢

hehex · 发表于 2013-7-29 11:28

海哥2011 发表于 2013-7-26 17:52
你好
非常感谢你的回复。
有一部分代码我没看明白哈，我把我的疑问以备注形式放上去了。

关于程序中dic 和dic1 的问题，最早的源程序中是根据你的总明细表提取部门，为了避免重复，使用了字典对象来处理。后来你提供了基础数据表，仅从基础数据表中读取表名，因为理论上基础数据表内的部门名一列是不应出现重复记录的，其实是否使用字典已经无所谓。为了使程序改动不太大增加调试工作量，因此仍旧使用字典对象。所以先定义了一个dic1,后经分析发现，源表已经不必要再用字典去取表格名，直接从数据表读取即可。因此一个字典足矣，dic1 根本就没有用了，所以注释了。删除也可以，关于字典相关内容，可以参考论坛的相关教程这里不再赘述。
说一下这次更新的内容，即不再根据你原有表格名判断删除写入表内容，而是根据你的基础数据表上设置的部门名进行生成和删除。比如，目前是“笔记本部”和“冰箱部”两个部门，系统会自动判断将这两个部门生成的明细导出生成独立的工作薄，并删除这两个工作表。其他的工作表都会保留。目前只有“总表”和“基础数据”这两张表格的表格名称都不能发生改变，因为程序中直接读取这两张表格的名称。其他的表格名再多也不会被改动和删除。

具体参考附件吧

海哥2011 · 发表于 2013-7-29 15:11

hehex
您好！非常感谢你抽出宝贵时间回复。
我刚才试验了一下，还会把各分表中的其他sheet会删除掉，如果不好处理，你就帮忙把判断是否存在文件去掉吧。
总共有八个部门，我会提前设置好的。
另外日期部分会变成41283，这个你帮忙看看改怎么调整一下呢。
感谢。

hehex · 发表于 2013-7-29 16:34

海哥2011 发表于 2013-7-29 15:11
hehex
您好！非常感谢你抽出宝贵时间回复。
我刚才试验了一下，还会把各分表中的其他sheet会删除掉，如果 ...

日期格式问题，是由于你用的源数据表日期列的格式设置有问题。把该列设为日期，这个与程序无关。
最新的程序代码生成部门数据工作表以及外存工作薄还有在外存后自动删除部门数据工作表，完全是根据
你的"基础数据"工作表的A2 单元格起始向下的内容做的。
换句话说，如果你需要的工作表没有在基础数据的部门列下面，是不会生成数据，外存和删除的。
所以你说的其他sheet 也被删除，是不能理解的。应该是你用了以前代码版本。
请使用最新的附件程序模块1（Moudule1) 里面的两个sub 过程。
如果还不行，把你测试会删除sheet 的文件打包发上来。

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