Delphi操作EXCEL函数整理

一、使用单元：

Use :EXCEL 2000, ComObj

二、定义

var ExcelApp,Sheet,Range: Variant;

注释：

ExcelApp 为定义的Excel 对象

Sheet 为定义的工作表（Sheet）对象

Range 为定义的工作表范围

三、关于Excel 对象创建初始化以及工作表、工作表范围的初始化

1. 创建excel对象：

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

2. 显示当前窗口：

ExcelApp.Visible := True;

3. 更改Excel 标题栏：

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

4. 添加新工作簿：

ExcelApp.WorkBooks.Add;

5 打开已存在的工作簿：

ExcelApp.WorkBooks.Open(FilePath);

6.设置工作簿默认工作表张数

ExcelApp.SheetsInNewWorkbook := 1;

7.设置工作表名称

ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name := PName;

8.工作表初始化

Sheet:= ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum];

9.工作表范围初始化

Range := Sheet.Range['A1:DL1'] ;

10.设置第2个工作表为活动工作表：

ExcelApp.WorkSheets[2].Activate;

或

ExcelApp.WorksSheets[ 'Sheet2' ].Activate;

三、单元格赋值设置数值类型

1. 给单元格赋值：

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

或

Sheet.Cells[row, column] := ‘第一行第四列’;

2 清除第一行第四列单元格公式：

ExcelApp.ActiveSheet.Cells[row,column].ClearContents;

或

Sheet.Cells[row,column]. ClearContents

3设置单元格数值类型为文字型

Range.NumberFormatLocal := '@';

四、设置列宽和行高

1. 设置指定列的宽度（单位：字符个数）：

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

或

Sheet.Columns[column].ColumnWidth := 5;

2.设置指定行的高度（单位：磅）（1磅＝0.035厘米）

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

或

Sheet. Rows [row]. RowHeight:= 1/0.035;

五、对齐方式

1.水平对齐

Range.HorizontalAlignment:=xlCenter; 居中

Range.HorizontalAlignment:=xlLeft;居左

Range.HorizontalAlignment:=xlRight;居右

或

Sheet.Cells[row,column].HorizontalAlignment:=xlCenter; 居中

Sheet.Cells[row,column].HorizontalAlignment:=xlLeft;居左

Sheet.Cells[row,column].HorizontalAlignment:=xlRight;居右

2.垂直对齐

Range. VerticalAlignment:=xlCenter; 居中

Range. VerticalAlignment:= xltop;顶端对齐

Range. VerticalAlignment:= xlbottomfont;底部对齐

或

Sheet.Cells[row,column]. VerticalAlignment:=xlCenter; 居中

Sheet.Cells[row,column]. VerticalAlignment:= xltop;顶端对齐

Sheet.Cells[row,column]. VerticalAlignment:= xlbottomfont; 底部对齐

六、文字控制

1.自动换行

Range.WrapText:=true;

或

Sheet.Cells[row,column]. WrapText:=true;

2.合并单元格

Sheet.range['A17:G17'].Merge;

3.跨越合并

Sheet.range['C27:D34'].Merge(true);

七、字型设置

1.设置字体大小

Range.Characters.Font.Size := 10;

或Sheet.Cells[row,column].Characters.Font.Size := 10;

2.字体加重

Range.Characters.Font. Bold:= true;

或

Sheet.Cells[row,column].Characters.Font. Bold:= true;

3.字体倾斜

Range.Characters.Font. Italic:= true;

或

Sheet.Cells[row,column].Characters.Font. Italic:= true;

4.字体

:=’楷体_GB2312＇

或

Sheet.Cells[row,column].Characters.Font. Name:=’楷体_GB2312’5字体样式（常规，斜体，粗体，粗斜体）

Range.Characters.Font.FontStyle:=’常规＇

或

Sheet.Cells[row,column].Characters.Font.FontStyle:=’常规＇

6.下划线

Range.Characters.Font.UnderLine := True;

或

Sheet.Cells[row,column].Characters.Font.UnderLine := True;

八、分页符操作

1.在第8行之前插入分页符：

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

或

Sheet. Rows. PageBreak := 1;

或

Range. Rows. PageBreak := 1;

2.在第8列之前删除分页符：

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

或

Sheet.Columns[4]. PageBreak := 0;

或