怎么在delphi中讀取Excel數(shù)據(jù)(各種詳細(xì)操作)

怎么在delphi中讀取Excel數(shù)據(jù)(各種詳細(xì)操作)怎么在delphi中讀取Excel數(shù)據(jù)(各種詳細(xì)操作)怎么在delphi中讀取Excel數(shù)據(jù)(各種詳細(xì)操作)xxx公司怎么在delphi中讀取Excel數(shù)據(jù)(各種詳細(xì)操作)文件編號(hào)：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計(jì)，管理制度怎么在delphi中讀取Excel數(shù)據(jù)（各種詳細(xì)操作）轉(zhuǎn)(一)使用動(dòng)態(tài)創(chuàng)建的方法

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

Var

ExcelApp:Variant;

ExcelApp:=CreateOleObject(''

'');

1)顯示當(dāng)前窗口：

:=True;

2)更改Excel標(biāo)題欄：

:=''應(yīng)用程序調(diào)用MicrosoftExcel'';

3)添加新工作簿：

;

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

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

5)設(shè)置第2個(gè)工作表為活動(dòng)工作表：

[2].Activate;

或

[''Sheet2''].Activate;

6)給單元格賦值：

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

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

[1].ColumnsWidth:=5;

8)設(shè)置指定行的高度（單位：磅）（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)設(shè)置第一行字體屬性：

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

[1].:=clBlue;

[1].:=True;

[1].:=True;

14)進(jìn)行頁面設(shè)置：

a.頁眉：

:=''報(bào)表演示'';

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.打印單元格網(wǎng)線：

:=True;

15)拷貝操作：

a.拷貝整個(gè)工作表：

;

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

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

c.從A1位置開始粘貼：

[''A1''].PasteSpecial;

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

;

16)插入一行或一列：

[2].Insert;

[1].Insert;

17)刪除一行或一列：

[2].Delete;

[1].Delete;

18)打印預(yù)覽工作表：

;

19)打印輸出工作表：

;

20)工作表保存：

IfNotThen

;

21)工作表另存為：

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

22)放棄存盤：

:=True;

23)關(guān)閉工作簿：

;

24)退出Excel：

;

(二)使用Delphi控件方法

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

1）打開Excel

;

2)顯示當(dāng)前窗口：

[0]:=True;

3)更改Excel標(biāo)題欄：

:=''應(yīng)用程序調(diào)用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)設(shè)置第2個(gè)工作表為活動(dòng)工作表：

[2].Activate;

或

[''Sheet2''].Activate;

8)給單元格賦值：

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

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

[1].ColumnsWidth:=5;

10)設(shè)置指定行的高度（單位：磅）（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)設(shè)置第一行字體屬性：

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

[1].:=clBlue;

[1].:=True;

[1].:=True;

16)進(jìn)行頁面設(shè)置：

a.頁眉：

:=''報(bào)表演示'';

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.打印單元格網(wǎng)線：

:=True;

17)拷貝操作：

a.拷貝整個(gè)工作表：

;

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

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

c.從A1位置開始粘貼：

[''A1''].PasteSpecial;

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

;

18)插入一行或一列：

[2].Insert;

[1].Insert;

19)刪除一行或一列：

[2].Delete;

[1].Delete;

20)打印預(yù)覽工作表：

;

21)打印輸出工作表：

;

22)工作表保存：

IfNotThen

;

23)工作表另存為：

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

24)放棄存盤：

:=True;

25)關(guān)閉工作簿：

;

26)退出Excel：

;

;

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

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

Var

asheet1,achart,range:variant;

1）選擇當(dāng)?shù)谝粋€(gè)工作薄第一個(gè)工作表

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

2）增加一個(gè)二維圖

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

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

:=4;

4）給二維圖賦值

series:=;

range:=sheet1!r2c3:r3c9;

(range,true);

5）加上二維圖的標(biāo)題

:=True;

:=’Excle二維圖’

6）改變二維圖的標(biāo)題字體大小

:=6;

7）給二維圖加下標(biāo)說明

(xlCategory,xlPrimary).HasTitle:=True;

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

8）給二維圖加左標(biāo)說明

(xlValue,xlPrimary).HasTitle:=True;

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