ASP.Net 服务器端 新建 SAVE excel文件的方法(c#)

转载 2006年05月18日 14:40:00

引用 the Microsoft Excel 9.0 Object Library 

源代码如下:

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System.Data.SqlClient;
using System.Runtime.InteropServices;

namespace ExeciseAsp.MakeExcel
{
 /// <summary>
 /// index
 /// </summary>
 public class index : System.Web.UI.Page
 {
  protected System.Web.UI.WebControls.Button btnOk;
  protected System.Web.UI.WebControls.Label lblInfo;
  protected System.Web.UI.WebControls.Label Label1;
  protected System.Web.UI.WebControls.TextBox txtCustNum;
 
  private void Page_Load(object sender, System.EventArgs e)
  {
  
  }

  #region Web 窗体设计器生成的代码
  override protected void OnInit(EventArgs e)
  {
   //
   // CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。
   //
   InitializeComponent();
   base.OnInit(e);
  }
 
  /// <summary>
  /// 设计器支持所需的方法 - 不要使用代码编辑器修改
  /// 此方法的内容。
  /// </summary>
  private void InitializeComponent()
  {   
   this.btnOk.Click += new System.EventHandler(this.btnOk_Click);
   this.Load += new System.EventHandler(this.Page_Load);

  }
  #endregion


  private void btnOk_Click(object sender, System.EventArgs e)
  {
   string sConnString="Data Source=.;initial catalog=test;User ID=sa;Password=";
   SqlConnection conn= new SqlConnection(sConnString);

   try
   {
   
    // Process Excel
      Excel.Application oExcel = new Excel.Application();
    Excel.Workbooks oBooks;
    Excel.Workbook oBook;
      Excel.Sheets oSheets;
    Excel.Worksheet oSheet;
      Excel.Range oCells;
      String sFile;
      sFile = Server.MapPath(Request.ApplicationPath) + @"/MyExcel.xls" ;
       oExcel.Visible = false;
       oExcel.DisplayAlerts = false ;
    //  'add a new workbook
       oBooks = oExcel.Workbooks;
    oBooks.Add(Type.Missing);
    oBook=oExcel.ActiveWorkbook;
              //oBooks.Open(Server.MapPath( Request.ApplicationPath) + @"/MyTemplate.xls",Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing) ;
    //oBook = oBooks[1];
    oSheets = oBook.Worksheets;
   
    string sqlstr;
    DataTable dt;

    //NO 1 query
    //retrieve the sql query result
    sqlstr="select fldCustID,fldCustName from tblCustomer where fldCustID="+ QuoStr(txtCustNum.Text)  ;
    dt=GetData(sqlstr,conn);   
    //Add a sheet
    oSheets.Add(Type.Missing,Type.Missing,Type.Missing,Type.Missing) ;
    oSheet = (Excel.Worksheet)oSheets[1];
      //name the sheet
      oSheet.Name = "First Sheet";
      oCells = oSheet.Cells;     
    //call the dumpdata function,import the data to Excel
      DumpData(dt,oCells);

    //NO 2 query
    //retrieve the sql query result
    sqlstr="select fldCustID,fldCustAge from tblCustomer where fldCustID="+ QuoStr(txtCustNum.Text)  ;
    dt=GetData(sqlstr,conn);   
    //Add a sheet
    oSheets.Add(Type.Missing,Type.Missing,Type.Missing,Type.Missing) ;
    oSheet = (Excel.Worksheet)oSheets[1];
      //name the sheet
      oSheet.Name = "Second Sheet";
      oCells = oSheet.Cells;     
    //call the dumpdata function,import the data to Excel
      DumpData(dt,oCells);

    //NO 3 query
    //retrieve the sql query result
    sqlstr="select fldCustID,fldCustAddress from tblCustomer where fldCustID="+ QuoStr(txtCustNum.Text)  ;
    dt=GetData(sqlstr,conn);   
    //Add a sheet
    oSheets.Add(Type.Missing,Type.Missing,Type.Missing,Type.Missing) ;
    oSheet = (Excel.Worksheet)oSheets[1];
      //name the sheet
      oSheet.Name = "Third Sheet";
      oCells = oSheet.Cells;     
    //call the dumpdata function,import the data to Excel
      DumpData(dt,oCells);
   
   
    //save the .xls file
      oSheet.SaveAs(sFile ,Type.Missing,Type.Missing,Type.Missing,Type.Missing ,Type.Missing,Type.Missing,Type.Missing,Type.Missing );
      oBook.Close(null,null,null);

  
      //quit Excel,release the resource
      oExcel.Quit();
      Marshal.ReleaseComObject(oCells);
    Marshal.ReleaseComObject(oSheet);
      Marshal.ReleaseComObject(oSheets);
    Marshal.ReleaseComObject(oBook) ;
      Marshal.ReleaseComObject(oBooks) ;
    Marshal.ReleaseComObject(oExcel);
      oExcel = null ;
    oBooks = null ;
    oBook = null;
      oSheets = null ;
    oSheet = null ;
    oCells = null;
      System.GC.Collect();

    //show info
    lblInfo.Text="the results are saved into the following file:" + sFile ;
   

   }

   catch (Exception ex)
   {
    lblInfo.Text=ex.Message ;

   }
   finally
   {
    if (conn.State==ConnectionState.Open)
     conn.Close();
   }
  
  }

 
  //retreave the query result
  private DataTable  GetData(string sqlstr, SqlConnection conn)
  {
   SqlCommand customer =new SqlCommand(sqlstr,conn);
   SqlDataAdapter da = new SqlDataAdapter(customer);
   DataTable dt=new DataTable() ;
   da.Fill(dt);
   return dt;
  }


  //import the data from datatable to Excel 
  private void  DumpData(DataTable dt, Excel.Range oCells)
  {
     DataRow dr;
   object[] ary;

     int iRow;
   int iCol;
   
     //import the fields' name
     for ( iCol = 0;iCol<= dt.Columns.Count - 1;iCol++)
   {
       oCells[2, iCol + 1] = dt.Columns[iCol].ToString();
   }
   
     //import the values
     for ( iRow = 0; iRow<=dt.Rows.Count - 1; iRow++)
   {
       dr = dt.Rows[iRow];
       ary = dr.ItemArray ;
       for(iCol = 0;iCol<= ary.GetLength(0) - 1;iCol++)
    {
        oCells[iRow + 3, iCol + 1] = ary[iCol].ToString();
        //Response.Write(ary[iCol].ToString() + (char)9);
     
      }
   }
  }

  //double the single quote in string
  public static string QuoStr(string Str)
  {
   string VarTemp="";
   if (Str==null)
    VarTemp="Null";
   else
   {
    VarTemp=Str;
    int i = VarTemp.IndexOf("'");//return -1 if not found
    while (i>=0)
    {
     VarTemp=VarTemp.Substring(0,i)+VarTemp.Substring(i);
     i = VarTemp.IndexOf("'",i+2);
    }
   }
   return "'"+VarTemp+"'";
  }

 
 }
}

相关文章推荐

asp.net在服务器端输出js代码的方法和位置分析

操作方法: 1)Page.Response.Write("alert('response.write js');"); 2)Page.ClientScript.RegisterClientScri...

使用ASP.NET AJAX异步调用Web Service和页面中的类方法(6):服务器端和客户端数据类型的自动转换:复杂类型

====================================================== 注:本文源代码点此下载 =============================...

使用ASP.NET AJAX异步调用Web Service和页面中的类方法(7):服务器端和客户端数据类型的自动转换:泛型集合类型

====================================================== 注:本文源代码点此下载 =============================...

ASp.Net Websocket 服务器端实现(三)

简陋聊天室简单的asp.net代码实现:   public static Dictionary WSdic = SocketHelper.GetDic; //链接对象字典及用户字典 public...

asp.net web form与jQuery Validate一起工作时解决服务器端事件不能被触发的问题

初衷 刚在弄一个asp.net web form的用户注册、登录界面(asp.net mvc的高手请不要喷 :]),涉及的两个界面都有大量的验证工作要做。既然现在jQuery那么流行,赶紧找到了...

ExtJS+ASP.NET实现真实的进度条显示服务器端长时间操作的进度

ExtJS+ASP.NET实现真实的进度条显示服务器端长时间操作的进度 当服务器端执行一个长时间的操作时,页面上如何显示一个反应真实的进度条,报告服务器端执行耗时操作的进度,而不是让用户永远等待...

ASP.NET Web页面是如何在Web服务器端产生的

简介    你是否仔细地想过当一个Asp.net Web页面请求到达服务器的时候,服务器端发生了什么?服务器是如何处理到来的请求的?发送给浏览器的HTML是怎么产生的?开发者可能会用什么机制去处理不...
  • Rechan
  • Rechan
  • 2012年04月11日 22:30
  • 472

asp.net相关控件的客户端及服务器端的禁用和启用

本例包括以下控件的相关示例: Button,ImageButton,TextBox, DropDownList,CheckBox,RadioButton 的客户端及服务器端的禁用和启用 以及 ...

ASP.NET AJAX服务器端控件官方视频教程 下载

====================================================== 注:本文源代码点此下载 =============================...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP.Net 服务器端 新建 SAVE excel文件的方法(c#)
举报原因:
原因补充:

(最多只允许输入30个字)