62,041
社区成员
发帖
与我相关
我的任务
分享
Sub ExpertExcel(ByVal Name As String, ByVal GridViewN As Object)
Dim FileName As String = Name
Response.AddHeader("content-disposition", "attachment;filename=" & FileName)
Response.Charset = String.Empty
Response.ContentType = "application/vnd.xls"
Dim sw As New System.IO.StringWriter()
Dim hw As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(sw)
GridViewN.RenderControl(hw)
Response.Write(sw.ToString())
Response.End()
End Sub