常用工具6.4测试版(拆分、合并、汇总、SQL）功能更强大

晨曦矇眬 · 发表于 2010-2-23 13:04

我还是用回以前的版本！

一起观月 · 发表于 2010-3-2 19:11

我发现一个缺点
合并一个目录下的几个工作簿，但里面每个表都设置了帅选，
即，我本来表中100条记录的，我根据条件帅选查看其中的10条，保存了。
那么，合并时，数据就只合并了10条。其他的就没有参与合并。。。。
非要将原来的表一一打开查看全部，保存，方能合并完全。。。。
假设不考虑帅选的问题，请问如何修改，才能将所有数据合并完全？

---------2010.3.9找到包含帅选的方法---------------------：
同路径工作薄合并成工作表() 函数下，将下面行

If CheckBox6.Value Then Workbooks(li).Sheets(i).Rows.EntireRow.Hidden = 0 '去隐行

复制代码

修改为

If CheckBox6.Value Then
Workbooks(li).Sheets(i).Rows.EntireRow.Hidden = 0 '去隐行
Workbooks(ListBox2.List(j)).Sheets(i).AutoFilterMode = False '去帅选
End If

复制代码

这样，在同路径工作薄合并成工作表时，选择“复制隐藏行”，即可将隐藏的以及帅选去掉而复制所有。

[ 本帖最后由一起观月于 2010-3-9 09:18 编辑 ]

qwerqwer00 · 发表于 2010-3-2 21:36

强大。
不是一点两点的强大。

yuyangqh · 发表于 2010-3-4 00:54

今天VBA开课了，老师讲到了彭老师完成的作品，太激动了，原来可以做成这样，你太棒了！

cingdy · 发表于 2010-3-5 14:04

和楼上一样，VBA入门班学员组团前来观摩。
下载，收藏，学习。
重要是赞赞版主无私的分享精神！

christylhx · 发表于 2010-3-6 11:46

是啊,赶快进来学习一下,感谢分享

chenzhiying · 发表于 2010-3-6 19:31

比原来多了些什么好用的吗？

mmss09 · 发表于 2010-3-8 22:35

谢谢分享..学习中.

彭希仁 · 发表于 2010-3-9 17:45

原帖由 lst2003130 于 2010-3-7 00:33 发表
建立字典后（存在100001，100002待检索内容），只检索一条时，如待查员工号100001，返回NULL,而检索一条以上时，如待查员工号100001，100002，返回两条记录。v6

有样表吗,我想看看,

山风点伙 · 发表于 2010-3-10 09:20

原帖由 hongrizheng 于 2010-1-20 23:08 发表
试用了，有很大用处。我的工作需要。感激了。
最抵死的是合并支持EXCEL2007，我的十几万数据要用上了。分拆工作表也有很大用处。谢谢你了。
最好还能按记录数进行折分。按记录数拆分的话，文件名从1起或 ...

原来的也支持2007的，我试过了，单独使用是不行的，可以先装2003再装2007，这样在2007下使用就正常了，呵呵

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

[推荐] 常用工具6.4测试版(拆分、合并、汇总、SQL）功能更强大

建目录的功能有点问题

感谢