function createExcel:variant; var v:variant; sheet:variant; begin v:=createoleobject('Excel.Application');//创建OLE对象 v.visible:=true; v.workbooks.add(-4167); //添加工作表 v.workbooks[1].sheets[1].name:='test'; sheet:=v.workbooks[1].sheets['test']; return v; end;
procedure importData; var I,j:integer; v:variant; begin v:=createExcel; //创建Excel文件test for I:=0 to maxcolumn do begin for j:=0 to maxrow do v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据 end; end;
procedure lineStylecontrol; var v,sheet,range:variant; begin v:=createExecl; sheet:= v.workbooks[1].sheets[1]; range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格 range.select; range.merge; //合并单元格 range.borders.linestyle:=xlcontinuous; //置边框线可见 range.font.size:=9; //改变表格内文本字体大小 end;
（3）表格的复制与粘贴（copyandPaste）
procedure copyandPaste; var v,sheet,range:variant; begin v:=createExecl; sheet:= v.workbooks[1].sheets[1]; range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]]; range.select; //选定要复制的表格 range.copy; //复制选定的表格 sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置 sheet.paste； //粘贴表格 end;
2.3 文件的保存
文件保存是在创建文件的基础上进行的，过程saveFile说明了文件保存过程中应该注意的问题：
procedure saveFile; var sheet,v:variant; begin v:=createExcel; if savedialog.execute then begin v.workbooks[1].saveas(savedialog.FileName);//保存文件 v.workbooks[1].close; //关闭工作表 v.quit; //关闭Excel v := unassigned; end; end;
用Delphi控制Excel来完成数据库管理信息系统的数据报表功能，是Delphi制作复杂报表的最佳选择，因为Delphi不但能控制数据的导出与导入，而且可以完成当前Excel应用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合实际需要的各种Delphi控制Excel的控件。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
