Delphi控制Excel2000

领测软件测试网

    4) 添加新工作簿：
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
    5) 添加新工作表：
    var Temp_Worksheet: _WorkSheet;
    begin
    Temp_Worksheet:=ExcelWorkbook1.
    WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
    ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
    End;
    6) 打开已存在的工作簿：
    ExcelApplication1.Workbooks.Open (c:\a.xls
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)
    7) 设置第2个工作表为活动工作表：
    ExcelApplication1.WorkSheets[2].Activate; 或
    ExcelApplication1.WorksSheets[ ’Sheet2’ ].Activate;
    8) 给单元格赋值：
    ExcelApplication1.Cells[1,4].Value := ’第一行第四列’;
    9) 设置指定列的宽度（单位：字符个数），以第一列为例：
    ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;
    10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
    ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
    11) 在第8行之前插入分页符：
    ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;
    12) 在第8列之前删除分页符：
    ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;

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