[原创] 透视表汇总5个工作簿数据！(令人惊叹的功能！)

lgcmeli

确实厉害啊。共享也可以吗？

zhangyuewei

请问楼主，您用基本操作是如何操作的，能做个演示教程发上来大家分享么？？？

gljzyp

学习中!!!!!!!!!!![em02]

yanjie

QUOTE:

以下是引用lgcmeli在2008-1-18 14:08:49的发言：
确实厉害啊。共享也可以吗？

“共享”是什么意思？

我只尝试过在“共享文件夹”里面的文件，汇总十几个工作簿都行！

在“共享工作簿”里面没有用过！

little-key

不错，学习一下

abcd321abcd

QUOTE:

以下是引用yanjie在2008-1-14 19:24:30的发言：

二者都能做出来！

用代码可以做，用基本操作也可以做出来！

楼主尚且用几个月方才调试成功，我等很难短期掌握。期待楼主用代码和基本操作两方面作一讲解。

一丨丿丶乙

学习

smhf_6

首先，向版主表示感谢。

用数据透视表远比自己用函数，用宏轻松的多，但平时我只会用一张表的数据，且是用手工生成透视表。

本楼主是用多张表的数据，且是代码生成透视表。

看了一遍，大致意思好象是先将所有数据联合，放入透视缓冲区，然后再生成透视表。但生字实在太多，用法也不熟悉，虽然在帮助中找到了一些解释，一下子也不好理解，只能慢慢消化。

虽然疑问很多，先提一个：文件联合时这种表示方式没用过，如\2`.`A$`，另外，您的表都是很干净的，实际工作一般都不会是这样的，往往有表头表尾甚至左右都有，数据只是中间一块，而标题行（字段名）也不是简单的一行，可能存在二级标题行，而您的代码中仅仅是联合到工作表的名称为止，如A$。

UNION ALL SELECT * FROM `" & ThisWorkbook.Path & "\2`.`A$` UNION ALL SELECT * FROM `" & ThisWorkbook.Path & "\2`.`B$` UNION ALL SELECT * FROM `" & ThisWorkbook.Path & "\2`.`C$`"

[此贴子已经被作者于2008-1-19 7:30:12编辑过]

bgphse

嗯，收藏，好好的研究下

ybin007

不错的代码！

但是有很多地方还是需要自己修改的。