如何解决使用 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 举报,一经查实,本站将立刻删除。