一、使用单元：
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.字体
Range.Characters.Font.Name:=’楷体_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.字体颜
delphi trunc函数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缩放比例
  := 75;
13横向打印
Sheet.PageSetup.Orientation:= xllandscape;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。