0

在过去的两天里，我一直在尝试将一些血腥的数据导出到 Excel。经过大量研究，我确定最好和最常见的方法是使用HttpResponse标题，如下面的代码所示。在调试模式下经历无数次之后，我确认数据确实存在，并且按照我想要的方式过滤和排序。但是，它不会作为 Excel 文件下载，也不会为此做任何事情。

我怀疑这可能与我的UpdatePanel或未ImageButton正确回帖有关，但我不确定。我究竟做错了什么？请帮我调试这个问题。我将永远感激不尽。谢谢你。:)

标记

<asp:UpdatePanel ID="statusUpdatePanel" runat="server" UpdateMode="Conditional">
<Triggers>
    <asp:AsyncPostBackTrigger ControlID="btnExportXLS" EventName="Click" />
</Triggers>
<ContentTemplate>
    <asp:GridView ID="GridView1" runat="server" AllowPaging="True" PageSize="10"
        AllowSorting="True" DataSourceID="GridView1SDS" DataKeyNames="ID">
    </asp:GridView>
    <span><asp:ImageButton ID="btnExportXLS" runat="server" /></span>
</ContentTemplate>
</asp:UpdatePanel>

代码隐藏

Protected Sub ExportToExcel() Handles btnExportXLS.Click
    Dim dt As New DataTable()
    Dim da As New SqlDataAdapter(SelectCommand, ConnectionString)

    da.Fill(dt)

    Dim gv As New GridView()
    gv.DataSource = dt
    gv.DataBind()

    Dim sw As New IO.StringWriter()
    Dim hw As New System.Web.UI.HtmlTextWriter(sw)
    Response.ContentType = "application/vnd.ms-excel"
    Response.AddHeader("content-disposition", "attachment;filename=Report.xls")
    Response.Charset = String.Empty

    gv.RenderControl(hw)
    Response.Write(sw.ToString()) 'sw is a valid html table, but no Excel file downloads. :(
    Response.End()
End Sub
4

2 回答 2

7
  1. 我一Response.Clear开始就错过了。
  2. 您正在调用GridView.RenderControl(htmlTextWriter)，因此该页面引发了一个异常，即服务器控件在表单之外呈现。尝试在调试器中执行它，我很确定您会看到该异常。

您可以通过覆盖VerifyRenderingInServerForm来避免此异常

Public Overrides Sub VerifyRenderingInServerForm(control As Control)
    ' Confirms that an HtmlForm control is rendered for the specified ASP.NET '
    ' server control at run time.  '
End Sub

见这里和这里。

编辑：我刚刚看到您使用的是UpdatePanel. 确保您已PostBackTrigger为该按钮创建了一个 (Full-)：

<asp:UpdatePanel ID="UpdGridInfo" runat="server" >
    <ContentTemplate>
        <asp:ImageButton ToolTip="export to Excel" ID="BtnExcelExport" ImageUrl="~/images/excel2007logo.png" runat="server" />
    </ContentTemplate>
    <Triggers>
        <asp:PostBackTrigger ControlID="BtnExcelExport" />
    </Triggers>
</asp:UpdatePanel>

但是，我不会创建一个可以由 excel 解释的 html 表，而是使用我可以热烈推荐的EPPlus (GPL) 之类的 Excel 库。

然后从 DataTable 创建 Excel 文件并将其写入响应就这么简单：

Dim pck = New ExcelPackage()
Dim ws = pck.Workbook.Worksheets.Add("Worksheet-Name")
ws.Cells("A1").LoadFromDataTable(dt, True, OfficeOpenXml.Table.TableStyles.Medium1)
Response.Clear()
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("content-disposition", "attachment;  filename=ExcelFileName.xlsx")
Response.BinaryWrite(pck.GetAsByteArray())
Response.End()

这是另一个示例：http ://epplus.codeplex.com/wikipage?title=WebapplicationExample

于 2012-08-31T21:23:40.530 回答
0

我的解决方案是按照以下步骤操作：

第 1 步（在设计页面中）

设置EnableEventValidation ="false"在"%@ Page"

<%@ Page Title="" Language="VB" MasterPageFile="~/Aroghyam.master" EnableEventValidation ="false" AutoEventWireup="false" CodeFile="Search_IncidentStatus.aspx.vb" Inherits="Search_IncidentStatus" %>

第 2 步（在设计页面中）

如果有更新面板，则添加一个导出按钮，单击该按钮会将网格数据导出为 Excel 格式asp:PostBackTrigger （不要将其放入asp:AsyncPostBackTrigger

`<asp:PostBackTrigger ControlID="btnExportToExcel" />`

第 3 步（在代码中）

添加以下内容：

Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

    ' no implementation necessary,used just to handle error (just paste this to your       code)
End Sub

第 4 步（在代码中）

生成 Excel 内容：

'-------------------GETTING THE DATATABLE------------------
Dim searchResultTable as new Datatable = // GET TABLE FROM DATABASE
'----------------------------------------------------------

'-------------------ASSIGNING TABLE TO GRID----------------
GvIncidentStatus.DataSource = SearchResultTable
GvIncidentStatus.DataBind()

'-----------------CODE FOR GENERATION TO EXCEL
Response.Clear()
GvIncidentStatus.AllowPaging = False
Response.Buffer = True
Me.EnableViewState = False
Response.AddHeader("content-disposition", String.Format("attachment;filename=MyExcelfile.xls"))
Response.Charset = ""
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Dim sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)
GvIncidentStatus.RenderControl(hw)
Response.Output.Write(sw.ToString())
Response.End()
'-----------------

单击导出按钮现在将下载 Excel 文档。

于 2013-04-08T11:16:57.073 回答