OpenXML/EPPlus - Tạo PivotCache trong .Net

Question

Tôi hy vọng điều này có thể giúp tôi, ít nhất, trả lời một trong 2 câu hỏi tôi đã hỏi here, nhưng tôi đang tìm cách tạo một PivotCache trong EPPlus/OpenXML và có thể ' t tìm thấy bất cứ điều gì trực tuyến/trong tài liệu của họ cho thấy làm thế nào để làm điều đó.

Vì vậy, giả sử tôi có một trang tính Excel, wksRawData được tạo trong EPPlus và tôi muốn tạo trang tính thứ hai với bảng tổng hợp dựa trên bộ nhớ đệm của wksRawData.Cells(wksRawData.Dimension.Address) - Với hy vọng sau đó tôi có thể xóa wksRawData nhưng vẫn giữ nguyên bảng tổng hợp. Tôi sẽ làm như thế nào?

Cho đến nay, mã của tôi để tạo các bảng pivot trong bảng thứ hai của tôi là:

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) 

XIN, bất kỳ và tất cả sự giúp đỡ về vấn đề này hay vấn đề khác sẽ thực sự được đánh giá cao - Cho dù đó là trong C# hoặc VB, EPPlus hoặc OpenXML - Tôi chỉ cần làm việc này !!!

CẢM ƠN!

Answer 1

Tôi tin rằng bạn muốn thêm dữ liệu từ một trang tính khác. Bài đăng của tôi trong chuỗi khác của bạn hiển thị mã đầy đủ EPPlus Pivot Table - Collapse entire field

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

gọi "PivoTables.Add()" xem mẹo công cụ bên dưới.

// Summary: 
//  Create a pivottable on the supplied range 
// 
// Parameters: 
// Range: 
//  The range address including header and total row 
// 
// Source: 
//  The Source data range address 
// 
// Name: 
//  The name of the table. Must be unique 
// 
// Returns: 
//  The pivottable object