将数据透视表添加到现有工作表

时间:2015-10-02 20:23:04

标签: vb.net excel pivot-table

使用vb.net我可以在新工作表中成功创建Excel数据透视表,但是当我尝试在同一工作表中的数据集下创建相同的数据透视表时,无法创建数据透视表。下面的代码显示了工作代码和非工作代码。我错过了什么。

 ' Adding pivot table to new worksheet works fine
    With xlBook
        .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
    End With
    xlBook.PivotCaches.Create(SourceType:=Excel.XlPivotTableSourceType.xlDatabase, SourceData:="Orders Table!R1C1:R26C19", _
                              Version:=Excel.XlPivotTableVersionList.xlPivotTableVersion12).CreatePivotTable(TableDestination:="Sheet3!R3C1", TableName:="PivotTable1")
    xlSheet = xlBook.Worksheets("Sheet3")
    xlSheet.Cells(3, 1).Select()

    ' Adding pivot table to existing "Orders Table" worksheet FAILS
    xlBook.PivotCaches.Create(SourceType:=Excel.XlPivotTableSourceType.xlDatabase, SourceData:="Orders Table!R1C1:R26C19", _
                              Version:=Excel.XlPivotTableVersionList.xlPivotTableVersion12).CreatePivotTable(TableDestination:="Orders Table!R30C1", TableName:="PivotTable1")
    xlSheet = xlBook.Worksheets("Orders Table")
    xlSheet.Cells(30, 1).Select()

1 个答案:

答案 0 :(得分:0)

我认为这个问题的最可能原因是你试图从另一张纸上添加枢轴而不是目标。