Delphi操作EXCEL函数整理.docx

1、Delphi操作EXCEL函数整理Delphi操作EXCEL函数整理 Delphi中操作EXCEL文档 用到的相关函数 一、使用单元： Use :EXCEL 20XX年, ComObj 二、定义 var ExcelApp,Sheet,Range: Variant; 注释： ExcelApp 为定义的Excel 对象 Sheet 为定义的工作表（Sheet）对象 Range 为定义的工作表范围 三、关于Excel 对象创建初始化以及工作表、工作表范围的初始化 1. 创建excel对象： ExcelApp := CreateOleObject( Excel.Application ); 2. 显示

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 := PNa

3、me; 8.工作表初始化 Sheet:= ExcelApp.WorkbooksWorkbookNum.WorkSheetsWorkSheetNum; 9.工作表范围初始化 Range := Sheet.RangeA1:DL1 ; 10.设置第2个工作表为活动工作表： ExcelApp.WorkSheets.Activate; 或 ExcelApp.WorksSheets Sheet2 .Activate; 三、单元格赋值设置数值类型 1. 给单元格赋值： ExcelApp.Cellsrow, column.Value := 第一行第四列; 或 Sheet.Cellsrow, column :=

4、 第一行第四列; 2 清除第一行第四列单元格公式： ExcelApp.ActiveSheet.Cellsrow,column.ClearContents; Delphi中操作EXCEL文档 用到的相关函数 或 Sheet.Cellsrow,column. ClearContents 3设置单元格数值类型为文字型 Range.NumberFormatLocal := ; 四、设置列宽和行高 1. 设置指定列的宽度（单位：字符个数）： ExcelApp.ActiveSheet.Columnscolumn.ColumnsWidth := 5; 或 Sheet.Columnscolumn.Column

5、Width := 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.Horizontal

6、Alignment:=xlCenter; 居中 Sheet.Cellsrow,column.HorizontalAlignment:=xlLeft;居左 Sheet.Cellsrow,column.HorizontalAlignment:=xlRight;居右 2.垂直对齐 Range. VerticalAlignment:=xlCenter; 居中 Range. VerticalAlignment:= xltop;顶端对齐 Range. VerticalAlignment:= xlbottomfont;底部对齐 或 Sheet.Cellsrow,column. VerticalAlignme

7、nt:=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.跨越合并 Delphi中操作EXCEL文档 用到的相关函数 Sheet.rangeC27:D34.Merge

8、(true); 七、字型设置 1.设置字体大小 Range.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.字体 .cn:=楷体 或 Sheet.Cellsrow,column.Chara

9、cters.Font. Name:=楷体 5字体样式（常规，斜体，粗体，粗斜体） 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.WorkSheets.Rows.PageBreak := 1;

10、 或 Sheet. Rows. PageBreak := 1; 或 Range. Rows. PageBreak := 1; 2.在第8列之前删除分页符： ExcelApp.ActiveSheet.Columns.PageBreak := 0; 或 Sheet.Columns. PageBreak := 0; 或 Range.Columns.PageBreak :=0; Sheet.Cellsrow,column.Characters.Font.Size := 10; Delphi中操作EXCEL文档 用到的相关函数 九、关于边框的操作：Border :1-左 2-右 3-顶 4-底 5-斜(

11、 ) 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.Cellsro

12、w,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

13、:= 报表演示; 2. 页脚： Delphi中操作EXCEL文档 用到的相关函数 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： Shee

14、t.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.Pa

15、geSetup.Orientation:= xllandscape; 14 纵向打印 15.设置打印标题行 Sheet.PageSetup.PrintTitleRows := Sheet.Rows1:3.Address ; Sheet.PageSetup.PrintTitleColumns := Sheet.Rows.Address; 16.打印预览工作表： Sheet.PrintPreview; 17 打印输出工作表： Sheet.PrintOut; 十三、拷贝操作： 1. 拷贝整个工作表： .cned.Range.Copy; 2. b.拷贝指定区域： Sheet.Range A1:E2 .

16、Copy; 3. 从A1位置开始粘贴： Delphi中操作EXCEL文档 用到的相关函数 Sheet.Range. A1 .PasteSpecial; 4. 从文件尾部开始粘贴： Sheet.Range.PasteSpecial; 十四、行列的插入删除 1. 插入一行或一列： a. ExcelApp.ActiveSheet.Rows.Insert; b. ExcelApp.ActiveSheet.Columns.Insert; 2. 删除一行或一列： a. ExcelApp.ActiveSheet.Rows.Delete; b. ExcelApp.ActiveSheet.Columns.Del

17、ete; 十五、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

18、. 已经使用的行数 .cnedRange.Rows.Count; (三)使用Delphi控制Excel二维图 在Form中分别放入ExcelApplication,ExcelWorkbook和ExcelWorksheet Var asheet1,achart,range:variant; 1)选择当第一个工作簿第一个工作表 asheet1:=ExcelApplication1.Workbooks.Worksheets; 2)增加一个二维图 achart:=asheet1.chartobjects.add(100,100,200,200); 3)选择二维图的形态 Delphi中操作EXCEL文档

19、 用到的相关函数 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.

20、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.NAME:=坐标轴说明;