Delphi控制Excel2000之一

Delphi控制Excel2000心得 – excel

(一) 使用动态创建的方法

首先创建 Excel 对象,使用ComObj:

var ExcelApp: Variant;

ExcelApp := CreateOleObject( ‘Excel.Application’ );

1) 显示当前窗口:

ExcelApp.Visible := True;

2) 更改 Excel 标题栏:

ExcelApp.Caption := ‘应用程序调用 Microsoft Excel’;

3) 添加新工作簿:

ExcelApp.WorkBooks.Add;

4) 打开已存在的工作簿:

ExcelApp.WorkBooks.Open( ‘C:\Excel\Demo.xls’ );

5) 设置第2个工作表为活动工作表:

ExcelApp.WorkSheets[2].Activate;

ExcelApp.WorksSheets[ ‘Sheet2’ ].Activate;

6) 给单元格赋值:

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

7) 设置指定列的宽度(单位:字符个数),以第一列为例:

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

8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:

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

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

ExcelApp.WorkSheets[1].Rows[8].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) 设置第一行字体属性:

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) 进行页面设置:

a.页眉:

ExcelApp.ActiveSheet.PageSetup.CenterHeader := ‘报表演示’;



发表评论

您的电子邮箱地址不会被公开。

− 7 = 2