我有2个代码块,如果有人可以帮我把它们放在一起,我会得到我正在寻找的功能。第一个代码块下载一个GridView使用下载对话框我要找擅长:制作动态创建的Excel报告可下载
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)
我需要的函数接受工作簿对象而不是工作表而不是gridview – 2010-04-06 16:21:23
也许我不明白你的问题。我以为你想把数据发送到Excel。这是让我失望的响应头路径。 – 2010-04-06 16:37:34
我只是使用保存的电子表格作为测试来展示如何制定浏览器将解释为MS Excel电子表格的响应标头。 – 2010-04-06 18:14:36