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

https://www.360docs.net/doc/2814352168.html,:=’楷体_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 := '报表演示';

2.页脚：

Sheet.PageSetup.CenterFooter := '第&P页';

3页眉到顶端边距2cm：

Sheet.PageSetup.HeaderMargin := 2/0.035;

4.页脚到底端边距3cm：

Sheet.PageSetup.HeaderMargin := 3/0.035;

5.顶边距2cm：

Sheet.PageSetup.TopMargin := 2/0.035;

6.底边距2cm：

Sheet.PageSetup.BottomMargin := 2/0.035;

7.左边距2cm：

Sheet.PageSetup.LeftMargin := 2/0.035;

8.右边距2cm：

Sheet.PageSetup.RightMargin := 2/0.035;

9.页面水平居中：

Sheet.PageSetup.CenterHorizontally := 2/0.035;

10.页面垂直居中：

Sheet.PageSetup.CenterVertically := 2/0.035;

11.打印单元格网线：

Sheet.PageSetup.PrintGridLines := True;

12缩放比例

Sheet.PageSetup.zoom := 75;

13横向打印

Sheet.PageSetup.Orientation:= xllandscape;

14 纵向打印

Sheet.PageSetup.Orientation:=xlportrait;

15.设置打印标题行

Sheet.PageSetup.PrintTitleRows := Sheet.Rows['1:3'].Address ;

Sheet.PageSetup.PrintTitleColumns := Sheet.Rows[3].Address;

16.打印预览工作表：

Sheet.PrintPreview;

17 打印输出工作表：

Sheet.PrintOut;

十三、拷贝操作：

1.拷贝整个工作表：

https://www.360docs.net/doc/2814352168.html,ed.Range.Copy;

2. b.拷贝指定区域：

Sheet.Range[ 'A1:E2' ].Copy;

3.从A1位置开始粘贴：

Sheet.Range.[ 'A1' ].PasteSpecial;

4.从文件尾部开始粘贴：

Sheet.Range.PasteSpecial;

十四、行列的插入删除

1. 插入一行或一列：

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

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

2. 删除一行或一列：

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

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

十五、Excel保存关闭

1.工作表保存：

if not ExcelApp.ActiveWorkBook.Saved then

ExcelApp.ActiveSheet.PrintPreview;

2.工作表另存为：

ExcelApp. SaveAs ( filepath);

3 放弃存盘：

ExcelApp.ActiveWorkBook.Saved := True;

4. 关闭工作簿：

ExcelApp.WorkBooks.Close;

5. 退出Excel：

ExcelApp.Quit;

6. 工作表关闭

ExcelApp.WorkBooks.Close ;

十六、其他

1. 已经使用的行数

https://www.360docs.net/doc/2814352168.html,edRange.Rows.Count;

(三) 使用Delphi 控制Excle二维图

在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet var asheet1,achart, range:variant;

1）选择当第一个工作薄第一个工作表

asheet1:=ExcelApplication1.Workbooks[1].Worksheets[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:='坐标轴说明';