how to create pivot table in uipath?
You can use VBA for Creating Pivot Table or use **Create Pivot Table**
activity
can you please send me VBA code?
You will get anywhere i am sending on of them for Reference
Sub InsertPivotTable()
'Macro By ExcelChamps'Declare Variables
Dim PSheet As Worksheet
Dim DSheet As Worksheet
Dim PCache As PivotCache
Dim PTable As PivotTable
Dim PRange As Range
Dim LastRow As Long
Dim LastCol As Long'Insert a New Blank Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(“PivotTable”).Delete
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = “PivotTable”
Application.DisplayAlerts = True
Set PSheet = Worksheets(“PivotTable”)
Set DSheet = Worksheets(“Data”)'Define Data Range
LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange). _
CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _
TableName:=“SalesPivotTable”)'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName:=“SalesPivotTable”)'Insert Row Fields
With ActiveSheet.PivotTables(“SalesPivotTable”).PivotFields(“Year”)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables(“SalesPivotTable”).PivotFields(“Month”)
.Orientation = xlRowField
.Position = 2
End With'Insert Column Fields
With ActiveSheet.PivotTables(“SalesPivotTable”).PivotFields(“Zone”)
.Orientation = xlColumnField
.Position = 1
End With'Insert Data Field
With ActiveSheet.PivotTables(“SalesPivotTable”)
.PivotFields (“Amount”)
.Orientation = xlDataField
.Function = xlSum
.NumberFormat = “#,##0”
.Name = "Revenue "
End With'Format Pivot Table
ActiveSheet.PivotTables(“SalesPivotTable”).ShowTableStyleRowStripes = True
ActiveSheet.PivotTables(“SalesPivotTable”).TableStyle2 = “PivotStyleMedium9”End Sub
For simple Example
Sub Macro4()
Range("A1:K8").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CD Statement!R1C1:R8C11", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Sheet2!R3C1", TableName:="PivotTable5", DefaultVersion _
:=xlPivotTableVersion15
Sheets("Sheet2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable5").PivotFields("TRANDATE")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("AMT"), "Sum of AMT", xlSum
End Sub
Thank you
Welcome!
Happy Automation