从版本9.8.5开始， Spire.XLS支持在Excel中根据数据透视表创建数据透视图。本文将介绍如何使用Spire.XLS实现此功能。

文中使用的示例文档如下图：

示例代码

using Spire.Xls;
using Spire.Xls.Core;

namespace CreatePivotChart
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载示例Excel文档
            Workbook workbook = new Workbook();
            workbook.LoadFromFile("Input.xlsx");

            //获取第一个工作表
            Worksheet sheet = workbook.Worksheets[0];
            //获取工作表中第一个数据透视表
            IPivotTable pivotTable = sheet.PivotTables[0];

            //根据数据透视表创建数据透视图
            Chart chart = sheet.Charts.Add(ExcelChartType.ColumnClustered, pivotTable);
            //设置数据透视图的位置
            chart.TopRow = 19;
            chart.BottomRow = 38;
            //设置数据透视图的标题
            chart.ChartTitle = "Pivot Chart";

            //保存结果文档 
            workbook.SaveToFile("CreatPivotChart.xlsx", ExcelVersion.Version2013);
        }
    }
}

Imports Spire.Xls
Imports Spire.Xls.Core

Namespace CreatePivotChart
  Class Program
    Private Shared Sub Main(args As String())
      '加载示例Excel文档
      Dim workbook As New Workbook()
      workbook.LoadFromFile("Input.xlsx")

      '获取第一个工作表
      Dim sheet As Worksheet = workbook.Worksheets(0)
      '获取工作表中第一个数据透视表
      Dim pivotTable As IPivotTable = sheet.PivotTables(0)

      '根据数据透视表创建数据透视图
      Dim chart As Chart = sheet.Charts.Add(ExcelChartType.ColumnClustered, pivotTable)
      '设置数据透视图的位置
      chart.TopRow = 19
      chart.BottomRow = 38
      '设置数据透视图的标题
      chart.ChartTitle = "Pivot Chart"

      '保存结果文档 
      workbook.SaveToFile("CreatPivotChart.xlsx", ExcelVersion.Version2013)
    End Sub
  End Class
End Namespace

生成数据透视图如下：