delphi 讀取Excel資料

2021-09-01 23:34:16 字數 3749 閱讀 7236

( 一 ) 使用動態建立的方法

首先建立 excel 物件,使用comobj :

var1 ) 顯示當前視窗:

2 ) 更改 excel 標題欄:

3 ) 新增新工作簿:

4 ) 開啟已存在的工作簿:

5 ) 設定第2個工作表為活動工作表:

或6 ) 給單元格賦值:

7 ) 設定指定列的寬度(單位:字元個數),以第一列為例:

8 ) 設定指定行的高度(單位:磅)(1磅=0.035 厘公尺),以第二行為例:

9 ) 在第8行之前插入分頁符:

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

11 ) 指定邊框線寬度:

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

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

13 ) 設定第一行字型屬性:

14 ) 進行頁面設定:

a.頁首:

b.頁尾:

c.頁首到頂端邊距2cm:

d.頁尾到底端邊距3cm:

e.頂邊距2cm:

f.底邊距2cm:

g.左邊距2cm:

h.右邊距2cm:

i.頁面水平居中:

j.頁面垂直居中:

k.列印單元格網線:

15 ) 拷貝操作:

a.拷貝整個工作表:

b.拷貝指定區域:

c.從a1位置開始貼上:

d.從檔案尾部開始貼上:

16 ) 插入一行或一列:

17 ) 刪除一行或一列:

18 ) 列印預覽工作表:

19 ) 列印輸出工作表:

20 ) 工作表儲存:

21 ) 工作表另存為:

22 ) 放棄存檔:

23 ) 關閉工作簿:

24 ) 退出 excel:

( 二 ) 使用delphi 控制項方法

1 ) 開啟excel

2 ) 顯示當前視窗:

3 ) 更改 excel 標題欄:

4 ) 新增新工作簿:

5 ) 新增新工作表:

vartemp_worksheet : _worksheet ;

begin

temp_worksheet := excelworkbook1.

worksheets.add ( emptyparam , emptyparam , emptyparam , emptyparam , 0 ) as _worksheet ;

excelworksheet1.connectto ( temp_worksheet ) ;

end ;

6 ) 開啟已存在的工作簿:

emptyparam , emptyparam , emptyparam , emptyparam ,

emptyparam , emptyparam , emptyparam , emptyparam ,

emptyparam , emptyparam , emptyparam , emptyparam , 0 )

7 ) 設定第2個工作表為活動工作表:

或8 ) 給單元格賦值:

9 ) 設定指定列的寬度(單位:字元個數),以第一列為例:

10 ) 設定指定行的高度(單位:磅)(1磅=0.035 厘公尺),以第二行為例:

11 ) 在第8行之前插入分頁符:

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

13 ) 指定邊框線寬度:

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

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

15 ) 設定第一行字型屬性:

16 ) 進行頁面設定:

a.頁首:

b.頁尾:

c.頁首到頂端邊距2cm:

d.頁尾到底端邊距3cm:

e.頂邊距2cm:

f.底邊距2cm:

g.左邊距2cm:

cation1.activesheet.pagesetup.leftmargin := 2 / 0.035 ;

h.右邊距2cm:

i.頁面水平居中:

j.頁面垂直居中:

k.列印單元格網線:

17 ) 拷貝操作:

a.拷貝整個工作表:

b.拷貝指定區域:

c.從a1位置開始貼上:

d.從檔案尾部開始貼上:

18 ) 插入一行或一列:

19 ) 刪除一行或一列:

20 ) 列印預覽工作表:

21 ) 列印輸出工作表:

22 ) 工作表儲存:

23 ) 工作表另存為:

24 ) 放棄存檔:

25 ) 關閉工作簿:

26 ) 退出 excel:

( 三 ) 使用delphi 控制excle二維圖

varasheet1 , achart , range : variant ;

1 )選擇當第乙個工作薄第乙個工作表

2 )增加乙個二維圖

achart := asheet1.chartobjects.add ( 100 , 100 , 200 , 200 ) ;

3 )選擇二維圖的形態

achart.chart.charttype := 4 ;

4 )給二維圖賦值

series := achart.chart.seriescollection ;

range := sheet1!r2c3 : r3c9 ;

series.add ( range , true ) ;

5 )加上二維圖的標題

achart.chart.hastitle := true ;

achart.chart.charttitle.characters.text := 』 excle二維圖』

6 )改變二維圖的標題字型大小

achart.chart.charttitle.font.size := 6 ;

7 )給二維圖加下標說明

achart.chart.axes ( xlcategory , xlprimary ) .hastitle := true ;

achart.chart.axes ( xlcategory , xlprimary ) .axistitle.characters.text := '' 下標說明 '' ;

8 )給二維圖加左標說明

achart.chart.axes ( xlvalue , xlprimary ) .hastitle := true ;

achart.chart.axes ( xlvalue , xlprimary ) .axistitle.characters.text := '' 左標說明 '' ;

9 )給二維圖加右標說明

achart.chart.axes ( xlvalue , xlsecondary ) .hastitle := true ;

achart.chart.axes ( xlvalue , xlsecondary ) .axistitle.characters.text := '' 右標說明 '' ;

10 )改變二維圖的顯示區大小

achart.chart.plotarea.left := 5 ;

achart.chart.plotarea.width := 223 ;

achart.chart.plotarea.height := 108 ;

11 )給二維圖座標軸加上說明

achart.chart.seriescollection [ 1 ] .name := '' 座標軸說明 '' ;

在delphi中讀取Excel資料

一 使用動態建立的方法 首先建立 excel 物件,使用comobj var 1 顯示當前視窗 2 更改 excel 標題欄 3 新增新工作簿 4 開啟已存在的工作簿 5 設定第2個工作表為活動工作表 或 取得excel中總行數和列數 tempermaxrows 6 給單元格賦值 7 設定指定列的寬...

讀取Excel資料

方法2 相當簡單,excel就像資料庫,每個sheet就是乙個table.microsoft.jet.oledb驅動.之後是datareader迴圈,或dataset處理都非常簡單.注意 資料型別的轉換 region set connection string strconn provider mi...

讀取Excel資料

excel2007的連線字串與excel2003的不同。datatable tbsheetname connection.getoledbschematable oledbschemaguid.tables,null 用來獲得sheet的名字 using system using system.io...