摘 要：Excel是當(dāng)前最流行的數(shù)據(jù)報(bào)表制作工具。本文介紹如何使用Delphi來控制Excel完成數(shù)據(jù)庫與報(bào)表之間的數(shù)據(jù)交換，討論了報(bào)表制作工程中的一些細(xì)節(jié)性問題。 　　關(guān)鍵字：Delphi，Excel，報(bào)表 　　引言 　　 　　數(shù)據(jù)報(bào)表作為企事業(yè)單位上報(bào)和下達(dá)的重要信息載體，隨著信息化建設(shè)的不斷推進(jìn)，在實(shí)際的工作中得到了前所未有的應(yīng)用。因此，數(shù)據(jù)報(bào)表已經(jīng)成為管理信息系統(tǒng)中重要的一項(xiàng)功能，并且，由于數(shù)據(jù)的多樣性和統(tǒng)計(jì)信息的增加，數(shù)據(jù)報(bào)表的系統(tǒng)實(shí)現(xiàn)變得越來越復(fù)雜。 　　Delphi是一個高效的可視化數(shù)據(jù)庫管理信息系統(tǒng)開發(fā)工具，.但是Delphi開發(fā)環(huán)境中提供的報(bào)表控件在制作復(fù)雜報(bào)表時顯得不夠理想，不管是以前版本提供的Quick Report控件組，還是Delphi 7提供的Rave控件組，都不能讓用戶對生成的報(bào)表進(jìn)行改動，且程序控制很難實(shí)現(xiàn)。Excel作為現(xiàn)代辦公常用的電子表格制作工具，以它的易操作性和實(shí)用性，得到了各行業(yè)辦公人員的青睞。本文根據(jù)實(shí)際應(yīng)用實(shí)踐，介紹利用Delphi編程控制Excel生成報(bào)表的各種方法。 　　Delphi控制Excel的方法 　　1 創(chuàng)建Excel文件 　　要在Delphi中控制Excel，就必須用到OLE自動化�，F(xiàn)在一般采用OLE2來創(chuàng)建OLE對象，當(dāng)激活一個OLE對象時，服務(wù)器程序僅在容器程序內(nèi)部激活，這就是所謂的“就地激活”(in-place activation)。 　　創(chuàng)建Excel文件時，先創(chuàng)建一個OLE對象，然后在對象中建立工作表worksheet，如函數(shù)createExcel所示： 　　function createExcel:variant; 　　var 　　v:variant; 　　sheet:variant; 　　begin 　　v:=createoleobject('Excel.Application');//創(chuàng)建OLE對象 　　v.visible:=true; 　　v.workbooks.add(-4167); //添加工作表 　　v.workbooks.sheets.name:='test'; 　　sheet:=v.workbooks.sheets['test']; 　　return v; 　　end; 　　2 數(shù)據(jù)表格控制 　　Excel表格的控制，主要包括數(shù)據(jù)的導(dǎo)入、修改；單元格的合并、邊框的控制；表格的復(fù)制、粘貼等。當(dāng)報(bào)表格式一定的情況下，表格的復(fù)制、粘貼顯得尤為重要，這樣，可以先制作一個文件模板，然后按照實(shí)際需要輸出多頁報(bào)表即可。 　　(1)數(shù)據(jù)的導(dǎo)入(importData) 　　procedure importData; 　　var 　　I,j:integer; 　　v:variant; 　　begin 　　v:=createExcel; //創(chuàng)建Excel文件test 　　for I:=0 to maxcolumn do 　　begin 　　for j:=0 to maxrow do 　　v.workbooks.sheets.cells[I,j]:=I*j; //導(dǎo)入數(shù)據(jù) 　　end; 　　end;

　　(2)單元格的合并、邊框的控制(lineStylecontrol) 　　單元格的合并，是在選定合并范圍的情況下進(jìn)行的。邊框控制可以操作邊框線條的是否顯示。其他方式的控制，可以仿照下面過程進(jìn)行。 　　procedure lineStylecontrol; 　　var 　　v,sheet,range:variant; 　　begin 　　v:=createExecl; 　　sheet:= v.workbooks.sheets; 　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//選定表格 　　range.select; 　　range.merge; //合并單元格 　　range.borders.linestyle:=xlcontinuous; //置邊框線可見 　　range.font.size:=9; //改變表格內(nèi)文本字體大小 　　end;

[next]

 

　(3)表格的復(fù)制與粘貼(copyandPaste) 　　procedure copyandPaste; 　　var 　　v,sheet,range:variant; 　　begin 　　v:=createExecl; 　　sheet:= v.workbooks.sheets; 　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]]; 　　range.select; //選定要復(fù)制的表格 　　range.copy; //復(fù)制選定的表格 　　sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //選擇要粘貼的位置 　　sheet.paste； //粘貼表格 　　end; 　　3 文件的保存 　　文件保存是在創(chuàng)建文件的基礎(chǔ)上進(jìn)行的，過程saveFile說明了文件保存過程中應(yīng)該注意的問題： 　　procedure saveFile; 　　var 　　sheet,v:variant; 　　begin 　　v:=createExcel; 　　if savedialog.execute then 　　begin 　　v.workbooks.saveas(savedialog.FileName);//保存文件 　　v.workbooks.close; //關(guān)閉工作表 　　v.quit; //關(guān)閉Excel 　　v := unassigned; 　　end; 　　end; 　　報(bào)表制作應(yīng)注意的問題 　　(1)報(bào)表格式的選擇 　　報(bào)表格式的選擇對信息系統(tǒng)報(bào)表的實(shí)現(xiàn)方法起著決定