淺談Delphi如何控制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 數據表格控制

　　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;