怎么用<em>delphi</em>拷贝<em>excel</em>的时

EclApp.WorkSheets[1].range['a2:B10'].borders[1].linestyle:=1;
//borders里的知常数含义：
画线道 1-左    2-右   3-顶    4-底   5-斜内( \ )  6-斜( / )

EclApp.WorkSheets[1].range['a1:p1'].merge;  //合并单元容格

1.如图，将单元格区域复制，并粘贴到另外的区域，很明显，粘贴后并没有所有的格式复制过来。特别是行高列宽。要重新调整很麻烦。

　　2.其在粘复贴选项里选择保持“保留源列宽”就可以了。

　　3.第二种方法是选择性制粘贴的方法，
　　点鼠标右键→“选择性粘贴”命令，在对话框中选择“列宽”。

　　4.复制单元格保留单元格行高和列宽方法：
　　整行复制可以保留行高，整列复制可以保留列宽，都要保留就只有整表复制。
　　所以大家如何要同时保持行高和宽的zd话，要同是选择区域所在的行和列
有个EjunGrid（深圳亿君）可以实现，仿Excel的。

var ExcelApp1,ExcelApp2: Variant;
ExcelApp1 := CreateOleObject( 'Excel.Application' ); //打开zhidaoexcel
ExcelApp2 := CreateOleObject( 'Excel.Application' ); //打开excel
ExcelApp1.WorkBooks.Open( 'C:\Excel\Demo1.xls' );
ExcelApp2.WorkBooks.Open( 'C:\Excel\Demo2.xls' );
ExcelApp1.WorksSheets[ 'Sheet1' ].Activate;
ExcelApp2.WorksSheets[ 'Sheet1' ].Activate;
ExcelApp1.ActiveSheet.Rows[1 ].Copy;
ExcelApp2.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
ExcelApp1.WorkBooks.Close;
ExcelApp2.WorkBooks.Close;
ExcelApp1.quit;
ExcelApp2.quit;