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;
或
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.拷贝整个工作表：
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. 已经使用的行数
edRange.Rows.Count;
(三)使用Delphi控制Excel二维图
在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.chartype:=4;
4)给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);
5)加上二维图的标题
achart.Chart.HasTitle:=True;
achart.Chart.ChartTitle.Characters.Text:=’Excel二维图’
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:=’坐标轴说明’;。