Delphi控制Excel2000心得

(一) 运用动静创造的本领开始创造 excel 东西，运用comobj:var excelapp: variant;excelapp := createoleobject( 'excel.application' );1) 表露暂时窗口：excelapp.visible := true;2) 变动 excel 题目栏：excelapp.caption := '运用步调挪用 microsoft excel';3) 增添新处事簿：excelapp.workbooks.add;4) 翻开已生存的处事簿：excelapp.workbooks.open( 'c:\excel\demo.xls' );5) 树立第2个处事表为活开工作表：excelapp.worksheets[2].activate; 或 excelapp.workssheets[ 'sheet2' ].activate;6) 给单位格赋值：excelapp.cells[1,4].value := '第一条龙第四列';7) 树立指定列的宽窄（单元：字符个数），以第一名列例：excelapp.activesheet.columns[1].columnswidth := 5;8) 树立指定行的莫大（单元：磅）（1磅＝0.035厘米），以第二动作例：excelapp.activesheet.rows[2].rowheight := 1/0.035; // 1厘米9) 在第8行之前插入分页符：excelapp.worksheets[1].rows[8].pagebreak := 1;10) 在第8列之前简略分页符：excelapp.activesheet.columns[4].pagebreak := 0;11) 指定边框线宽窄：excelapp.activesheet.range[ 'b3:d4' ].borders[2].weight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )12) 废除第一条龙第四列单位格公式：excelapp.activesheet.cells[1,4].clearcontents;13) 树立第一条龙字体属性：excelapp.activesheet.rows[1].font.name := '隶字';excelapp.activesheet.rows[1].font.color := clblue;excelapp.activesheet.rows[1].font.bold := true;excelapp.activesheet.rows[1].font.underline := true;14) 举行页面树立：a.页眉：    excelapp.activesheet.pagesetup.centerheader := '报表演练';b.页脚：    excelapp.activesheet.pagesetup.centerfooter := '第&p页';c.页眉到尖端边距2cm：    excelapp.activesheet.pagesetup.headermargin := 2/0.035;d.页脚究竟端边距3cm：    excelapp.activesheet.pagesetup.headermargin := 3/0.035;e.顶边距2cm：    excelapp.activesheet.pagesetup.topmargin := 2/0.035;f.底边距2cm：    excelapp.activesheet.pagesetup.bottommargin := 2/0.035;g.左边距2cm：    excelapp.activesheet.pagesetup.leftmargin := 2/0.035;h.右边距2cm：    excelapp.activesheet.pagesetup.rightmargin := 2/0.035;i.页面程度居中：    excelapp.activesheet.pagesetup.centerhorizontally := 2/0.035;j.页面笔直居中：    excelapp.activesheet.pagesetup.centervertically := 2/0.035;k.打字与印刷单位格网线：    excelapp.activesheet.pagesetup.printgridlines := true;15) 正片操纵：a.正片所有处事表：    excelapp.activesheet.used.range.copy;b.正片指定地区：    excelapp.activesheet.range[ 'a1:e2' ].copy;c.从a1场所发端粘贴：    excelapp.activesheet.range.[ 'a1' ].pastespecial;d.从文献尾部发端粘贴：    excelapp.activesheet.range.pastespecial;16) 插入一条龙或一列：a. excelapp.activesheet.rows[2].insert;b. excelapp.activesheet.columns[1].insert;17) 简略一条龙或一列：a. excelapp.activesheet.rows[2].delete;b. excelapp.activesheet.columns[1].delete;18) 打字与印刷预览处事表：excelapp.activesheet.printpreview;19) 打字与印刷输入处事表：excelapp.activesheet.printout;20) 处事表生存：if not excelapp.activeworkbook.saved then   excelapp.activesheet.printpreview;21) 处事表另存为：excelapp.saveas( 'c:\excel\demo1.xls' );22) 停止存盘：excelapp.activeworkbook.saved := true;23) 封闭处事簿：excelapp.workbooks.close;24) 退出 excel：excelapp.quit;(二) 运用delphi 控件本领在form中辨别放入excelapplication, excelworkbook和excelworksheet。 1） 翻开excel excelapplication1.connect;2) 表露暂时窗口：excelapplication1.visible[0]:=true;3) 变动 excel 题目栏：excelapplication1.caption := '运用步调挪用 microsoft excel';4) 增添新处事簿：excelworkbook1.connectto(excelapplication1.workbooks.add(emptyparam,0));   5) 增添新处事表：var temp_worksheet: _worksheet;begintemp_worksheet:=excelworkbook1.worksheets.add(emptyparam,emptyparam,emptyparam,emptyparam,0) as _worksheet;excelworksheet1.connectto(temp_worksheet);end;   6) 翻开已生存的处事簿：excelapplication1.workbooks.open (c:\a.xlsemptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,    emptyparam,emptyparam,emptyparam,emptyparam,0)7) 树立第2个处事表为活开工作表：excelapplication1.worksheets[2].activate; 或excelapplication1.workssheets[ 'sheet2' ].activate;8) 给单位格赋值：excelapplication1.cells[1,4].value := '第一条龙第四列';9) 树立指定列的宽窄（单元：字符个数），以第一名列例：excelapplication1.activesheet.columns[1].columnswidth := 5;10) 树立指定行的莫大（单元：磅）（1磅＝0.035厘米），以第二动作例：excelapplication1.activesheet.rows[2].rowheight := 1/0.035; // 1厘米11) 在第8行之前插入分页符：excelapplication1.worksheets[1].rows[8].pagebreak := 1;12) 在第8列之前简略分页符：excelapplication1.activesheet.columns[4].pagebreak := 0;13) 指定边框线宽窄：excelapplication1.activesheet.range[ 'b3:d4' ].borders[2].weight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )14) 废除第一条龙第四列单位格公式：excelapplication1.activesheet.cells[1,4].clearcontents;15) 树立第一条龙字体属性：excelapplication1.activesheet.rows[1].font.name := '隶字';excelapplication1.activesheet.rows[1].font.color := clblue;excelapplication1.activesheet.rows[1].font.bold := true;excelapplication1.activesheet.rows[1].font.underline := true;16) 举行页面树立： a.页眉：    excelapplication1.activesheet.pagesetup.centerheader := '报表演练';b.页脚：    excelapplication1.activesheet.pagesetup.centerfooter := '第&p页';c.页眉到尖端边距2cm：    excelapplication1.activesheet.pagesetup.headermargin := 2/0.035;d.页脚究竟端边距3cm：    excelapplication1.activesheet.pagesetup.headermargin := 3/0.035;e.顶边距2cm：    excelapplication1.activesheet.pagesetup.topmargin := 2/0.035;f.底边距2cm：    excelapplication1.activesheet.pagesetup.bottommargin := 2/0.035;g.左边距2cm：    excelapplication1.activesheet.pagesetup.leftmargin := 2/0.035;h.右边距2cm：    excelapplication1.activesheet.pagesetup.rightmargin := 2/0.035;i.页面程度居中：    excelapplication1.activesheet.pagesetup.centerhorizontally := 2/0.035;j.页面笔直居中：    excelapplication1.activesheet.pagesetup.centervertically := 2/0.035;k.打字与印刷单位格网线：    excelapplication1.activesheet.pagesetup.printgridlines := true;17) 正片操纵：a.正片所有处事表：    excelapplication1.activesheet.used.range.copy;b.正片指定地区：    excelapplication1.activesheet.range[ 'a1:e2' ].copy;c.从a1场所发端粘贴：    excelapplication1.activesheet.range.[ 'a1' ].pastespecial;d.从文献尾部发端粘贴：    excelapplication1.activesheet.range.pastespecial;18) 插入一条龙或一列：a. excelapplication1.activesheet.rows[2].insert;b. excelapplication1.activesheet.columns[1].insert;19) 简略一条龙或一列：a. excelapplication1.activesheet.rows[2].delete;b. excelapplication1.activesheet.columns[1].delete;20) 打字与印刷预览处事表：excelapplication1.activesheet.printpreview;21) 打字与印刷输入处事表：excelapplication1.activesheet.printout;22) 处事表生存：if not excelapplication1.activeworkbook.saved then   excelapplication1.activesheet.printpreview;23) 处事表另存为：excelapplication1.saveas( 'c:\excel\demo1.xls' );24) 停止存盘：excelapplication1.activeworkbook.saved := true;25) 封闭处事簿：excelapplication1.workbooks.close;26) 退出 excel：excelapplication1.quit;excelapplication1.disconnect;(三) 运用delphi 遏制excle二维图在form中辨别放入excelapplication, excelworkbook和excelworksheetvar asheet1,achart, range:variant;1）采用当第一个处事薄第一个处事表asheet1:=excelapplication1.workbooks[1].worksheets[1];2）减少一个二维图achart:=asheet1.chartobjects.add(100,100,200,200);3）采用二维图的样式achart.chart.charttype:=4;4）给二维图赋值series:=achart.chart.seriescollection;range:=sheet1!r2c3:r3c9;series.add(range,true);   5）加上二维图的题目achart.chart.hastitle:=true;achart.chart.charttitle.characters.text:=’ excle二维图’ 6）变换二维图的题目字体巨细achart.chart.charttitle.font.size:=6;7）给二维图加下标证明achart.chart.axes(xlcategory, xlprimary).hastitle := true;achart.chart.axes(xlcategory, xlprimary).axistitle.characters.text := '下标证明';8）给二维图加左标证明achart.chart.axes(xlvalue, xlprimary).hastitle := true;achart.chart.axes(xlvalue, xlprimary).axistitle.characters.text := '左标证明';9）给二维图加右标证明achart.chart.axes(xlvalue, xlsecondary).hastitle := true;achart.chart.axes(xlvalue, xlsecondary).axistitle.characters.text := '右标证明';10）变换二维图的表露区巨细achart.chart.plotarea.left := 5;achart.chart.plotarea.width := 223;achart.chart.plotarea.height := 108;11）给二维图坐标轴加上证明achart.chart.seriescollection[1].name:='坐标轴证明';   e-mail: sunxiyu@gd-soft.net           wuxy@gd-soft.net证明：连载正文实质请与作家接洽。