VBA 如何判断是 模型数据透视表 还是一般数据透视表

mmwwdd

morpheus126 发表于 2023-3-9 19:31
这个。。。不会是l来自ChatGPT的吧？

呵呵，被你猜中了

perfect131

mavin 发表于 2023-3-9 15:06
感谢2楼的回复，我竟然没看到，我自己摸索了一下。
模型透视表的字段名，都是类似：[区域].[公司].[公司]
...

这样判断
ActiveSheet.PivotTables(1).PivotCache.SourceType
ActiveSheet.PivotTables(2).PivotCache.SourceType


或者

1. Set pt = ActiveSheet.PivotTables(1)
   
2. If pt.PivotCache.OLAP = False Then
   
3.     strSource = pt.SourceData '''一般数据透视表
   
4.     strMDX = ""
   
5. Else
   
6.     strSource = "OLAP"   '''不是一般
   
7.     strMDX = pt.MDX
   
8. End If
   

复制代码