灵活拆分工具之四

3190496160 · 发表于 2020-9-21 08:09

zzia1112 发表于 2020-9-20 21:18
好像是我的数据源问题，请老师帮忙看看，按单位代码拆分时，拆分后如下图，谢谢老师

你的问题适合用这个工具，到16楼下载最新版本
【新提醒】Excel 灵活拆分工具之二-ExcelVBA程序开发-ExcelHome技术论坛 - http://club.excelhome.net/thread-1533849-1-1.html

上善若水888882 · 发表于 2020-12-19 22:33

今天算是开眼界了，用了一天的时间，从拆分工具之一到拆分工具之六，一一研究了一遍，算是有点点收获啦！谢谢分享！

上善若水888882 · 发表于 2020-12-20 12:04

3190496160 发表于 2020-8-31 10:43
1.改进了代码思路，可以完全保留原工作表的所有格式，包括页面设置等等，
2.修正了几个小错误

代码里的“数据源”是什么意思？另一张辅助表的名称是“源”，似乎都能正常运行呢？另外结束语句弹出的界面想将“OK！”改为“工作薄（表）拆分完毕！”，但一直不行，仍显示的OK，不咋懂ⅤBA，整不明白。

上善若水888882 · 发表于 2020-12-20 17:57

上善若水888882 发表于 2020-12-20 12:04
代码里的“数据源”是什么意思？另一张辅助表的名称是“源”，似乎都能正常运行呢？另外结束语句弹出的界 ...

终于找到修改的位置了，完美解决问题啦！只是没有弄懂模块里“数据源”和窗体里的“源”这里的引用为什么都可以？

上善若水888882 · 发表于 2020-12-21 18:42

好工具，好东西，谢谢分享！

上善若水888882 · 发表于 2020-12-26 16:17

依葫芦画瓢，修改了一下，完全符合我希望的啦！

xwj.SaveAs Filename:=ThisWorkbook.Path & "\拆分文件" & ar(1, j) & "社会保险-" & Format(Date, "yyyy年mm月") & ".xlsx"

复制代码

陈功 · 发表于 2020-12-26 17:46

灵活拆分工具，谢谢分享

重返大海 · 发表于 2021-7-6 13:25

大神：请问用这个代码拆分的时候，提示：运行时错误‘'13' 类型不匹配是什么原因？

abc5300022 · 发表于 2021-8-20 11:50

谢谢老师分享

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

[分享] 灵活拆分工具之四