预览加载中,请您耐心等待几秒...
1/6
2/6
3/6
4/6
5/6
6/6

在线预览结束,喜欢就下载吧,查找使用更方便

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

一、首先要引用一个Excel的组件,我一开始是在OfficeXP下尝试的,不成功,后来把XP给干掉,装2k,就成功了,所以这里分享的是Office2k下引用相关组件来实现功能的,在工程中引用COM标签中的MicrosoftExcel9.0ObjectLibrary,添加成功后,引用中会多出三个引用项:Excel、Office、VBIDE。二、具体代码。usingSystem;usingSystem.Data;usingExcel;usingSystem.IO;namespaceTest.ExcelCom{///<summary>///将DataView中的数据导入Excel文件中///作者:Rexsp///创建:2004-4-4///</summary>publicclassOutputExcel{#region私有成员///<summary>///数据的DataView///</summary>privateDataViewdv=null;///<summary>///表格标题///</summary>privatestringtitle=null;///<summary>///输出文件路径///</summary>privatestringoutFilePath=null;///<summary>///输入文件名///</summary>privatestringinputFilePath=null;#endregion#region公共属性///<summary>///数据的DataView///</summary>publicDataViewDV{set{dv=value;}}///<summary>///表格标题///</summary>publicstringTitle{set{title=value;}get{returntitle;}}///<summary>///输出文件路径///</summary>publicstringOutFilePath{set{outFilePath=value;}get{returnoutFilePath;}}///<summary>///输入文件路径///</summary>publicstringInputFilePath{set{inputFilePath=value;}get{returninputFilePath;}}#endregion#region构造函数publicOutputExcel(){}publicOutputExcel(DataViewdv,stringtitle){////TODO:在此处添加构造函数逻辑//}#endregion#region公共方法publicvoidCreateExcel(){introwIndex=4;//行起始坐标intcolIndex=1;//列起始坐标ApplicationClassmyApp=null;WorkbookmyBook=null;WorksheetmySheet=null;//如果文件不存在,则将模板文件拷贝一份作为输出文件//这里如果通过File.Create来创建文件是不行的,因为xls//的空文件也有固定的格式,跟文本不一样的,也许有其它//通过程序直接生成excel的方法,大家可以尝试尝试的if(!File.Exists(outFilePath)){File.Copy(inputFilePath,outFilePath,true);}myApp=newApplicationClass();myApp.Visible=false;objectoMissiong=System.Reflection.Missing.Value;myApp.Workbooks.Open(outFilePath,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong);myBook=myApp.Workbooks[1];mySheet=(Worksheet)myBook.ActiveSheet;////取得标题//foreach(DataColumncolindv.Table.Columns){colIndex++;mySheet.Cells[4,colIndex]=col.ColumnName;mySheet.get_Range(mySheet.Cells[4,colIndex],mySheet.Cells[4,colIndex]).HorizontalAlignment=XlVAlign.xlVAlignCenter;//设置标题格式为居中对