DataGrid/DataSet导出到excle和csv文件


1.html代码
< HTML >
    
< HEAD >
        
< title > WriteToCVS </ title >
        
< meta  content ="False"  name ="vs_snapToGrid" >
        
< meta  content ="Microsoft Visual Studio .NET 7.1"  name ="GENERATOR" >
        
< meta  content ="C#"  name ="CODE_LANGUAGE" >
        
< meta  content ="JavaScript"  name ="vs_defaultClientScript" >
        
< meta  content ="http://schemas.microsoft.com/intellisense/ie5"  name ="vs_targetSchema" >
    
</ HEAD >
    
< body  MS_POSITIONING ="GridLayout" >
        
< form  id ="Form1"  method ="post"  runat ="server" >
            
< asp:DataGrid  id ="DataGrid1"  style ="Z-INDEX: 101; LEFT: 14px; POSITION: absolute; TOP: 109px"
                runat
="server"  BorderColor ="#CC9966"  BorderStyle ="None"  BorderWidth ="1px"  BackColor ="White"
                CellPadding
="4" >
                
< FooterStyle  ForeColor ="#330099"  BackColor ="#FFFFCC" ></ FooterStyle >
                
< SelectedItemStyle  Font-Bold ="True"  ForeColor ="#663399"  BackColor ="#FFCC66" ></ SelectedItemStyle >
                
< ItemStyle  ForeColor ="#330099"  BackColor ="White" ></ ItemStyle >
                
< HeaderStyle  Font-Bold ="True"  ForeColor ="#FFFFCC"  BackColor ="#990000" ></ HeaderStyle >
                
< PagerStyle  HorizontalAlign ="Center"  ForeColor ="#330099"  BackColor ="#FFFFCC" ></ PagerStyle >
            
</ asp:DataGrid >
            
< asp:Button  id ="Button1"  style ="Z-INDEX: 102; LEFT: 18px; POSITION: absolute; TOP: 11px"  runat ="server"
                Text
="DataSet导出到csv文件"  Width ="148px" ></ asp:Button >
            
< asp:Button  id ="Button2"  style ="Z-INDEX: 103; LEFT: 19px; POSITION: absolute; TOP: 42px"  runat ="server"
                Text
="DataGrid导出到csv文件"  Width ="157px" ></ asp:Button >
            
< asp:Button  id ="Button3"  style ="Z-INDEX: 104; LEFT: 18px; POSITION: absolute; TOP: 73px"  runat ="server"
                Text
="DataGrid导出到Excel"  Width ="149px" ></ asp:Button >
        
</ form >
    
</ body >
</ HTML >
2.cs代码
using  System.IO;
using  System.Data.SqlClient;

public   class  WriteToCVS : System.Web.UI.Page
    
{
        
protected System.Web.UI.WebControls.DataGrid DataGrid1;
        
protected System.Web.UI.WebControls.Button Button2;
        
protected System.Web.UI.WebControls.Button Button3;
        
protected System.Web.UI.WebControls.Button Button1;
    
        
private void Page_Load(object sender, System.EventArgs e)
        
{
            
if(!Page.IsPostBack)
            
{
                
string sql="select * from TestGrid";
                ds
=GetDataSet(sql);
                
this.DataGrid1.DataSource=ds;
                
this.DataGrid1.DataBind();
            }

        }


        
WriteDSToCsv 传入dataset生成csv文件

        
WriteDatagridToCsv 传入datagrid生成csv文件

        
ToExcel

        
DelQuota

        
GetDataSet

        
Web Form Designer generated code

        
private void Button1_Click(object sender, System.EventArgs e)
        
{
            WriteDSToCsv(ds);
        }


        
private void Button2_Click(object sender, System.EventArgs e)
        
{
            WriteDatagridToCsv(
this.DataGrid1);        
        }


        
private void Button3_Click(object sender, System.EventArgs e)
        
{
            ToExcel(
this.DataGrid1,"meng");
        }


        
property
    }
3.数据库脚本
if   exists  ( select   *   from  dbo.sysobjects  where  id  =   object_id (N ' [dbo].[TestGrid] ' and   OBJECTPROPERTY (id, N ' IsUserTable ' =   1 )
drop   table   [ dbo ] . [ TestGrid ]
GO

CREATE   TABLE   [ dbo ] . [ TestGrid ]  (
    
[ UserID ]   [ int ]   IDENTITY  ( 1 1 NOT   NULL  ,
    
[ UserName ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
    
[ provinceID ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
    
[ cityID ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
    
[ areaID ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
    
[ Enabled ]   [ bit ]   NULL  
ON   [ PRIMARY ]
GO
 
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 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、付费专栏及课程。

余额充值