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.字体

Range.Characters.Font.Name:=’楷体_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; 或

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

九、关于边框的操作：Border :1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / ) 1. 指定边框线宽度：

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

Sheet. Borders[Border].Weight := 3; 或

Range Borders[Border].Weight := 3; 2. 边框线线条形状

Sheet.Borders[Border].linestyle :=1; 或

Range.Borders[Border]. Linestyle := 1; Linestyle 1：实线 2 虚线 12 双横线 十、关于颜色

1. 设置单元格背景色

Sheet.Cells[row,column].Interior.ColorIndex := 38; 或

Range.Interior.ColorIndex := 38; 2.字体颜色

Range.Characters.Font.Colorindex:=6; 或

Sheet.Cells[row,column].Characters.Font.Colorindex:=6 Colorindex的值

十一、冻结窗口

Sheet.Cells[2,3].select;

ExcelApp.ActiveWindow.FreezePanes := True; 十二、打印设置 1. 页眉：

Sheet.PageSetup.CenterHeader := '报表演示';