[原创]跨文件夹查询合并，汇总统计：新版升级 2006-09-21

wuxingch

不知大家在使用中，有没有发现，有个缺点？

如果，在工作薄DATA中，刷选后，再查询的话，有的就找不到了!

请版主，修改!!

Samsea

以下是引用wuxingch在2004-11-15 16:53:00的发言：

不知大家在使用中，有没有发现，有个缺点？

如果，在工作薄DATA中，刷选后，再查询的话，有的就找不到了!

请版主，修改!!

谢谢你的发现，已在35楼更新.

希望使用这个加载宏的网友多提建议，并告知使用中发现的问题，以便进一步完善。

gxhg

不错啊，学习一下。

wuxingch

请问，版主，假如数据源不在同一个文件下，但在同一个目录下，怎么汇总

Syz96vAB.rar (188.32 KB, 下载次数: 111)

2004-11-15 20:40 上传

点击文件名下载附件

请版主帮我，修下

[此贴子已经被作者于2004-11-15 20:39:09编辑过]

Samsea

以下是引用wuxingch在2004-11-15 20:24:00的发言： 请问，版主，假如数据源不在同一个文件下，但在同一个目录下，怎么汇总

数据源可以不在同一个文件下,可以汇总窗口下的所有文件. 但本加载宏没有对目录进行操作.

龙云枫

查询表的确好用，可是我有一点不知道能否做到。比如，我同时打开两个DATA的EXCEL表格。DATA1.XLS，DATA2.XLS,查询表在DATA1工作薄内。我只想查询表只查它所在的工作薄内也就是DATA1。XLS，不查DATA2。XLS。

我现在就有此烦恼，当我同时打开多个表格时，查询结果就乱了。我只想查单独的工作表。局限在一个表内。

Yangzhh

小弟在源程序中有一些地方不明，请楼主不吝赐教：源程序中关于MR这段中

MR(C) = Cells(65536, C).End(xlUp).Row 中的.End(xlup).Row 以及

MROW = Application.WorksheetFunction.Max([MR]) 中的.WorksheetFunction和

For I = 2 To MROW For C = 1 To D If CA(C) <> "" Then FT(C) = Application.WorksheetFunction.CountIf(.Cells(I, C), CA(C)) End If Next

是什么意思？虽然看了前面的解释，但还是有点疑惑。

[此贴子已经被作者于2004-11-16 10:49:53编辑过]

Samsea

To 龙云枫,

新方案有自动查询或者选择查询，你可用选择查询就可做到。

To Yangzhh,

MR(C) = Cells(65536, C).End(xlUp).Row 中的.End(xlup).Row ' 确定某列的最后一行。

MROW = Application.WorksheetFunction.Max([MR]) 中的.WorksheetFunction和 'Max() 是Worksheet函数。调用它时加上Application.WorksheetFunction.

For I = 2 To MROW For C = 1 To D ' 找有没有符合查询项的条件。每行查询太慢，现在已改用别的方法。 If CA(C) <> "" Then FT(C) = Application.WorksheetFunction.CountIf(.Cells(I, C), CA(C)) End If Next

wuxingch

请问，版主，假如数据源不在同一个文件下，但在同一个目录下，怎么汇总

44楼

能否把代码，注上解释？

[此贴子已经被作者于2004-11-17 19:16:32编辑过]

Samsea

以下是引用wuxingch在2004-11-17 19:09:00的发言：

请问，版主，假如数据源不在同一个文件下，但在同一个目录下，怎么汇总

44楼

能否把代码，注上解释？

你的问题45楼已回答。关于代码解释请看：

http://www.officefans.net/cdb/viewthread.php?fpage=9&tid=28929 9楼有简单解释。