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

mavin

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

mmwwdd

打开 Excel，按下 Alt + F11 进入 VBA 编辑器界面；

在 VBA 代码中，通过以下语句获取数据透视表的 PivotTable 对象：
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables(1)
其中，“ActiveSheet.PivotTables(1)”表示获取当前活动工作表中的第一个数据透视表，你可以根据需要修改这个参数。

使用以下语句获取数据透视表的数据源类型：
Dim srcType As XlPivotTableSourceType
srcType = pt.SourceType
其中，“XlPivotTableSourceType”是枚举类型，包含以下值：
xlDatabase：一般数据透视表；
xlConsolidation：多重来源数据透视表；
xlExternal：来自外部源的数据透视表；
xlScenario：可变数据表。
如果数据透视表的 SourceType 属性值为 xlDatabase，则表示它是一般数据透视表；如果 SourceType 属性值为 xlConsolidation、xlExternal 或 xlScenario，则表示它是模型数据透视表。

根据 SourceType 属性值判断数据透视表的类型：
If srcType = xlDatabase Then
MsgBox "一般数据透视表"
Else
MsgBox "模型数据透视表"
End If
通过以上步骤，你可以判断数据透视表的类型，并根据需要进行后续操作。

WANT-T

祝工作顺利，天天开心

ykcbf1100

自从用了VBA就再没用过透视表。

mavin

感谢2楼的回复，我竟然没看到，我自己摸索了一下。
模型透视表的字段名，都是类似：[区域].[公司].[公司]
而一般透视表的字段名都是类似：公司
我就通过判断最左侧有没有 [ 字符，有没有小数点 .来判断了，感觉基本不错。

Set PT = ActiveCell.PivotTable '当前透视表

If (Left(PT.RowFields(1), 1) = "[") And InStr(PT.RowFields(1), ".") Then
    tsbbm = Left(PT.RowFields(1), InStr(PT.RowFields(1), ".")) '表名或区域名，后面带.
    flag_cj = True '超级透视表
   
Else
    flag_cj = False '一般透视表
End If

mavin

试了一下二楼的代码，运行到 srcType = pt.SourceType 这一句时报错

mavin

ykcbf1100 发表于 2023-3-9 14:17
自从用了VBA就再没用过透视表。

VBA能替代透视表吗？VBA连函数都不能替代。

你学了VBA后，不再用透视表，可能你透视表用得比较浅，需求不多，VBA能完全代替这部分需求。

但是你不可能用VBA重写一个可以拖拖拉拉就汇总各类数据的工具吧。更何况透视表还关联这透视图。

morpheus126

mmwwdd 发表于 2023-3-9 11:12
打开 Excel，按下 Alt + F11 进入 VBA 编辑器界面；

在 VBA 代码中，通过以下语句获取数据透视表的 Pivo ...

这个。。。不会是l来自ChatGPT的吧？

洋务德雷

什么是模型透视表，还真不知道，能给解释一下吗？

mavin

洋务德雷 发表于 2023-3-9 20:37
什么是模型透视表，还真不知道，能给解释一下吗？

就是超级透视表，或者是power pivot做的透视表。

选中数据区域，插入数据透视表，最下面选择加载模型，就算模型透视表了。（也不用进入power pivot）