基于Excel的葡萄城市活动报表11部分报表代码的导出

Question

我想要导出我的报告，这是一个区段报告(基于代码)在Excel中。我正在使用Asp Vb.net和Grapecity为我的报告为基础的网站。在单击按钮时，我调用我的报告或生成报告，并将其显示在网页查看器上，输入"AcrobatReader“。我可以从那个查看器下载PDF格式的报告。为了以Excel格式生成报表，我使用了按钮单击和下面的代码。

 Response.ContentType = "application/xls"
                Response.AppendHeader("Content-Disposition", "attachment; filename=LPO.xls")
                Response.ContentEncoding = Encoding.UTF8
                Dim excelExporter As XlsExport = New XlsExport()
                ''Dim report As PolRegSessionRpt = CType((WebViewer1.Report), PolRegSessionRpt)
                Dim report As SectionReport = TryCast(Me.WebViewer1.Report, SectionReport)
                Dim directorypath As String = Trim(txtExlDwnd.Value)
                If Not Directory.Exists(directorypath) Then
                    Directory.CreateDirectory(directorypath)
                End If
                excelExporter.Export(report.Document, Trim(txtExlDwnd.Value) + "LPO.xls")
                Dim tw As New System.IO.StringWriter()
                Dim hw As New HtmlTextWriter(tw)
                Response.Write(tw.ToString)
                Response.[End]()

当我在服务器端的“目录路径”中更新它时，上面的代码在本地服务器上工作得很好，我给出了一个硬代码字符串"D:\exceldownload\“。我希望用户可以选择他想要保存excel文档的文件夹。

Answer 1

由于您使用的是Section，因此需要使用Excel导出过滤器来导出报表。可以通过在项目中添加对GrapeCity.ActiveReports.Export.Excel.v11.dll的引用来访问Export。请参考下面链接中的导出筛选器示例：

https://help.grapecity.com/activereports/webhelp/AR11/webframe.html#ExportingReports.html

GrapeCity支援小组

https://www.grapecity.com/support/contact

Answer 2

 Dim m_stream As New System.IO.MemoryStream()
                Dim rpt As SectionReport = CType(Me.WebViewer1.Report, SectionReport)
                rpt.Run()
                Dim XlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport
                XlsExport1.MinColumnWidth = 0.5
                XlsExport1.Export(rpt.Document, m_stream)
                m_stream.Position = 0
                Response.Buffer = True
                Response.ClearContent()
                Response.ClearHeaders()
                Response.ContentType = "application/vnd.ms-excel"

                Response.AddHeader("content-disposition", "attachment; filename=DebitNoteAndCreditNote.xls")
                Response.ContentEncoding = Encoding.UTF8
                Response.Cache.SetCacheability(HttpCacheability.NoCache)

                Response.BinaryWrite(m_stream.ToArray())
                HttpContext.Current.ApplicationInstance.CompleteRequest()

我试过上面的代码，它很好用。请记住，用于excel导入的按钮不需要用于任何其他触发器。