分享
 
 
 

以实例说明如何使用C#从数据库中提取数据,按要求自动生成定制的Excel表格?[原创]

王朝c#·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

最近因为需要学习了一下使用C#操作Excel表格,现在把我使用C#如何定制表格的过程提供给需要的兄弟:

/*从数据库提取数据*/

string strconn="packet size=4096;user id=sa;data source=localhost;persist security info=True;initial catalog=Database;password=sa";

SqlConnection sqlconn=new SqlConnection(strconn);

sqlconn.Open();

SqlDataAdapter sqldataAdapter=new SqlDataAdapter("Select * from [数据表]",sqlconn);

DataSet myds=new DataSet();

sqldataAdapter.Fill(myds);

/*在Execl中建立“成果表”的格式表格*/

Excel.ApplicationClass excel=new Excel.ApplicationClass();

excel.Application.Workbooks.Add(true);

excel.Cells[1,1] = "单元名称" ;

excel.Cells[1,2]="指标及其描述、特征值和权重";

excel.Cells[1,23]="属性";

excel.Cells[2,2]="D";

excel.Cells[2,5]="R";

excel.Cells[2,8]="A";

excel.Cells[2,11]="S";

excel.Cells[2,14]="T";

excel.Cells[2,17]="I";

excel.Cells[2,20]="C";

excel.Cells[2,23]="结果";

excel.Cells[2,24]="等级";

excel.Cells[3,2]="描述";

excel.Cells[3,3]="特征值";

excel.Cells[3,4]="权重";

excel.Cells[3,5]="描述";

excel.Cells[3,6]="特征值";

excel.Cells[3,7]="权重";

excel.Cells[3,8]="描述";

excel.Cells[3,9]="特征值";

excel.Cells[3,10]="权重";

excel.Cells[3,11]="描述";

excel.Cells[3,12]="特征值";

excel.Cells[3,13]="权重";

excel.Cells[3,14]="描述";

excel.Cells[3,15]="特征值";

excel.Cells[3,16]="权重";

excel.Cells[3,17]="描述";

excel.Cells[3,18]="特征值";

excel.Cells[3,19]="权重";

excel.Cells[3,20]="描述";

excel.Cells[3,21]="特征值";

excel.Cells[3,22]="权重";

excel.get_Range(excel.Cells[ 1 , 1 ],excel.Cells[ 3 ,1 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 1 , 2 ],excel.Cells[ 1 ,22 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 1 , 23 ],excel.Cells[ 1 ,24 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 2 ],excel.Cells[ 2 ,4 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 5 ],excel.Cells[ 2 ,7 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 8],excel.Cells[ 2 ,10 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 ,11 ],excel.Cells[ 2 ,13 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 14 ],excel.Cells[ 2 ,16 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 17 ],excel.Cells[ 2 ,19 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 20 ],excel.Cells[ 2 ,22 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 23 ],excel.Cells[ 3 ,23 ]).MergeCells=true;

excel.get_Range(excel.Cells[ 2 , 24 ],excel.Cells[ 3 ,24 ]).MergeCells=true;

/*往Excel格式表格中写入数据*/

int waterdataRows=myds.Tables[0].Rows.Count;

int waterdataCols=myds.Tables[0].Columns.Count;

for(int i=1;i<=waterdataRows;i++)

{

excel.Cells[i+3,1]=myds.Tables[0].Rows[i-1].ItemArray.GetValue(0);

for(int j=1;j<=7;j++)

{

excel.Cells[i+3,3*j]=myds.Tables[0].Rows[i-1].ItemArray.GetValue(j);

excel.Cells[i+3,3*j+1]=WW[j-1];

}

excel.Cells[i+3,23]=ds.Tables[0].Rows[i-1].ItemArray.GetValue(1);

excel.Cells[i+3,24]=ds.Tables[0].Rows[i-1].ItemArray.GetValue(3);

}

excel.Visible=false;

excel.DisplayAlerts=false;

//Excel.WorksheetClass worksheet=(Excel.WorksheetClass)excel.ActiveSheet;

excel.Save();

excel.Application.Workbooks.Close();

excel.Application.Quit();

excel.Quit();

System.Runtime.InteropServices.Marshal.ReleaseComObject (excel);

KillProcess("EXCEL.EXE");

GC.Collect();

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有