OpenXML/EPPlus - Erstelle PivotCache in .Net

Question

Ich hoffe, dass dies mir zumindest helfen könnte, eine der 2 Fragen zu beantworten, die ich gestellt habe here, aber ich schaue, wie man einen PivotCache in EPPlus/OpenXML erstellt und ' Ich finde etwas online/in ihrer Dokumentation, das zeigt, wie es geht.

So suposing Ich habe ein Excel-Sheet, wksRawData in EPPlus erstellt, und ich möchte ein zweites Blatt mit einer Pivot-Tabelle auf dem Schwenk Cache von wksRawData.Cells(wksRawData.Dimension.Address) Basis schaffen - in der Hoffnung, dass dann ich wksRawData löschen konnte, aber nach wie vor die halten Pivot-Tabelle. Wie würde ich das tun?

Bisher mein Code die Pivot-Tabelle in meinem zweiten Arbeitsblatt zum Erstellen ist:

Dim wksRawData As ExcelWorksheet = wbk.Worksheets("Raw Data") 
    Dim wksPvtTbl As ExcelWorksheet = wbk.Worksheets("PivotTbl") 


' Insert the Pivot Table to the sheet 
Dim DataRange As ExcelRange = wksRawData.Cells(wksRawData.Dimension.Address) 

Dim pvtTable As OfficeOpenXml.Table.PivotTable.ExcelPivotTable = wksPvtTbl.PivotTables.Add(wksPvtTbl.Cells("B4"), DataRange, "MyPivotTable") 

pvtTable.Compact = True 
pvtTable.CompactData = True 
pvtTable.Outline = True 
pvtTable.OutlineData = True 
pvtTable.ShowHeaders = True 
pvtTable.UseAutoFormatting = True 
pvtTable.ApplyWidthHeightFormats = True 
pvtTable.ShowDrill = True 
pvtTable.RowHeaderCaption = "Caption" 

' Set the top field 
Dim r1 As OfficeOpenXml.Table.PivotTable.ExcelPivotTableField = pvtTable.Fields("FirstField") 
r1.Sort = OfficeOpenXml.Table.PivotTable.eSortType.Ascending 
pvtTable.RowFields.Add(r1) 

' Set the second field 
Dim r2 As OfficeOpenXml.Table.PivotTable.ExcelPivotTableField = pvtTable.Fields("SecondField") 
r2.Sort = OfficeOpenXml.Table.PivotTable.eSortType.Ascending 
pvtTable.RowFields.Add(r2) 
r2.ShowAll = False 

' Set the DataField 
Dim df1 As OfficeOpenXml.Table.PivotTable.ExcelPivotTableField = pvtTable.Fields("DataField") 
df1.SubTotalFunctions = OfficeOpenXml.Table.PivotTable.eSubTotalFunctions.Sum 
pvtTable.DataFields.Add(df1) 

BITTE, irgendwelche und alle Hilfe zu diesem Thema oder die andere Frage wäre wirklich zu schätzen - sei es in C# oder VB, EPPlus oder OpenXML - ich muss nur funktionieren !!!

DANKE!

Answer 1

Ich glaube, Sie möchten Daten von einem anderen Blatt hinzufügen. Mein Beitrag in Ihrem anderen Thread zeigt vollständigen Code EPPlus Pivot Table - Collapse entire field

var pt = wsPivot1.PivotTables.Add(wsPivot1.Cells["A1"], ws.Cells["K1:N11"], "Pivottable1"); 

Aufruf "PivoTables.Add()" Werkzeugspitze unten.