关于如何用delphi7控制excel的布局的问题?(以下有一段代码与大家共享)

Question

1ExcelApp := CreateOleObject('Excel.Application' );
ExcelApp.Visible := True;ExcelApp.Caption :='销售报价单';ExcelApp.WorkBooks.Add;
ExcelApp.WorkBooks.Open('c:\123.xls');
ExcelApp.ActiveSheet.Rows[1].Font.Name :='隶书';ExcelApp.Cells[1,3].Value:='报价单';
现在问
1.如何将[1,3]的字居中。
2.如何将【1，1】到【3，3】的矩形区域及里面的每个单元格加边框

Answer 1

procedure   SetRepLine(x,y:Integer);   
  {加边框线}   
  Var   
      RepSpace:String;   
  begin   
      RepSpace:=GetRepRange(x,1)+':'+GetRepRange(x,y);   
      ExlApp.ActiveSheet.Range[RepSpace].Borders.LineStyle:=xlContinuous;   
  end;{SetRepLine}    
  .HorizontalAlignment   =   xlCenter  居中

Answer 2

  居中可以这样：
  
  ExcelApp.cells[1,1].HorizontalAlignment:=xlCenter  ;          //该单元格内容居中
  ExcelApp.activeSheet.rows[3].HorizontalAlignment:=xlCenter  ; //整行居中