怎么在delphi中讀取Excel數據(各種詳細操作)

怎么在delphi中讀取Excel數據(各種詳細操作)怎么在delphi中讀取Excel數據(各種詳細操作)怎么在delphi中讀取Excel數據(各種詳細操作)V:1.0精細整理，僅供參考怎么在delphi中讀取Excel數據(各種詳細操作)日期：20xx年X月怎么在delphi中讀取Excel數據（各種詳細操作）轉(一)使用動態(tài)創(chuàng)建的方法

首先創(chuàng)建Excel對象，使用ComObj:

Var

ExcelApp:Variant;

ExcelApp:=CreateOleObject(''

'');

1)顯示當前窗口：

:=True;

2)更改Excel標題欄：

:=''應用程序調用MicrosoftExcel'';

3)添加新工作簿：

;

4)打開已存在的工作簿：

(''C:\Excel\'');

5)設置第2個工作表為活動工作表：

[2].Activate;

或

[''Sheet2''].Activate;

6)給單元格賦值：

[1,4].Value:=''第一行第四列'';

7)設置指定列的寬度（單位：字符個數），以第一列為例：

[1].ColumnsWidth:=5;

8)設置指定行的高度（單位：磅）（1磅＝厘米），以第二行為例：

[2].RowHeight:=1/;ows[8].PageBreak:=1;

10)在第8列之前刪除分頁符：

[4].PageBreak:=0;

11)指定邊框線寬度：

[''B3:D4''].Borders[2].Weight:=3;

1-左2-右3-頂4-底5-斜(\)6-斜(/)

12)清除第一行第四列單元格公式：

[1,4].ClearContents;

13)設置第一行字體屬性：

[1].:=''隸書'';

[1].:=clBlue;

[1].:=True;

[1].:=True;

14)進行頁面設置：

a.頁眉：

:=''報表演示'';

b.頁腳：

:=''第&P頁'';

c.頁眉到頂端邊距2cm：

:=2/;

d.頁腳到底端邊距3cm：

:=3/;

e.頂邊距2cm：

:=2/;

f.底邊距2cm：

:=2/;

g.左邊距2cm：

:=2/;

h.右邊距2cm：

:=2/;

i.頁面水平居中：

:=2/;

j.頁面垂直居中：

:=2/;

k.打印單元格網線：

:=True;

15)拷貝操作：

a.拷貝整個工作表：

;

b.拷貝指定區(qū)域：

[''A1:E2''].Copy;

c.從A1位置開始粘貼：

[''A1''].PasteSpecial;

d.從文件尾部開始粘貼：

;

16)插入一行或一列：

[2].Insert;

[1].Insert;

17)刪除一行或一列：

[2].Delete;

[1].Delete;

18)打印預覽工作表：

;

19)打印輸出工作表：

;

20)工作表保存：

IfNotThen

;

21)工作表另存為：

(''C:\Excel\'');

22)放棄存盤：

:=True;

23)關閉工作簿：

;

24)退出Excel：

;

(二)使用Delphi控件方法

在Form中分別放入ExcelApplication,ExcelWorkbook和ExcelWorksheet。

1）打開Excel

;

2)顯示當前窗口：

[0]:=True;

3)更改Excel標題欄：

:=''應用程序調用MicrosoftExcel'';

4)添加新工作簿：

((EmptyParam,0));

5)添加新工作表：

Var

Temp_Worksheet:_WorkSheet;

Begin

Temp_Worksheet:=ExcelWorkbook1.

(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)As_WorkSheet;

(Temp_WorkSheet);

End;

6)打開已存在的工作簿：

(c:\

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)

7)設置第2個工作表為活動工作表：

[2].Activate;

或

[''Sheet2''].Activate;

8)給單元格賦值：

[1,4].Value:=''第一行第四列'';

9)設置指定列的寬度（單位：字符個數），以第一列為例：

[1].ColumnsWidth:=5;

10)設置指定行的高度（單位：磅）（1磅＝厘米），以第二行為例：

[2].RowHeight:=1/;ows[8].PageBreak:=1;

12)在第8列之前刪除分頁符：

[4].PageBreak:=0;

13)指定邊框線寬度：

[''B3:D4''].Borders[2].Weight:=3;

1-左2-右3-頂4-底5-斜(\)6-斜(/)

14)清除第一行第四列單元格公式：

[1,4].ClearContents;

15)設置第一行字體屬性：

[1].:=''隸書'';

[1].:=clBlue;

[1].:=True;

[1].:=True;

16)進行頁面設置：

a.頁眉：

:=''報表演示'';

b.頁腳：

:=''第&P頁'';

c.頁眉到頂端邊距2cm：

:=2/;

d.頁腳到底端邊距3cm：

:=3/;

e.頂邊距2cm：

:=2/;

f.底邊距2cm：

:=2/;

g.左邊距2cm：

ExcelAppli

:=2/;

h.右邊距2cm：

:=2/;

i.頁面水平居中：

:=2/;

j.頁面垂直居中：

:=2/;

k.打印單元格網線：

:=True;

17)拷貝操作：

a.拷貝整個工作表：

;

b.拷貝指定區(qū)域：

[''A1:E2''].Copy;

c.從A1位置開始粘貼：

[''A1''].PasteSpecial;

d.從文件尾部開始粘貼：

;

18)插入一行或一列：

[2].Insert;

[1].Insert;

19)刪除一行或一列：

[2].Delete;

[1].Delete;

20)打印預覽工作表：

;

21)打印輸出工作表：

;

22)工作表保存：

IfNotThen

;

23)工作表另存為：

(''C:\Excel\'');

24)放棄存盤：

:=True;

25)關閉工作簿：

;

26)退出Excel：

;

;

(三)使用Delphi控制Excle二維圖

在Form中分別放入ExcelApplication,ExcelWorkbook和ExcelWorksheet

Var

asheet1,achart,range:variant;

1）選擇當第一個工作薄第一個工作表

asheet1:=[1].Worksheets[1];

2）增加一個二維圖

achart:=(100,100,200,200);

3）選擇二維圖的形態(tài)

:=4;

4）給二維圖賦值

series:=;

range:=sheet1!r2c3:r3c9;

(range,true);

5）加上二維圖的標題

:=True;

:=’Excle二維圖’

6）改變二維圖的標題字體大小

:=6;

7）給二維圖加下標說明

(xlCategory,xlPrimary).HasTitle:=True;

(xlCategory,xlPrimary).:=''下標說明'';

8）給二維圖加左標說明

(xlValue,xlPrimary).HasTitle:=True;

(xlValue,xlPrimary).:=''左標說明'';

9