Delphi操作EXCEL函数整理.doc

一、使用单元：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.WorkbooksWorkbookNum.WorkSheetsWorkSheetNum.Name := PName;8.工作表初始化Sheet:= ExcelApp.WorkbooksWorkbookNum.WorkSheetsWorkSheetNum;9.工作表范围初始化Range := Sheet.RangeA1:DL1 ;10.设置第2个工作表为活动工作表：ExcelApp.WorkSheets2.Activate; 或 ExcelApp.WorksSheets Sheet2 .Activate;三、单元格赋值设置数值类型1. 给单元格赋值：ExcelApp.Cellsrow, column.Value := 第一行第四列;或Sheet.Cellsrow, column := 第一行第四列;2 清除第一行第四列单元格公式：ExcelApp.ActiveSheet.Cellsrow,column.ClearContents;或Sheet.Cellsrow,column. ClearContents3设置单元格数值类型为文字型Range.NumberFormatLocal := ;四、设置列宽和行高1. 设置指定列的宽度（单位：字符个数）：ExcelApp.ActiveSheet.Columnscolumn.ColumnsWidth := 5;或Sheet.Columnscolumn.ColumnWidth := 5;2.设置指定行的高度（单位：磅）（1磅0.035厘米） ExcelApp.ActiveSheet.Rowsrow.RowHeight := 1/0.035; / 1厘米或Sheet. Rows row. RowHeight:= 1/0.035;五、对齐方式1.水平对齐Range.HorizontalAlignment:=xlCenter; 居中Range.HorizontalAlignment:=xlLeft;居左Range.HorizontalAlignment:=xlRight;居右或Sheet.Cellsrow,column.HorizontalAlignment:=xlCenter; 居中Sheet.Cellsrow,column.HorizontalAlignment:=xlLeft;居左Sheet.Cellsrow,column.HorizontalAlignment:=xlRight;居右2.垂直对齐Range. VerticalAlignment:=xlCenter; 居中Range. VerticalAlignment:= xltop;顶端对齐Range. VerticalAlignment:= xlbottomfont;底部对齐或Sheet.Cellsrow,column. VerticalAlignment:=xlCenter; 居中Sheet.Cellsrow,column. VerticalAlignment:= xltop;顶端对齐Sheet.Cellsrow,column. VerticalAlignment:= xlbottomfont; 底部对齐六、文字控制1.自动换行Range.WrapText:=true;或Sheet.Cellsrow,column. WrapText:=true;2.合并单元格Sheet.rangeA17:G17.Merge;3.跨越合并Sheet.rangeC27:D34.Merge(true);七、字型设置1.设置字体大小Range.Characters.Font.Size := 10; 或Sheet.Cellsrow,column.Characters.Font.Size := 10;2.字体加重Range.Characters.Font. Bold:= true; 或Sheet.Cellsrow,column.Characters.Font. Bold:= true; 3.字体倾斜Range.Characters.Font. Italic:= true; 或Sheet.Cellsrow,column.Characters.Font. Italic:= true; 4.字体Range.Characters.Font.Name:=楷体_GB2312或Sheet.Cellsrow,column.Characters.Font. Name:=楷体_GB23125字体样式（常规，斜体，粗体，粗斜体）Range.Characters.Font.FontStyle:=常规或Sheet.Cellsrow,column.Characters.Font.FontStyle:=常规6.下划线Range.Characters.Font.UnderLine := True;或Sheet.Cellsrow,column.Characters.Font.UnderLine := True;八、分页符操作1.在第8行之前插入分页符：ExcelApp.WorkSheets1.Rows.PageBreak := 1;或Sheet. Rows. PageBreak := 1;或Range. Rows. PageBreak := 1;2.在第8列之前删除分页符：ExcelApp.ActiveSheet.Columns4.PageBreak := 0;或Sheet.Columns4. PageBreak := 0;或Range.Columns4.PageBreak :=0;九、关于边框的操作：Border :1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / )1. 指定边框线宽度：ExcelApp.ActiveSheet.Range B3:D4 .BordersBorder.Weight := 3;或Sheet. BordersBorder.Weight := 3;或Range BordersBorder.Weight := 3;2. 边框线线条形状Sheet.BordersBorder.linestyle :=1;或Range.BordersBorder. Linestyle := 1;Linestyle 1：实线 2 虚线 12 双横线十、关于颜色1. 设置单元格背景色Sheet.Cellsrow,column.Interior.ColorIndex := 38;或Range.Interior.ColorIndex := 38;2.字体颜色Range.Characters.Font.Colorindex:=6; 或Sheet.Cellsrow,column.Characters.Font.Colorindex:=6 Colorindex的值十一、冻结窗口Sheet.Cells2,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.Rows1:3.Address ;Sheet.PageSetup.PrintTitleColumns := Sheet.Rows3.Address;16.打印预览工作表：Sheet.PrintPreview;17 打印输出工作表：Sheet.PrintOut;十三、拷贝操作：1. 拷贝整个工作表：Sheet.Used.Range.Copy;2. b.拷贝指定区域：Sheet.Range A1:E2 .Copy;3. 从A1位置开始粘贴：Sheet.Range. A1 .PasteSpecial;4. 从文件尾部开始粘贴：Sheet.Range.PasteSpecial;十四、行列的插入删除1. 插入一行或一列：a. ExcelApp.ActiveSheet.Rows2.Insert;b. ExcelApp.ActiveSheet.Columns1.Insert;2. 删除一行或一列：a. ExcelApp.ActiveSheet.Rows2.Delete;b. ExcelApp.ActiveSheet.Columns1.Delete;十五、Excel保存关闭1. 工作表保存：if not ExcelApp.ActiveWorkBook.Saved thenExcelApp.ActiveSheet.PrintPreview;2. 工作表另存为：ExcelApp. SaveAs ( filepath);3 放弃存盘： ExcelApp.ActiveWorkBook.Saved := True;4. 关闭工作簿：ExcelApp.WorkBooks.Close;5. 退出 Excel：ExcelApp.Quit;6. 工作表关闭ExcelApp.WorkBooks.Close ;十六、其他1. 已经使用的行数Sheet.UsedRange.Rows.Count;(三) 使用Delphi 控制Excle二维图在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheetvar asheet1,achart, range:variant;1）选择当第一个工作薄第一个工作表asheet1:=ExcelApplication1.Workbooks1.Worksheets1;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.C