将1工作簿中多个工作表的数据按照列名拆分成多个工作簿

mocean

魂断蓝桥 发表于 2014-11-17 10:55
Sub cf()
Dim cnn As Object, rs As Object, SQL$, sFile$, i&, J&
Dim msg As VbMsgBoxResult

大师，我有两个问题，能否帮忙修改一下代码
1、拆分后的数据保留原数据的格式
2、拆分后的数据按*.xlsx格式保存


谢谢！

lxzhen163

感谢，但我拆分时怎么只拆分了第一个工作表呢，能指点一下吧？

坏也是一种态度

zhaogang1960 发表于 2013-6-2 19:55
请测试:

大侠你帮我看下这个应该怎么搞
我这也是拆分，但用你的代码我总是改不好
基本规则和此楼主是类似一样的
谢谢大侠帮下忙
http://club.excelhome.net/thread-1237423-1-1.html

huazai688

收藏学习！！！！！！！！！！！

星凝

魂断蓝桥 发表于 2014-11-17 10:55
Sub cf()
Dim cnn As Object, rs As Object, SQL$, sFile$, i&, J&
Dim msg As VbMsgBoxResult

大师，能否帮忙修改一下代码，使得拆分后的数据保留原数据的格式！
这个数据拆分困扰了我一年了！感谢！

卧室交锋

魂断蓝桥 发表于 2014-11-17 10:55
Sub cf()
Dim cnn As Object, rs As Object, SQL$, sFile$, i&, J&
Dim msg As VbMsgBoxResult

就是这个能用，把vba中的“公司”改成你自己想要分列的列标题即可将所有该列重复行数据分成单独的文件，太屌了。

lsc900707

三位大师出手果真不凡呀，拆分效果杠杠的。

卧室交锋

魂断蓝桥 发表于 2014-11-17 10:55
Sub cf()
Dim cnn As Object, rs As Object, SQL$, sFile$, i&, J&
Dim msg As VbMsgBoxResult

请教大神运行后提示运行错误9，下标越界。数据多少都提示，但是能够按要求分出文件来。

cqcbc

学习了，几位老师的作品，堪称经典。

lsc900707

卧室交锋 发表于 2016-7-30 11:54
请教大神运行后提示运行错误9，下标越界。数据多少都提示，但是能够按要求分出文件来。

建议上传附件以便查找原因。