把DataGrid数据输出到Excel文件
来源:互联网 发布:matlab for mac破解 编辑:程序博客网 时间:2024/05/02 00:27
'把DataGrid输出到Excel文件
'调用的方法:DataGridToExcel(Page, DataGrid1, filename)
Public Function DataGridToExcel(ByRef Page As System.Web.UI.Page, ByVal MyDataGrid As System.Web.UI.WebControls.DataGrid, ByVal FileName As String) As String
Dim resp As HttpResponse
resp = Page.Response
resp.ContentEncoding = System.Text.Encoding.GetEncoding("utf-7")
resp.ContentType = "application/vnd.ms-excel"
resp.AddHeader("Content-Disposition", "attachment; filename=" + FileName)
resp.Charset = "gb2312"
Dim tw As New System.IO.StringWriter
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
' Get the HTML for the control.
MyDataGrid.RenderControl(hw)
' Write the HTML back to the browser.
resp.Write(tw.ToString())
' End the response.
resp.End()
End Function
'存在分页时的做法
Sub Button1_Click(sender As Object, e As System.EventArgs)
MyDataGrid.AllowPaging = "false"
BindGrid()
MyDataGrid.SelectedItemStyle.BackColor=Color.white
MyDataGrid.AlternatingItemStyle.BackColor=Color.white
MyDataGrid.ItemStyle.BackColor=Color.white
MyDataGrid.HeaderStyle.BackColor=Color.white
MyDataGrid.HeaderStyle.ForeColor=Color.red
HttpContext.Current.Response.AppendHeader("Content-Disposition","attachment;filename=Filel.xls")
dim resp as HttpResponse = Page.Response
resp.ContentEncoding = System.Text.Encoding.GetEncoding("Big5")
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim tw As New System.IO.StringWriter()
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
MyDataGrid.RenderControl(hw)
Response.Write(tw.ToString())
Response.End()
MyDataGrid.AllowPaging = "true"
BindGrid()
End Sub
'调用的方法:DataGridToExcel(Page, DataGrid1, filename)
Public Function DataGridToExcel(ByRef Page As System.Web.UI.Page, ByVal MyDataGrid As System.Web.UI.WebControls.DataGrid, ByVal FileName As String) As String
Dim resp As HttpResponse
resp = Page.Response
resp.ContentEncoding = System.Text.Encoding.GetEncoding("utf-7")
resp.ContentType = "application/vnd.ms-excel"
resp.AddHeader("Content-Disposition", "attachment; filename=" + FileName)
resp.Charset = "gb2312"
Dim tw As New System.IO.StringWriter
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
' Get the HTML for the control.
MyDataGrid.RenderControl(hw)
' Write the HTML back to the browser.
resp.Write(tw.ToString())
' End the response.
resp.End()
End Function
'存在分页时的做法
Sub Button1_Click(sender As Object, e As System.EventArgs)
MyDataGrid.AllowPaging = "false"
BindGrid()
MyDataGrid.SelectedItemStyle.BackColor=Color.white
MyDataGrid.AlternatingItemStyle.BackColor=Color.white
MyDataGrid.ItemStyle.BackColor=Color.white
MyDataGrid.HeaderStyle.BackColor=Color.white
MyDataGrid.HeaderStyle.ForeColor=Color.red
HttpContext.Current.Response.AppendHeader("Content-Disposition","attachment;filename=Filel.xls")
dim resp as HttpResponse = Page.Response
resp.ContentEncoding = System.Text.Encoding.GetEncoding("Big5")
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim tw As New System.IO.StringWriter()
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
MyDataGrid.RenderControl(hw)
Response.Write(tw.ToString())
Response.End()
MyDataGrid.AllowPaging = "true"
BindGrid()
End Sub
- 把DataGrid数据输出到Excel文件
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把Excel文件中的数据读入到DataGrid中
- 把数据输出到Excel
- 将DataGrid输出到Excel文件
- 将DataGrid输出到Excel文件
- 语言只是工具
- [转帖]狂了!体检时的爆笑趣事!!!!笑死算完!!!
- [转帖]幽幽的甜--谁娶了这女人绝对得折腾死(超级爆笑)
- CK's Blog V2.0
- [转帖]十个经典的学生上课插嘴
- 把DataGrid数据输出到Excel文件
- 关于Web设计、开发中window对象的资料
- Toruqe结构体(建筑物等)建模以及MAP制作工具的选择和建议(Torque Map Editors)
- 《代码大全2》读书笔记——变量(使用变量的一般事项)
- Boot Loader 的设计与实现
- 几个事情随便说一下
- hibernate需要注意的。
- 世界杯2号宣言
- 双向排序