如何在VBA中使用showpages为特定值创建轴?

如何在VBA中使用showpages为特定值创建轴?,vba,excel,pivot,pivot-table,Vba,Excel,Pivot,Pivot Table,我有一张透视表。我试图在原始透视表的基础上创建新的透视表,但对特定值进行了筛选 到目前为止,我发现: ThisWorkbook.PivotTables("PivotName").ShowPages PageField:="DATE" 这非常棒,因为这一行为数据透视中的所有日期创建数据透视表,并将它们粘贴到新的工作表中 我只想为3个特定日期创建3张工作表。有什么想法吗 非常感谢 您不能限制。ShowPages仅显示三项。相反,只需将数据透视表复制三次到三张工作表上,然后将日期数据透视字段的.Cu

我有一张透视表。我试图在原始透视表的基础上创建新的透视表,但对特定值进行了筛选

到目前为止,我发现:

ThisWorkbook.PivotTables("PivotName").ShowPages PageField:="DATE"
这非常棒,因为这一行为数据透视中的所有日期创建数据透视表,并将它们粘贴到新的工作表中

我只想为3个特定日期创建3张工作表。有什么想法吗


非常感谢

您不能限制。ShowPages仅显示三项。相反,只需将数据透视表复制三次到三张工作表上,然后将日期数据透视字段的.CurrentPage属性设置为要为每个工作表显示的日期

如有疑问,请录制宏,执行手动执行的步骤,停止宏录制器,并使用它生成的代码作为起点