BBS - Powered by Discuz! Board

标题: 应坛友maximus需求，提供批量生成工作簿辅助程序（仅供学习和交流） [打印本页]

作者: zhendeaini 时间: 2015-10-23 09:05 标题: 应坛友maximus需求，提供批量生成工作簿辅助程序（仅供学习和交流）

前面给大伙演示了批量产生工作簿的演示，相信大家也很想下载，在此应坛友maximus需求，提供批量生成工作簿辅助程序（仅供学习和交流）。

附件为半成品，因为还有些数据是没有摆上去的，所以只能说是半自动产生，如果数据完整的话，应该算是全自动产生（还需修改下代码）。现提供样板，里边设置了保护密码！如果有更好地建议，可以跟帖反馈，谢谢大家！

使用方法：
申明：本辅助程序属于测试版本，在使用过程中出现的任何不可估量的返工与本人无关，不能责怪本人。
说明：
本辅助程序是以2015年度企业调查表样表.xlt为模板批量产生工作簿。理论上所产生的工作簿与模板是一致的，但在实践测试过程中，发现模板中2015工作表有很多内容限制，比如说独特的下拉列表设置（D8、D9、H9单元格，尤其注意的是D9这个单元格），在克服一些困难，可以产生各个工作簿，数据也可以填写进去，但是不保证能否导入系统（如果需要导入系统的话），请使用者谨慎使用。
功能特点：
目前这个版本可以批量产生工作簿，且工作簿的内容与纳税户一一对应。目前可实现纳税人名称、纳税人识别号、联系人、联系电话、企业所得税主管税务局、电子邮箱、登记注册名称、所属行业名称等免手工填写。为防止出错，建议再次手工点击“登记注册类型名称”（方法点击D9的下拉列表选择），因为这个比较特殊。
使用方法：
1、打开2015年度企业调查表样表.xlt，A1：H1为标题栏，然后根据A1：H1标题栏的内容在A2：H范围区域内编辑数据。I和J列为自动生成列，不要动。
2、数据复制粘贴好后，保存数据，另存为2015年度企业调查表样表1.xlt或其他，然后关闭文档。
3、打开操作表.xls，选择刚才的表格（步骤一），选择要保存的格式（步骤二），点击“点击自动生成各个2015企业减免税调查表”（步骤三）即可批量产生各个工作簿。此过程视同数据多少而定，一般稍等片刻即可。
4、打开产生的工作簿编辑其他各项数据，为防止出错，建议再次手工点击“登记注册类型名称”（方法点击D9的下拉列表选择）。注意B1的审核提示内容。

对应网址：http://150.48.48.12/bbs/viewthread.php?tid=19463&extra=page%3D1

注意：根据坛友的描述，
1、该表是需要导入对应系统的→因没有亲身测试能否导入，所以这个不得而知。
2、文件的名称必须是所对应纳税户的识别号。就是说文件名必须是识别号.xls，目前辅助程序可以自动产生纳税户识别号.xls。

附件: VBA 5 （正式版）批量产生工作簿.zip (2015-10-23 09:05, 214.41 KB) / 该附件被下载次数 35
http://hahabbs.w1.luyouxia.net/bbs/attachment.php?aid=138567

图片附件: 批量生成工作簿.gif (2015-10-23 09:05, 1.91 MB) / 该附件被下载次数 28
http://hahabbs.w1.luyouxia.net/bbs/attachment.php?aid=138568

作者: rx782 时间: 2015-10-23 09:22

XLT文件系减免税系统系读唔到的~~一定要系XLS格式啊~~~

作者: zhendeaini 时间: 2015-10-23 09:52

引用:

原帖由 rx782 于 2015-10-23 09:22 发表
XLT文件系减免税系统系读唔到的~~一定要系XLS格式啊~~~

演示是旧的，里边的附件是新修改的。[0]

PS：附件中可以自由选择需要导出格式，如.xls.xlt.xlsx等。根据需要输出。

作者: maximus 时间: 2015-10-23 10:31

谢谢！！！！

这个最少能把几天的工作量压缩成一个小时或更少

[82] 。

作者: zhendeaini 时间: 2015-10-23 10:36

引用:

原帖由 maximus 于 2015-10-23 10:31 发表
谢谢！！！！

这个最少能把几天的工作量压缩成一个小时或更少

[82] 。

嗯，这只是半成品，[0]，如果需要添加减免税信息，还需修改代码的。

作者: maximus 时间: 2015-10-23 11:13

引用:

原帖由 zhendeaini 于 2015-10-23 10:36 发表

嗯，这只是半成品，[0]，如果需要添加减免税信息，还需修改代码的。

这个我用了个简单的方法解决了。减免税信息在原表的基础上设置了VLOOKUP。

试用了一下。超级好用。

作者: maximus 时间: 2015-10-23 11:19

上面所说的时间：一小时或更少。其实大多数时间是用来准备其他数据。实际上用这个辅助程序，在数据准备好了的情况下。不到一分钟左右就完成了。超级好用！速度之快简直就是想象之中、意料之外啊！版主真是大才。可以说这一分钟时间的效果。相当原来做3个小时才能达到的效果（约200户的数据量）。如果在数据量几何级增加的情况，节省的时间那就不可计量了。

作者: zhendeaini 时间: 2015-10-23 11:30

引用:

原帖由 maximus 于 2015-10-23 11:19 发表
上面所说的时间：一小时或更少。其实大多数时间是用来准备其他数据。实际上用这个辅助程序，在数据准备好了的情况下。不到一分钟左右就完成了。超级好用！速度之快简直就是想象之中、意料之外啊！版主真是大才。可以 ...

谢谢，使用VBA目的就是能减轻工作量，之前我测试过，使用该辅助程序，一分多一点时间可以产生55个工作簿，也算是比较快的吧。把你修改后的也共享下，毕竟我没做过这个减免税调查表，只是帮我同事做的。[0]

作者: rx782 时间: 2015-10-23 11:33

如果早几日出现就唔使做到我趴到啦~~成1300几户啊~~~一户户另存为~~~~[48] [48]

作者: zhendeaini 时间: 2015-10-23 11:38

引用:

原帖由 maximus 于 2015-10-23 11:13 发表

这个我用了个简单的方法解决了。减免税信息在原表的基础上设置了VLOOKUP。

试用了一下。超级好用。

因为我不清楚那个减免税系统，所以没有在原表设置公示，怕就是出错。[0]

作者: zhendeaini 时间: 2015-10-23 11:39

引用:

原帖由 rx782 于 2015-10-23 11:33 发表
如果早几日出现就唔使做到我趴到啦~~成1300几户啊~~~一户户另存为~~~~[48] [48]

这个在当时我就做好了哦，只是没拿出来共享，因为不是我负责做这块，纯属帮同事做了这个辅助程序。[0]附件为半成品，还需要根据实际再修改下，或使用Vlookup函数或修改下代码。

作者: maximus 时间: 2015-10-26 10:45

引用:

原帖由 zhendeaini 于 2015-10-23 11:30 发表

谢谢，使用VBA目的就是能减轻工作量，之前我测试过，使用该辅助程序，一分多一点时间可以产生55个工作簿，也算是比较快的吧。把你修改后的也共享下，毕竟我没做过这个减免税调查表，只是帮我同事做的。[0]

已上传。不过我做的很简陋的。因为我手上的数据只有征前减免。而且一个企业只有一条减免信息。
其实就是简单的用VLOOKUP把其他单元格的数字填进去。
用VBA只填一个数据就可以了（其他数据都可以用VLOOKUP）

[ 本帖最后由 maximus 于 2015-10-26 10:59 编辑 ]

附件: 2015年度企业调查表样表1.xlt (2015-10-26 10:59, 555.5 KB) / 该附件被下载次数 24
http://hahabbs.w1.luyouxia.net/bbs/attachment.php?aid=138601

作者: maximus 时间: 2015-10-26 11:06

原表因为设置了很多限制，有些地方没去研究怎么恢复。合计那里用函数无效，直接用了=单元格。如果有多行减免信息，需要重新进行调整。
我原来的思路是如果有企业有多行减免信息单独处理的。所以没再去完善这个瑕疵。

还有如果读取的减免政策文件号是“其他”会引用不了，因为数量不会很多可以手工处理。

[ 本帖最后由 maximus 于 2015-10-26 11:24 编辑 ]

作者: zhendeaini 时间: 2015-10-26 22:18

引用:

原帖由 maximus 于 2015-10-26 11:06 发表
原表因为设置了很多限制，有些地方没去研究怎么恢复。合计那里用函数无效，直接用了=单元格。如果有多行减免信息，需要重新进行调整。
我原来的思路是如果有企业有多行减免信息单独处理的。所以没再去完善这个瑕疵 ...

不要尝试去破解模板的保护密码，毕竟这是税总发来的，有空你再研究下！[0]

欢迎光临 BBS (http://hahabbs.w1.luyouxia.net/bbs/)