EasyXLS

How to create pivot charts in VB.NET

EasyXLS Excel library can be used to export Excel files in VB.NET. The library works with .NET Framework or .NET Core platform.

Step 1: Download EasyXLS Excel Library for .NET

To download the trial version of EasyXLS Excel Library, press the below button:

Download EasyXLS™ Excel Library for VB.NET

If you already own a license key, you may login and download EasyXLS from your account.

Install the downloaded EasyXLS installer for v8.6 or earlier.

Step 2: License file setup

Step required for EasyXLS v9.0 or later.

If you are using a trial, generate a trial license file from EasyXLS trials page. The trial license is valid for 30-days.

If you own a license key, you may login to the account that purchased the license and generate the license file from:
https://www.easyxls.com/my-orders

Setup the license file into your project using these guidelines.

Step 3: Create a VB.NET project

If don't have a project, create one as ASP.NET web application, windows forms app, console application, class library or service.

Step 4: Include EasyXLS library into project

EasyXLS.dll must be added as reference to your project. EasyXLS.dll can be found:
- Inside the downloaded archive at Step 1 for EasyXLS v9.0 or later
- Under installation path for EasyXLS v8.6 or earlier, in "Dot NET version" folder.

Add EasyXLS reference

Step 5: Run VB.NET code that creates a pivot chart in Excel file

Execute the following VB.NET code that exports a pivot chart to Excel.

'--------------------------------------------------------------
' Tutorial 26
'
' This tutorial shows how to create an Excel file in VB.NET and
' to create a pivot chart. The pivot chart is added to a
' workshet and also to a separate chart sheet.
'--------------------------------------------------------------

Imports EasyXLS
Imports EasyXLS.Constants
Imports EasyXLS.PivotTables

Module Tutorial26

    Sub Main()

        Console.WriteLine("Tutorial 26" & vbCrLf & "----------" & vbCrLf)

        ' Create an instance of the class that exports Excel files, having two sheets
        Dim workbook As New ExcelDocument(2, 1)

        ' Set the sheet names
        workbook.easy_getSheetAt(0).setSheetName("First tab")
        workbook.easy_getSheetAt(1).setSheetName("Second tab")
        workbook.easy_getSheetAt(2).setSheetName("Pivot chart")
        
        ' Get the table of data for the first worksheet
        Dim xlsFirstTab As ExcelWorksheet = workbook.easy_getSheetAt(0)
        Dim xlsFirstTable = xlsFirstTab.easy_getExcelTable()

        ' Add data in cells for report header
        xlsFirstTable.easy_getCell(0,0).setValue("Sale agent")
        xlsFirstTable.easy_getCell(0,0).setDataType(DataType.STRING)
        xlsFirstTable.easy_getCell(0,1).setValue("Sale country")
        xlsFirstTable.easy_getCell(0,1).setDataType(DataType.STRING)
        xlsFirstTable.easy_getCell(0,2).setValue("Month")
        xlsFirstTable.easy_getCell(0,2).setDataType(DataType.STRING)
        xlsFirstTable.easy_getCell(0,3).setValue("Year")
        xlsFirstTable.easy_getCell(0,3).setDataType(DataType.STRING)
        xlsFirstTable.easy_getCell(0,4).setValue("Sale amount")
        xlsFirstTable.easy_getCell(0,4).setDataType(DataType.STRING)
        
        xlsFirstTable.easy_getRowAt(0).setBold(True)
        
        ' Add data in cells for report values - the source for pivot chart
        xlsFirstTable.easy_getCell(1,0).setValue("John Down")
        xlsFirstTable.easy_getCell(1,1).setValue("USA")
        xlsFirstTable.easy_getCell(1,2).setValue("June")
        xlsFirstTable.easy_getCell(1,3).setValue("2010")
        xlsFirstTable.easy_getCell(1,4).setValue("550")
        
        xlsFirstTable.easy_getCell(2,0).setValue("Scott Valey")
        xlsFirstTable.easy_getCell(2,1).setValue("United Kingdom")
        xlsFirstTable.easy_getCell(2,2).setValue("June")
        xlsFirstTable.easy_getCell(2,3).setValue("2010")
        xlsFirstTable.easy_getCell(2,4).setValue("2300")
        
        xlsFirstTable.easy_getCell(3,0).setValue("John Down")
        xlsFirstTable.easy_getCell(3,1).setValue("USA")
        xlsFirstTable.easy_getCell(3,2).setValue("July")
        xlsFirstTable.easy_getCell(3,3).setValue("2010")
        xlsFirstTable.easy_getCell(3,4).setValue("3100")
        
        xlsFirstTable.easy_getCell(4,0).setValue("John Down")
        xlsFirstTable.easy_getCell(4,1).setValue("USA")
        xlsFirstTable.easy_getCell(4,2).setValue("June")
        xlsFirstTable.easy_getCell(4,3).setValue("2011")
        xlsFirstTable.easy_getCell(4,4).setValue("1050")
        
        xlsFirstTable.easy_getCell(5,0).setValue("John Down")
        xlsFirstTable.easy_getCell(5,1).setValue("USA")
        xlsFirstTable.easy_getCell(5,2).setValue("July")
        xlsFirstTable.easy_getCell(5,3).setValue("2011")
        xlsFirstTable.easy_getCell(5,4).setValue("2400")
        
        xlsFirstTable.easy_getCell(6,0).setValue("Steve Marlowe")
        xlsFirstTable.easy_getCell(6,1).setValue("France")
        xlsFirstTable.easy_getCell(6,2).setValue("June")
        xlsFirstTable.easy_getCell(6,3).setValue("2011")
        xlsFirstTable.easy_getCell(6,4).setValue("1200")
        
        xlsFirstTable.easy_getCell(7,0).setValue("Scott Valey")
        xlsFirstTable.easy_getCell(7,1).setValue("United Kingdom")
        xlsFirstTable.easy_getCell(7,2).setValue("June")
        xlsFirstTable.easy_getCell(7,3).setValue("2011")
        xlsFirstTable.easy_getCell(7,4).setValue("700")
        
        xlsFirstTable.easy_getCell(8,0).setValue("Scott Valey")
        xlsFirstTable.easy_getCell(8,1).setValue("United Kingdom")
        xlsFirstTable.easy_getCell(8,2).setValue("July")
        xlsFirstTable.easy_getCell(8,3).setValue("2011")
        xlsFirstTable.easy_getCell(8,4).setValue("360")
        
        ' Create pivot table
        Dim xlsPivotTable As New ExcelPivotTable
		
        xlsPivotTable.setName("Sales")
        xlsPivotTable.setSourceRange("First tab!$A$1:$E$9",workbook)
        xlsPivotTable.setLocation("A3:G15")
        xlsPivotTable.addFieldToRowLabels("Sale agent")
        xlsPivotTable.addFieldToColumnLabels("Year")
        xlsPivotTable.addFieldToValues("Sale amount", "Sale amount per year", PivotTable.SUBTOTAL_SUM)
        xlsPivotTable.addFieldToReportFilter("Sale country")
        xlsPivotTable.setOutlineForm()
        xlsPivotTable.setStyle(PivotTable.PIVOT_STYLE_MEDIUM_9)
		
        ' Add the pivot table to the second sheet
        Dim xlsWorksheet As ExcelWorksheet = workbook.easy_getSheet("Second tab")
        xlsWorksheet.easy_addPivotTable(xlsPivotTable)

        ' Create pivot chart
        Dim xlsPivotChart1 As New ExcelPivotChart
        xlsPivotChart1.setSize(600, 300)
        xlsPivotChart1.setLeftUpperCorner("A10")
        xlsPivotChart1.easy_setChartType(Chart.CHART_TYPE_PYRAMID_BAR)
        xlsPivotChart1.getChartTitle().setText("Sales")
        xlsPivotChart1.setPivotTable(xlsPivotTable)
		
        ' Add the pivot chart to the second sheet
        xlsWorksheet.easy_addPivotChart(xlsPivotChart1)
		
        ' Create a clone of the pivot chart and add the clone to the chart sheet
        Dim xlsPivotChart2 As ExcelPivotChart = xlsPivotChart1.Clone()
        xlsPivotChart2.setSize(970, 630)
        Dim xlsChartSheet As ExcelChartSheet = workbook.easy_getSheet("Pivot chart")
        xlsChartSheet.easy_setExcelChart(xlsPivotChart2)

        ' Export Excel file
        Console.WriteLine("Writing file C:\Samples\Tutorial26 - pivot chart in Excel.xlsx.")
        workbook.easy_WriteXLSXFile("C:\Samples\Tutorial26 - pivot chart in Excel.xlsx")

        ' Confirm export of Excel file
        Dim sError As String = workbook.easy_getError()
        If (sError.Equals("")) Then
            Console.Write(vbCrLf & "File successfully created. Press Enter to Exit...")
        Else
            Console.Write(vbCrLf & "Error encountered: " & sError & vbCrLf & "Press Enter to Exit...")
        End If
        
        ' Dispose memory
        workbook.Dispose()
        
        Console.ReadLine()
    End Sub

End Module

EasyXLS Excel libraries:

.NET
Excel Library for VB.NET
full .NET version to import, export or convert Excel files
Excel Writer for VB.NET
.NET version to create and export Excel files
Download EasyXLS™ Excel Library for VB.NET

File formats:

Office 365
MS Excel 2021 - 2024
MS Excel 2007 - 2019
MS Excel 97 - 2003
XLSXXLSMXLSBXLS
XMLHTMLCSVTXT