如何将导出的Excel的某行背景色变成兰色,谢谢

解决方案 »

  1.   

    var
      vCell: OleVariant;
      vSelection: OleVariant;
      vRow: Integer;
    begin
      ExcelApplication1.Connect;
      ExcelApplication1.Visible[0] := True;
      ExcelApplication1.Workbooks.Add(EmptyParam, 0);  vRow := 2; //改变行数
      vCell := Format('%d:%d', [vRow, vRow]);
      ExcelApplication1.Range[vCell, vCell].Interior.Color := ColorToRGB(clBlue);
    end;
      

  2.   

    Excelid.WorkSheets[1].Cells[1,1].Interior.Color := clBlue;
      

  3.   

    Excelid.WorkSheets[1].Cells[x,x].Interior.Color := clBlue;