《Delphi操作EXCEL函数整理》由会员分享，可在线阅读，更多相关《Delphi操作EXCEL函数整理（7页珍藏版）》请在金锄头文库上搜索。
1、一、使用单元：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 :=
2、应用程序调用 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.工作表
3、范围初始化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.Cel
4、lsrow,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. Row
5、Height:= 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;
6、居右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; 底部对齐六、文字
7、控制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.
8、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,colu
9、mn.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.Columns
10、4.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.linest
11、yle :=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.
12、select;ExcelApp.ActiveWindow.FreezePanes := True;十二、打印设置1.页眉：Sheet.PageSetup.CenterHeader := 报表演示;2.页脚：Sheet.PageSetup.CenterFooter := 第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
13、：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
14、缩放比例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.P
15、rintOut;十三、拷贝操作：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.Row
16、s2.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.R
