摘 要：Excel是當前最流行的數據報表制作工具。本文介紹如何使用Delphi來控制Excel完成數據庫與報表之間的數據交換，討論了報表制作工程中的一些細節性問題。
1 引言
數據報表作為企事業單位上報和下達的重要信息載體，隨著信息化建設的不斷推進，在實際的工作中得到了前所未有的應用。因此，數據報表已經成為管理信息系統中重要的一項功能，並且，由於數據的多樣性和統計信息的增加，數據報表的系統實現變得越來越復雜。
Delphi是一個高效的可視化數據庫管理信息系統開發工具，.但是Delphi開發環境中提供的報表控件在制作復雜報表時顯得不夠理想，不管是以前版本提供的Quick Report控件組，還是Delphi 7提供的Rave控件組，都不能讓用戶對生成的報表進行改動，且程序控制很難實現。Excel作為現代辦公常用的電子表格制作工具，以它的易操作性和實用性，得到了各行業辦公人員的青睐。本文根據實際應用實踐，介紹利用Delphi編程控制Excel生成報表的各種方法。
2 Delphi控制Excel的方法
2.1 創建Excel文件
要在Delphi中控制Excel，就必須用到OLE自動化。現在一般采用OLE2來創建OLE對象，當激活一個OLE對象時，服務器程序僅在容器程序內部激活，這就是所謂的“就地激活”（in-place activation）。
創建Excel文件時，先創建一個OLE對象，然後在對象中建立工作表worksheet，如函數createExcel所示：
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;
2.2 數據表格控制
Excel表格的控制，主要包括數據的導入、修改；單元格的合並、邊框的控制；表格的復制、粘貼等。當報表格式一定的情況下，表格的復制、粘貼顯得尤為重要，這樣，可以先制作一個文件模板，然後按照實際需要輸出多頁報表即可。
（1）數據的導入（importData）
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;
（2）單元格的合並、邊框的控制（lineStylecontrol）
單元格的合並，是在選定合並范圍的情況下進行的。邊框控制可以操作邊框線條的是否顯示。其他方式的控制，可以仿照下面過程進行。
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;
3 報表制作應注意的問題
（1）報表格式的選擇
報表格式的選擇對信息系統報表的實現方法起著決定性的影響。如果在報表的格式要求比較嚴格的情況下，應當采用模板的方式產生報表。由於模板在數據導入之前就已經按照標准制定好，所以只要在程序中控制模板的復制與粘貼，然後編程實現數據輸入指定位置即可。而對於報表格式多變的情況，由於數據的不同，需要合並單元格或者控制邊框，可以直接在程序中自動控制報表的生成。
（2）打印
對於Excel報表的打印，最好不要在程序中進行控制，因為報表往往需要簽字或者進行審查，有許多報表都包含平面圖或示意圖，為了有效的控制打印質量，最好通過程序控制輸出或顯示Excel文件，以便修改；另一個重要的原因是Excel具有強大的排版功能，而這正是選擇Excel導出報表的重要原因。
（3）報表時間和表頭
報表時間要有用戶可以控制的輸出。表頭的制作要在事先做好格式，控制輸出時，只改動那些諸如上報單位、下達單位、負責人等數據，這樣既保證了系統的效率，又不失其實用性。
4 結論
用Delphi控制Excel來完成數據庫管理信息系統的數據報表功能，是Delphi制作復雜報表的最佳選擇，因為Delphi不但能控制數據的導出與導入，而且可以完成當前Excel應用中的大部分功能。如果深入研究Visual Basic for Application(VBA)就可以制作出符合實際需要的各種Delphi控制Excel的控件。
