Web页面数据导出方法概述之导出excel

来源：作者：出处：巧巧读书 2006-09-27 进入讨论组

　　前言：

随着BS体系结构的广泛使用，相对应的数据保存技术也要改进，对应Web页面，也就是我们通常认识到的HTML文件，由标示关键字与数据混合组成的文件。Web页面数据导出简单地说，就是分离数据与格式，同时保存数据为另外一种格式。

正文：

分析HTTP Response等文件头信息，对如何处理Web页面非常有用，下面简单地介绍几种常用的方法，算是在技术上学习，非理论上学习。

下面的代码分析如何通过修改http头文件，产生Excel的文件供用户下载，以达到数据导出的功能。这种非实际在服务器端生成文件的优点就是，对于并发请求该页面的用户来说不会发生服务器端文件同名覆盖的问题！一般的解决方法有根据用户名，ip，随机数等。

Dim resp As HttpResponse

Dim colCount As Integer = MyDataGrid.Columns.Count - 1

resp = Page.Response

resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312") '解决中文乱码之关键

'resp.Charset = "utf-8"

'resp.AddFileDependency(FileName)

'resp.ContentType = "Text/HTML"

''resp.AppendHeader("Content-Type", "text/HTML; charset=gb2312")

resp.ContentType = "Text/csv" '通过修改文件类型可以让用户下载为csv类型的文件，修改text/**内容

resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName + ".csv") '必要，做成下载文件

'实际从下载的保存文件类型来看，可以使txt，可以HTML，可以xls，用户未必知道？且保存为xls的文件，数据包含在一列内

Dim colHeaders As String = ""

'Imports System.Text

Dim strItems As StringBuilder = New StringBuilder

Dim myCol As DataGridColumn

Dim i As Integer

For i = 0 To colCount

myCol = MyDataGrid.Columns(i)

If myCol.Visible = True Then

colHeaders = colHeaders & myCol.HeaderText.ToString & ","

End If

Next

If colHeaders.Length > 0 Then

colHeaders = colHeaders.Substring(0, colHeaders.LastIndexOf(","))

End If

colHeaders = colHeaders & Chr(13) & Chr(10)

resp.Write(colHeaders)

Dim colRow As String

Dim item As DataGridItem

For Each item In MyDataGrid.Items

resp.Write(FormatExportRow(colCount, item, MyDataGrid))

‘将数据写入对应的单元格

Next item

resp.End()

也有描述如何将水晶报表导出为PDF文件保存的代码，但是这种方式以及具体实现的过程，还在研究中。基本的想法是可以通过pdf然后利用插件打开，或者直接保存PDF转载:http://www.qqread.com/dotnet/j229721.html