( 一 ) 使用動態建立的方法
首先建立 excel 物件，使用comobj :
var
1 ) 顯示當前視窗：
2 ) 更改 excel 標題欄：
3 ) 新增新工作簿：
4 ) 開啟已存在的工作簿：
5 ) 設定第2個工作表為活動工作表： 或
取得excel中總行數和列數
tempermaxrows
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 ) 放棄存檔：
25）並從程序中退出：
( 二 ) 使用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 var1 顯示當前視窗 2 更改 excel 標題欄 3 新增新工作簿 4 開啟已存在的工作簿 5 設定第2個工作表為活動工作表 或6 給單元格賦值 7 設定指定列的寬度 單位 字元個數 以第一列為例 8 設定指定行的高度 單位 ...
delphi 讀取excel 兩種方法
兩種方法,一是用ado連線,問題是excel檔案內容要規則,二是用ole開啟,但操作就沒有象 運算元據庫那麼方便了.一 用ado連線 設定屬性connetionstring 選擇 microsoft jet 4.0 ole db provider select or enter a datasorc...
delphi 讀取excel 兩種方法
兩種方法,一是用ado連線,問題是excel檔案內容要規則,二是用ole開啟,但操作就沒有象 運算元據庫那麼方便了.一 用ado連線 設定屬性connetionstring 選擇 microsoft jet 4.0 ole db provider select or enter a datasorc...