删除枢轴计算字段

Question

我想删除数据透视表中的计算字段。 我知道在将相同的计算字段设置为visible = false之前，我无法执行此操作。 因此，我将对象中的计算字段设置为不可见。

我尝试了两行相同的代码（如下）。 第一行包含两个变量，它们的值与第二行中的值相同。

pt = "Tabella pivot3"
CampoCalcolatoToDelete = "w 49 - 06/12 CC"

ActiveSheet.PivotTables(pt).CalculatedFields(CampoCalcolatoToDelete).Delete
ActiveSheet.PivotTables("Tabella pivot3").CalculatedFields("w 49 - 06/12 CC").Delete

第二行工作正常。 第一个（带有变量）不起作用。

有人可以建议原因吗？

谢谢

Answer 1

您是否已在代码中定义变量：

Dim pt, CampoCalcolatoToDelete as String

pt = "Tabella pivot3"
CampoCalcolatoToDelete = "w 49 - 06/12 CC"

ActiveSheet.PivotTables(pt).CalculatedFields(CampoCalcolatoToDelete).Delete

当您尝试从使用变量的代码中运行该行时，是否给出任何错误？