(一) 使用動態(tài)創(chuàng)建的方法

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

var ExcelApp: Variant;

ExcelApp := CreateOleObject( 'Excel.Application' );

1) 顯示當前窗口：

ExcelApp.Visible := True;

2) 更改 Excel 標題欄：

ExcelApp.Caption := '應(yīng)用程序調(diào)用 Microsoft Excel';

3) 添加新工作簿：

ExcelApp.WorkBooks.Add;

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

ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );

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

ExcelApp.WorkSheets[2].Activate; 

或

ExcelApp.WorksSheets[ 'Sheet2' ].Activate;

6) 給單元格賦值：

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

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

ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;

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

ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

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

ExcelApp.WorkSheets[1].Rows.PageBreak := 1;

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

ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定邊框線寬度：

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

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

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

ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

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

ExcelApp.ActiveSheet.Rows[1].Font.Name := '隸書';

ExcelApp.ActiveSheet.Rows[1].Font.Color  := clBlue;

ExcelApp.ActiveSheet.Rows[1].Font.Bold   := True;

ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

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

a.頁眉：

    ExcelApp.ActiveSheet.PageSetup.CenterHeader := '報表演示';

b.頁腳：

    ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P頁';

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

    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

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

    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.頂邊距2cm：

    ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底邊距2cm：

    ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左邊距2cm：

    ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右邊距2cm：

    ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.頁面水平居中：

ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;

j.頁面垂直居中：

ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

k.打印單元格網(wǎng)線：

    ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷貝操作：

a.拷貝整個工作表：

    ExcelApp.ActiveSheet.Used.Range.Copy;

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

    ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;

c.從A1位置開始粘貼：

ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;

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

    ExcelApp.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelApp.ActiveSheet.Rows[2].Insert;

b. ExcelApp.ActiveSheet.Columns[1].Insert;

17) 刪除一行或一列：

a. ExcelApp.ActiveSheet.Rows[2].Delete;

b. ExcelApp.ActiveSheet.Columns[1].Delete;

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

ExcelApp.ActiveSheet.PrintPreview;

19) 打印輸出工作表：

ExcelApp.ActiveSheet.PrintOut;

20) 工作表保存：

if not ExcelApp.ActiveWorkBook.Saved then

   ExcelApp.ActiveSheet.PrintPreview;

21) 工作表另存為：

ExcelApp.SaveAs( 'C:/Excel/Demo1.xls' );

22) 放棄存盤：

ExcelApp.ActiveWorkBook.Saved := True;

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

ExcelApp.WorkBooks.Close;

24) 退出 Excel：

ExcelApp.Quit;

25) 刪除工作表

ExcelApp.WorkSheets[2].delete;

26) 自動適應(yīng)列

ExcelApp.ActiveSheet.Columns.AutoFit;

27) 顏色設(shè)置

V:=ExcelApp.ActiveSheet;

a. V.Rows[2].interior.color:=clRed;

b. V.Columns[3].interior.color:=clSkyBlue;

c. V.Range[‘A1:E5’].interior.color:=clBlue;

28) 設(shè)定邊框線

V.Range[‘A1:C3’].borders.linestyle:=N;

0-無邊框 1-實線 2-虛線(密) 3-虛線(疏)

4-點劃線 5-點點劃線

29) 自動換行

V.WrapText:=true;

30) 轉(zhuǎn)化為文本格式

V.cells[3,2]:=char(36) ‘03212’