製作動態創建的Excel報告可下載

Question

我有2個代碼塊，如果有人可以幫我把它們放在一起，我會得到我正在尋找的功能。第一個代碼塊下載一個GridView使用下載對話框我要找擅長：

Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) 
    ' Verifies that the control is rendered 
End Sub 

Private Sub ExportToExcel(ByVal filename As String, ByVal gv As GridView, ByVal numOfCol As Integer) 
    Response.Clear() 
    Response.Buffer = True 
    Response.AddHeader("content-disposition", String.Format("attachment; filename={0}", filename)) 
    Response.Charset = "" 
    Response.ContentType = "application/vnd.ms-excel" 
    Dim sw As New StringWriter() 
    Dim hw As New HtmlTextWriter(sw) 

    gv.AllowPaging = False 
    gv.DataBind() 

    'Change the Header Row back to white color 
    gv.HeaderRow.Style.Add("background-color", "#FFFFFF") 

    For i As Integer = 0 To numOfCol - 1 
     gv.HeaderRow.Cells(i).Style.Add("background-color", "blue") 
     gv.HeaderRow.Cells(i).Style.Add("color", "#FFFFFF") 

    Next 

    For i As Integer = 0 To gv.Rows.Count - 1 
     Dim row As GridViewRow = gv.Rows(i) 

     'Change Color back to white 
     row.BackColor = System.Drawing.Color.White 

     For j As Integer = 0 To numOfCol - 1 
      row.Cells(j).Style.Add("text-align", "center") 
     Next 


     'Apply text style to each Row 
     row.Attributes.Add("class", "textmode") 

     'Apply style to Individual Cells of Alternating Row 
     If i Mod 2 <> 0 Then 

      For j As Integer = 0 To numOfCol - 1 
       row.Cells(j).Style.Add("background-color", "#CCFFFF") 
       row.Cells(j).Style.Add("text-align", "center") 
       '#C2D69B 
       'row.Cells(j).Style.Add("font-size", "12pt") 
      Next 

     End If 
    Next 
    gv.RenderControl(hw) 

    'style to format numbers to string 
    Dim style As String = "<style> .textmode { mso-number-format:\@; } </style>" 
    Response.Write(style) 
    Response.Output.Write(sw.ToString()) 
    Response.Flush() 
    Response.End() 
End Sub 

的第二個代碼塊是一個示例報告，我想下載。所以，而不是下載gridview我想這個函數接受工作表對象。

評論弗蘭克的建議... 弗蘭克感謝您的幫助，這幾乎爲我工作。問題是代碼崩潰，如果我沒有一個名爲test.xls在我的根文件夾中的虛擬文件。當我把它放在那裏它然後加載2工作簿test.xls [1]和書2其中test.xls是一個空白的工作簿，書2是正確的動態創建的報告。我不想將這個文件保存在eroot文件夾中，如果我沒有，我希望用戶只需打開下載到他們的客戶端。在創建之後woorkbook使用代碼IM是... 昏暗FN作爲字符串= 「RptCrd_」 & 「BUNDLE」 & 「的.xls」 昏暗EIO作爲字符串= 「〜/ ContentDisposition /」 & FN

Dim exData As Byte() = File.ReadAllBytes(Server.MapPath(eio)) 
    Response.AddHeader("content-disposition", String.Format("attachment; filename={0}", fn)) 
    Response.ContentType = "application/x-msexcel" 
    Response.BinaryWrite(exData) 
    Response.Flush() 
    Response.End() 
    releaseObject(xlApp) 
    releaseObject(xlWorkBook) 

Answer 1

也許您需要將正確的內容類型和標題添加到您的響應中，以便瀏覽器知道您想要使用Excel處理下載。你可能會把這個放在Response.Write（style）之後;呼叫。

嘗試使用谷歌搜索MS Excel MIME類型，以及如何將正確格式的標題和內容類型添加到您的響應。

我只是扔了一些代碼在一起，吐出一個下載到瀏覽器，以便它可以處理它作爲Excel電子表格。這應該給你一個如何格式化響應頭的例子。

這只是讀入一個現有的電子表格，然後將其饋送到響應流。這只是演示如何制定一個響應頭。

byte[] excelData = File.ReadAllBytes(Server.MapPath("test.xls")); 

    Response.AddHeader("Content-Disposition", "attachment; filename=test.xls"); 
    Response.ContentType = "application/x-msexcel"; 
    Response.BinaryWrite(excelData);