使用vba生成汇总多个工作簿的多工作表数据透视表SQL命令文本[46楼有更新]

商人 · 发表于 2011-6-21 17:39

木有木有，哈哈哈，以为是故人&校友。同名，同姓，高级程序员。
赵刚老师能不能为我看看我的问题，是您的工具帮助下做的，遇到个奇怪的问题了。帖子见：
http://club.excelhome.net/viewth ... &extra=page%3D1

先谢谢了

zhaogang1960 · 发表于 2011-6-21 17:47

原帖由商人于 2011-6-21 17:39 发表
木有木有，哈哈哈，以为是故人&校友。同名，同姓，高级程序员。
赵刚老师能不能为我看看我的问题，是您的工具帮助下做的，遇到个奇怪的问题了。帖子见：
http://club.excelhome.net/viewthread.php?tid=733144&pid ...

不好意思，摆弄了半天，就是出不来透视表
我本来就不会透视表，写本文的时候学了几天，现在全忘了
实在抱歉

商人 · 发表于 2011-6-21 17:57

不是哇。。。。

你的是啥版本的，2003，还是2007或者2010的？后二者类似。

zhaogang1960 · 发表于 2011-6-21 18:31

原帖由商人于 2011-6-21 17:57 发表
不是哇。。。。
你的是啥版本的，2003，还是2007或者2010的？后二者类似。

我有2003和2010两个版本

回家重新回忆透视表终于做出来了一个，不知是否合题意，附件已经发到你的帖子里

商人 · 发表于 2011-6-21 19:20

原帖由 zhaogang1960 于 2011-6-21 18:31 发表

我有2003和2010两个版本

回家重新回忆透视表终于做出来了一个，不知是否合题意，附件已经发到你的帖子里

谢谢老师热情解答，前面我的附件乌龙了，向您表示歉意，浪费了您不少时光了。在我问题帖子里，我补充叙述了，而且发现了其他的“怪现象”，呵呵~~

zhaogang1960 · 发表于 2011-6-22 10:23

更正
1楼附件中存在缺陷
模块中的3个子程序的If Left(temp, 1) <> "F" And IsNumeric(Mid(temp, 2)) = False Then中的And 是错误的，应该是Or ：
If Left(temp, 1) <> "F" Or IsNumeric(Mid(temp, 2)) = False Then
现重新上传附件：

使用vba生成透视表SQL命令文本(不同工作簿).rar (63.33 KB, 下载次数: 3074)

使用vba生成透视表SQL命令文本(2007、2007兼容2003).rar (204.9 KB, 下载次数: 2877)