Delphi控制Excel2000

领测软件测试网

    6) 给单元格赋值：
    ExcelApp.Cells[1,4].Value := ’第一行第四?;
    7) 设置指定列的宽度（单位：字符个数），以第一列为例：
    ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
    8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
    ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
    9) 在第8行之前插入分页符：
    ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
    10) 在第8列之前删除分页符：
    ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
    11) 指定边框线宽度：
    ExcelApp.ActiveSheet.Range[ ’B3:D4’ ].Borders[2].Weight := 3;
    1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
    12) 清除第一行第四列单元格公式：
    ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
    13) 设置第一行字体属性：
    ExcelApp.ActiveSheet.Rows[1].Font.Name := ’隶书’;
    ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
    ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
    ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
    14) 进行页面设置：
    a.页眉：
    ExcelApp.ActiveSheet.PageSetup.CenterHeader := ’报表演示’;
    b.页脚：
    ExcelApp.ActiveSheet.PageSetup.CenterFooter := ’第&P页’;

文章来源于领测软件测试网 https://www.ltesting.net/