DataGrid控件的常见数据导出EXCEL技术(1)

 
绑定到DataGrid控件中的数据导出Excel表有几种比较常见的方式.现一一介绍.
方式一:直接导出,不需要任何加工.这种对那些内容只有一页,而且是纯数据不含按钮的尤其合适.
if (dgrid.Visible==false)
{
     Label5.Visible=true;   Label5.Text=" 您还没有确认导出的内容,请先查找";
}
else
{
     Label5.Visible=false;
     Response.Clear(); Response.Buffer=trueResponse.Charset = "gb2312";// 导出中文字体
Response .AppendHeader("Content-Disposition","attachment;filename=YieldCompareForms.xls");
     Response.ContentEncoding=System.Text.Encoding.GetEncoding("gb2312");
     Response.ContentType="application/ms-excel";
     this.EnableViewState=false;
     // 定义一个输出流
     System.IO.StringWriter Ostring=new System.IO.StringWriter();
System .Web.UI.HtmlTextWriter ohtmlTextWrite=new System.Web.UI.HtmlTextWriter(Ostring);
// 目标数据绑定到输入输出流
this .dgrid.RenderControl(ohtmlTextWrite);
Response .Write(Ostring.ToString());       Response.End();
}
方式二:对DataGrid内容含有多页,但依然是纯数据的可采用此法.
Response .Clear ();Response.Buffer = true; Response.Charset = "gb2312";
string tablename =Session["unique_id"].ToString();// 表名以productid为名字
string str="attachment;filename="+tablename+".xls";
Response .AppendHeader("Content-Disposition",str);// 与下面这句等价
//Response.AppendHeader("Content-Disposition","attachment;filename=FileFlow.xls");
Response .ContentEncoding=System.Text.Encoding.GetEncoding("gb2312");
Response .ContentType = "application/ms-excel";
this .EnableViewState = false;
System .IO.StringWriter oStringWriter = new System.IO.StringWriter(); System.Web.UI.HtmlTextWriter oHtmlTextWriter=new System.Web.UI.HtmlTextWriter(oStringWriter);
GC .Collect ();
string strsql ="select uniqueid,testitem,testindex,result,speccount,errorcode from "+Session["projectname"].ToString()+".testiteminfo where uniqueid='"+tablename.ToString()+"' order by testindex";
string project=Session["projectname"].ToString();
OracleConnection  conn=new OracleConnection(StoneFunction.neworacleconn(project));
conn .Open();
 OracleDataAdapter OracleDa=new OracleDataAdapter(strsql,conn);
DataSet ds=new DataSet();
OracleDa .Fill(ds);
DataTable dt=ds.Tables[0];
StringWriter sw=new StringWriter();
//Excel 表格第一行
sw .WriteLine("Uniqueid/tTestitem/tTestindex/tResult/tSpeccount/tErrorcode");
foreach (DataRow dr in dt.Rows)
{
sw .WriteLine(dr["Uniqueid"]+"/t"+dr["testitem"]+"/t"+dr["testindex"]+"/t"+dr["result"]+"/t"+dr["speccount"]+"/t"+dr["errorcode"]);
}
sw .Close(); Response.Write(sw); Response.End();
 
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是将VB6.0 Datagrid中的数据导出Excel的示例代码: ``` Private Sub cmdExport_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim i As Integer Dim j As Integer ' 创建Excel应用程序对象 Set xlApp = New Excel.Application ' 创建新的工作簿 Set xlBook = xlApp.Workbooks.Add ' 获取默认工作 Set xlSheet = xlBook.Worksheets(1) ' 复制datagrid头到Excel工作 For i = 0 To DataGrid1.Columns.Count - 1 xlSheet.Cells(1, i + 1).Value = DataGrid1.Columns(i).Caption Next ' 复制datagrid数据Excel工作 For i = 0 To DataGrid1.Rows.Count - 1 For j = 0 To DataGrid1.Columns.Count - 1 xlSheet.Cells(i + 2, j + 1).Value = DataGrid1.Columns(j).CellText(i) Next Next ' 显示Excel应用程序 xlApp.Visible = True ' 释放对象 Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub ``` 在代码中,我们首先创建了一个Excel应用程序对象,并通过它创建了一个新的工作簿和默认的工作。然后,我们将Datagrid头复制到Excel工作的第一行,将Datagrid数据复制到Excel工作的后续行。最后,我们显示Excel应用程序,并释放了所有对象。 请注意,此代码需要引用Microsoft Excel 11.0 Object Library。要添加此引用,请打开项目菜单,选择引用,然后选择“Microsoft Excel 11.0 Object Library”并单击确定。如果您正在使用不同版本的Excel,请选择相应的版本。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值