使用 EPPLUS 将带有数据透视表的 Excel 工作表复制到另一个工作簿的问题

问题描述

我正在使用以下代码将带有数据透视表的 Excel 工作表复制到另一个工作簿，但是当执行到达复制代码行项目时出现此错误：“抛出异常：EPPlus.dll 中的‘System.Exception’ - 内部错误：数据透视表uri在包中不存在。"

---

ExcelPackage.LicenseContext = LicenseContext.NonCommercial

        Dim strFileExtension As String = "xlsx"

        Dim strratingstemplateFile As String = Strings.Trim(sqlGetDataFromTable_dataTable(sqlConn,"tbl_Syst_ConfigurationSystem").Rows(0)("DocumentsUncPath").ToString()) + "\" + "templates" + "\" + GetLocalResourceObject("strXlsxFileName.Text") + "." + strFileExtension

        Dim excelTemplate = New ExcelPackage(New FileInfo(strratingstemplateFile))

        Dim excel As ExcelPackage = New ExcelPackage()

  excel.Workbook.Worksheets.Add(excelTemplate.Workbook.Worksheets(4).Name,excelTemplate.Workbook.Worksheets(4))

  ' The excelTemplate.Workbook.Worksheets(4) excel sheet has a pivot table 

        If strFileExtension = "xlsm" Then 
            excel.Workbook.CreateVBAProject()
        End If

        Using memoryStream = New MemoryStream()
            If strFileExtension = "xlsx" Then
                Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
            Else
                Response.ContentType = "application/vnd.ms-excel.sheet.macroEnabled.12"
            End If
            response.addheader("content-disposition","attachment;filename=" + GetLocalResourceObject("strXlsxFileName.Text") + "_" + DateTime.Now.ToLocalTime().ToString("dd-MMM-yyyy",CultureInfo.CurrentCulture) + "_" + DateTime.Now.ToLocalTime().ToString("hhmmss") + "." + strFileExtension)             
            excel.SaveAs(memoryStream)
            memoryStream.Writeto(Response.OutputStream)
            Response.Flush()
            Response.[End]()
        End Using

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）