Excel 同时在同一张表上向下钻取3个独立的OLAP数据透视表

Excel 同时在同一张表上向下钻取3个独立的OLAP数据透视表,excel,vba,pivot-table,Excel,Vba,Pivot Table,我有一个数据源可以在同一张表上创建3个数据透视表,TCSum 这三个表彼此相邻排列,并且所有三个表在数据透视表字段中都有相同的两行,顺序如下:区域-市场 我不想让Region列显示3次,所以我在TCSum工作表中隐藏了G列和K列 当我为我的第一个区域单击A列中的展开按钮时,它会展开所有3个表 我找到了。我在那里尝试了两种方法,在更有效的方法中,我用4个不同的条目更新了这一行 我试过: PivotFieldIndex = "Region" PivotFieldIndex = "[Region]"

我有一个数据源可以在同一张表上创建3个数据透视表,TCSum

这三个表彼此相邻排列,并且所有三个表在数据透视表字段中都有相同的两行,顺序如下:区域-市场

我不想让Region列显示3次,所以我在TCSum工作表中隐藏了G列和K列

当我为我的第一个区域单击A列中的展开按钮时,它会展开所有3个表

我找到了。我在那里尝试了两种方法,在更有效的方法中,我用4个不同的条目更新了这一行

我试过:

PivotFieldIndex = "Region"
PivotFieldIndex = "[Region]"
PivotFieldIndex = "Market"
PivotFieldIndex = "[Market]"
我尝试了Region和[Region],因为我认为既然这是添加到数据模型中的,那么正确的数据透视字段索引可能需要包含它们。我是通过在一个数据模型源和一个常规表源上记录一个宏得出这个结论的

我还意识到,常规透视表使用ShowDetail,而OLAP使用DrilledDown,因此我尝试用DrilledDown替换每个ShowDetail,但运气不佳。我将此数据添加到数据模型的原因是第三个透视表使用了折扣计数函数

另一篇文章中的说明提到了数据透视表的工作表需要在最左边,即TCSum,但是当我在visualbasic中查看时,我看到了Sheet3(TCSum),所以我也尝试替换它

Set wks = wkb.Sheets(1)

我想为什么不试试呢

Set wks = wkb.Sheets("TCSum")
当我单击任何行上的展开按钮时,我没有得到任何调试错误,但不幸的是表1展开了

TCSum上的3个数据透视表的名称为:TCByType、TCAge、TCAffected(如果这很重要的话,它有折扣计数)

Set wks = wkb.Sheets("TCSum")