C # export from list to excel

String savefilename = @ "E: \ xx.xls ";
List <excelinfo> List = daochuinfo. selexcel (); // Data Source
If (list. Count = 0)
Return;
Bool filesaved = false;
Excel. Application xlapp = new excel. Application ();
If (xlapp = NULL)
{
This. Page. registerstartupscript ("script", "<SCRIPT> alert ('excel objects cannot be created, maybe your computer has not installed Excel '); </SCRIPT> ");
Return;
}
Excel. workbooks = xlapp. workbooks;
Excel. Workbook workbook = workbooks. Add (Excel. xlwbatemplate. xlwbatworksheet );
Excel. worksheet = (Excel. worksheet) Workbook. worksheets [1]; // get sheet1
// Write Fields
Worksheet. cells [1, 1] = "B ";
Worksheet. cells [1, 2] = "C ";
Worksheet. cells [1, 3] = "D ";
// Write Value

For (INT r = 0; r <list. Count; r ++)
{
Excelinfo = (excelinfo) list [R];
Worksheet. cells [R + 2, 1] = excelinfo. B;
Worksheet. cells [R + 2, 2] = excelinfo. C;
Worksheet. cells [R + 2, 3] = excelinfo. D;
}
Worksheet. Columns. entirecolumn. autofit (); // adaptive column width.
If (savefilename! = "")
{
Try
{
Workbook. Saved = true;
Workbook. savecopyas (savefilename );
Filesaved = true;
}
Catch (exception ex)
{
Filesaved = false;
This. Page. registerstartupscript ("script", "<SCRIPT> alert ('file export error, file may be opened! '); </SCRIPT> ");
}
}
Else
{
Filesaved = false;
}
Xlapp. Quit ();
GC. Collect (); // forcibly destroy
}

Public static list <excelinfo> selexcel ()
{
String STR = "select B, c, d from tb_excel ";
Using (sqlconnection sqlcon = new sqlconnection (database. constr ))
{
Using (sqlcommand sqlcmd = new sqlcommand (STR, sqlcon ))
{
Sqlcon. open ();
List <excelinfo> List = new list <excelinfo> ();
Sqldatareader DR = sqlcmd. executereader ();
While (dr. Read ())
{
Excelinfo = new excelinfo ();
Excelinfo. B = Dr [0]. tostring ();
Excelinfo. c = Dr [1]. tostring ();
Excelinfo. d = Dr [2]. tostring ();
List. Add (excelinfo );
}
Return list;
}
}
}

 

This article from the csdn blog, reproduced please indicate the source: http://blog.csdn.net/ak_ljd/archive/2009/04/28/4134687.aspx