Hi,
I tried to create custom VBO by Using VB code shown Below.But It doesn't work.
Can someone help me to figure out the issue.
Dim ws as object=Getworksheet(handle,workbookname,Worksheetname)
Dim r as object=ws.Range(range).Select
Dim ns as Object = GetWorksheet(handle,workbookname,worksheetnamea,createifmissing)
sheetexists = ws IsNot Nothing
If sheetexists then ws.Activate()
Dim PivotCaches as object=ns.Create(SourceType:="xlDatabase", SourceData:= r, Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:=ns, TableName:="PivotTable1"
I tried to create custom VBO by Using VB code shown Below.But It doesn't work.
Can someone help me to figure out the issue.
Dim ws as object=Getworksheet(handle,workbookname,Worksheetname)
Dim r as object=ws.Range(range).Select
Dim ns as Object = GetWorksheet(handle,workbookname,worksheetnamea,createifmissing)
sheetexists = ws IsNot Nothing
If sheetexists then ws.Activate()
Dim PivotCaches as object=ns.Create(SourceType:="xlDatabase", SourceData:= r, Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:=ns, TableName:="PivotTable1"