Question

我有一个代码，可以生成包含日期行和一个数据字段的多个数据透视表。它还为每个表创建一个数据透视图。

代码之所以可以正常工作，是因为当它们位于同一个循环中时，当我给出创建图表的直线时，表的正确部分被“激活”了。

但是当我尝试在不同的循环中处理表格和图表时，由于创建Pt.Pivoselect错误，我无法创建图表。

我的问题是：使用数据透视选择时需要选择什么？

用于创建表的代码是：

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
    ActiveWorkbook.Connections("ThisWorkbookDataModel"), Version:=6). _
    CreatePivotTable TableDestination:="NewPivot!R11C" & destination, TableName:= _
    PI(i) & "Table", DefaultVersion:=6

PI（i）只是数据模型中具有字段名称的数组，现在我用作伪名称来标识表格和图表

此后，我用年月日填充xlRowField，添加并格式化数据字段

 Pt.AddDataField ActiveSheet.PivotTables(PI(i) & "Table").CubeFields(PI(i)), Cells(10 + i, 3).Value
    Pt.PivotFields(PI(i)).Caption = Cells(10 + i, 3).Value
    With Pt.PivotFields(PI(i))
        .NumberFormat = "#,##0.00"
    End With

参考文献中的单元格是文字，告诉您数据是什么

然后添加我正在使用的图表

Pt.PivotSelect ("Something")
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, name:="NewPivot"
    ActiveChart.Parent.name = PI(i) & "Chart"

这应该是什么？在一个循环中，该行是无用的，因为数据透视表刚刚创建且处于活动状态，但是我现在需要将这些循环分开提供错误。

PivotSelect语法创建数据透视图

0 个答案: