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. 显示当前窗口：
    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个工作表为活动工作表：delphi app
    ExcelApp.WorkSheets.Activate;
    或
    ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
    三、单元格赋值设置数值类型
    1. 给单元格赋值：
    ExcelApp.Cells[row, column].Value := '第一行第四列';
    或
    Sheet.Cells[row, column] := ‘第一行第四列’;
    2 清除第一行第四列单元格公式：
    ExcelApp.ActiveSheet.Cells[row,column].ClearContents;
    Delphi中操作EXCEL文档 用到的相关函数
    或
    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.跨越合并
    Delphi中操作EXCEL文档 用到的相关函数
    Sheet.range['C27:D34'].Merge(true);
    七、字型设置
    1.设置字体大小
    Range.Characters.Font.Size := 10;

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