程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 淺談Delphi如何控制Excel操作

淺談Delphi如何控制Excel操作

編輯:Delphi
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 數據表格控制

  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;


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved