2014-11-04 65 views
1

我已經使用EPPlus成功創建了數據透視表。數據透視表位於原始數據的單獨表單中。我想複製數據透視表數據到一個新的,第三,工作表,但只是值,而不是數據透視定義。 EPPlus是否支持這個?EPPlus數據透視表 - 將值複製到新表

回答

3

可以只是經由高速緩存定義複製的數據源的範圍:

public void PivotDataCopy() 
{ 
    const string FORMATCURRENCY = "#,###;[Red](#,###)"; 

    var file = new FileInfo(@"c:\temp\temp.xlsx"); 
    if (file.Exists) 
     file.Delete(); 

    var pck = new ExcelPackage(file); 
    var workbook = pck.Workbook; 
    var dataworksheet = workbook.Worksheets.Add("datasheet"); 

    //The data 
    dataworksheet.Cells["A20"].Value = "Col1"; 
    dataworksheet.Cells["A21"].Value = "sdf"; 
    dataworksheet.Cells["A22"].Value = "wer"; 
    dataworksheet.Cells["A23"].Value = "ghgh"; 
    dataworksheet.Cells["A24"].Value = "sdf"; 
    dataworksheet.Cells["A25"].Value = "wer"; 

    dataworksheet.Cells["B20"].Value = "Col2"; 
    dataworksheet.Cells["B21"].Value = "Group A"; 
    dataworksheet.Cells["B22"].Value = "Group B"; 
    dataworksheet.Cells["B23"].Value = "Group A"; 
    dataworksheet.Cells["B24"].Value = "Group C"; 
    dataworksheet.Cells["B25"].Value = "Group A"; 

    dataworksheet.Cells["C20"].Value = "Col3"; 
    dataworksheet.Cells["C21"].Value = 453.5; 
    dataworksheet.Cells["C22"].Value = 634.5; 
    dataworksheet.Cells["C23"].Value = 274.5; 
    dataworksheet.Cells["C24"].Value = 453.5; 
    dataworksheet.Cells["C25"].Value = 634.5; 

    dataworksheet.Cells["D20"].Value = "Col4"; 
    dataworksheet.Cells["D21"].Value = 686468; 
    dataworksheet.Cells["D22"].Value = 996440; 
    dataworksheet.Cells["D23"].Value = 185780; 
    dataworksheet.Cells["D24"].Value = 686468; 
    dataworksheet.Cells["D25"].Value = 996440; 

    //The pivot table 
    var pivotworksheet = workbook.Worksheets.Add("pivotsheet"); 
    var pivotTable = pivotworksheet.PivotTables.Add(pivotworksheet.Cells["A1"], dataworksheet.Cells["A20:D29"], "test"); 

    //The label row field 
    pivotTable.RowFields.Add(pivotTable.Fields["Col1"]); 
    pivotTable.DataOnRows = false; 

    //The data fields 
    var field = pivotTable.DataFields.Add(pivotTable.Fields["Col3"]); 
    field.Name = "Sum of Col2"; 
    field.Function = DataFieldFunctions.Sum; 
    field.Format = FORMATCURRENCY; 

    field = pivotTable.DataFields.Add(pivotTable.Fields["Col4"]); 
    field.Name = "Sum of Col3"; 
    field.Function = DataFieldFunctions.Sum; 
    field.Format = FORMATCURRENCY; 

    //Get the pivot table data source 
    var newworksheet = workbook.Worksheets.Add("newworksheet"); 
    var pivotdatasourcerange = pivotTable.CacheDefinition.SourceRange; 
    pivotdatasourcerange.Copy(newworksheet.Cells["A1"]); 

    pck.Save(); 

} 

編輯:

public void PivotDataCopy() 
{ 
    const string FORMATCURRENCY = "#,###;[Red](#,###)"; 

    var file = new FileInfo(@"c:\temp\temp.xlsm"); 
    if (file.Exists) 
     file.Delete(); 

    var pck = new ExcelPackage(file); 
    var workbook = pck.Workbook; 
    var dataworksheet = workbook.Worksheets.Add("datasheet"); 

    //The data 
    dataworksheet.Cells["A20"].Value = "Col1"; 
    dataworksheet.Cells["A21"].Value = "sdf"; 
    dataworksheet.Cells["A22"].Value = "wer"; 
    dataworksheet.Cells["A23"].Value = "ghgh"; 
    dataworksheet.Cells["A24"].Value = "sdf"; 
    dataworksheet.Cells["A25"].Value = "wer"; 

    dataworksheet.Cells["B20"].Value = "Col2"; 
    dataworksheet.Cells["B21"].Value = "Group A"; 
    dataworksheet.Cells["B22"].Value = "Group B"; 
    dataworksheet.Cells["B23"].Value = "Group A"; 
    dataworksheet.Cells["B24"].Value = "Group C"; 
    dataworksheet.Cells["B25"].Value = "Group A"; 

    dataworksheet.Cells["C20"].Value = "Col3"; 
    dataworksheet.Cells["C21"].Value = 453.5; 
    dataworksheet.Cells["C22"].Value = 634.5; 
    dataworksheet.Cells["C23"].Value = 274.5; 
    dataworksheet.Cells["C24"].Value = 453.5; 
    dataworksheet.Cells["C25"].Value = 634.5; 

    dataworksheet.Cells["D20"].Value = "Col4"; 
    dataworksheet.Cells["D21"].Value = 686468; 
    dataworksheet.Cells["D22"].Value = 996440; 
    dataworksheet.Cells["D23"].Value = 185780; 
    dataworksheet.Cells["D24"].Value = 686468; 
    dataworksheet.Cells["D25"].Value = 996440; 

    //The pivot table 
    var pivotworksheet = workbook.Worksheets.Add("pivotsheet"); 
    var pivotTable = pivotworksheet.PivotTables.Add(pivotworksheet.Cells["A1"], dataworksheet.Cells["A20:D29"], "test"); 

    //The label row field 
    pivotTable.RowFields.Add(pivotTable.Fields["Col1"]); 
    pivotTable.DataOnRows = false; 

    //The data fields 
    var field = pivotTable.DataFields.Add(pivotTable.Fields["Col3"]); 
    field.Name = "Sum of Col2"; 
    field.Function = DataFieldFunctions.Sum; 
    field.Format = FORMATCURRENCY; 

    field = pivotTable.DataFields.Add(pivotTable.Fields["Col4"]); 
    field.Name = "Sum of Col3"; 
    field.Function = DataFieldFunctions.Sum; 
    field.Format = FORMATCURRENCY; 

    //add the macro to copy the table data on open 
    workbook.Worksheets.Add("newworksheet"); 

    var sb = new StringBuilder(); 
    sb.AppendLine("Private Sub Workbook_SheetCalculate(ByVal Sh As Object)"); 
    sb.AppendLine(" Sheets(\"pivotsheet\").Cells.Copy"); 
    sb.AppendLine(" Sheets(\"newworksheet\").Range(\"A1\").PasteSpecial Paste:=xlPasteValues"); 
    sb.AppendLine(" Selection.Clear"); 
    sb.AppendLine(" Application.DisplayAlerts = False"); 
    sb.AppendLine(String.Format(" ActiveWorkbook.SaveAs \"{0}\", xlOpenXMLWorkbook", file.FullName.Replace("xlsm", "xlsx"))); 
    sb.AppendLine(" Application.DisplayAlerts = True"); 

    sb.AppendLine("End Sub"); 
    pck.Workbook.CreateVBAProject(); 
    pck.Workbook.CodeModule.Code = sb.ToString(); 

    pck.Save(); 
} 
+0

:與VBA宏然後重新保存在片材作爲非宏XLSX否則謝謝厄尼。我會很快嘗試。這隻會複製值而不是數據透視表的定義?我想讓用戶編輯新工作表上的值。 – 2014-11-04 13:49:40

+0

@RandyMinder它將直接將值複製到新工作表,以便數據透視表仍將鏈接到原始數據,而不是複製的。根據你的文章,我認爲這是你想要的? – Ernie 2014-11-04 14:06:28

+0

這不是我想要的。您的代碼正在製作源數據的副本,而不是旋轉數據。我想將旋轉的數據值複製到新的工作表。 – 2014-11-04 14:14:36

相關問題