Vba 如何"；将此数据添加到数据模型中？“；并使值中的数据不同？

我正在使用Excel 2016，我有代码从我的数据集创建一个数据透视表。但是，我不确定如何将数据包含在数据模型中（这是从“插入”选项卡单击“数据透视表”时看到的选项）

我的目标是在Values数据字段中使用一个不同的变量计数

With PvtTbl.PivotFields("sid")
    .Orientation = xlDataField
    .Function = xlSum
    .NumberFormat = "#,##0"
    .Position = 1

---

我试着用

“xlDistinct”

替换

“xlSum”

，但那当然太容易了哈哈。

请注意，使用数据模型透视的vba编码与正常数据范围来源的透视完全不同，清空数据字段后，您可以使用以下代码：

    With PvtTbl
    .AddDataField .CubeFields("[Measures].[Distinct Count of sid]"), "Distinct Count of sid"
    End With

---

你想用这段代码做什么？它不起作用吗？你有错误吗？如果有，那是哪一行？@ShaiRado这只是制作透视表的代码的一部分。我想做的是将函数从Sum改为Distinct。为了做到这一点，我必须“将数据添加到数据模型”。我不知道怎么做