[转]Delphi导出Excel的设置操作

procedure CreatRepSheet(SheetName:String;PageSize,PageLay:Integer); 
{新建Excel工作簿、进行页面设置} 
begin 
  {新建Excel工作簿} 
  if ExlApp.WorkBooks.Count < 1 then 
  begin 
    ExlBook := ExlApp.Workbooks.Add; //ExlBook:=ExlApp.WorkBooks[1].WorkSheets[1]; 
    ExlApp.ActiveSheet.Name:=SheetName; 
  end; {if} 

  {进行页面设置} 

  以上是怎么不用空间而调用EXCEL的, 很方便的！ 
  //设置页面 
  if PageSize=1 then 
    ExlApp.ActiveSheet.PageSetup.PaperSize := xlPaperA3; //纸张大小: A3 
  if PageSize=2 then 
    ExlApp.ActiveSheet.PageSetup.PaperSize := xlPaperA4; //纸张大小: A4 
  if PageSize=3 then 
    ExlApp.ActiveSheet.PageSetup.PaperSize := xlPaperB5; //纸张大小: B5 
  if PageLay=1 then 
    ExlApp.ActiveSheet.PageSetup.Orientation := xlportrait; //页面放置方向：纵向 
  if PageLay=2 then 
    ExlApp.ActiveSheet.PageSetup.Orientation := xlLandscape; //页面放置方向：横向 

  //设置页宽自动适应 
  ExlApp.ActiveSheet.PageSetup.Zoom := False; 
  ExlApp.ActiveSheet.PageSetup.FitToPagesWide := 1; 
  ExlApp.ActiveSheet.PageSetup.FitToPagesTall := False; 

  //设置页眉、页脚(即：页标题、页号) 
  ExlApp.ActiveSheet.PageSetup.RightFooter := '打印时间: ' + '&D &T'; 
  ExlApp.ActiveSheet.PageSetup.CenterFooter := '第&''&P&''页，共&''&N&''页';

  //设置页边距: 
  ExlApp.ActiveSheet.PageSetup.TopMargin := 1.5/0.035; 
  ExlApp.ActiveSheet.PageSetup.BottomMargin := 1.5/0.035; 
  ExlApp.ActiveSheet.PageSetup.LeftMargin := 1/0.035; 
  ExlApp.ActiveSheet.PageSetup.RightMargin := 1/0.035; 
  ExlApp.ActiveSheet.PageSetup.HeaderMargin:= 0.5/0.035; 
  ExlApp.ActiveSheet.PageSetup.FooterMargin := 0.5/0.035; 

  //设置页面对齐方式 
  ExlApp.ActiveSheet.PageSetup.CenterHorizontally := True; //页面水平居中 
  //ExlApp.ActiveSheet.PageSetup.CenterVertically := True; //页面垂直居中 

  //设置整体字体格式 
  ExlApp.Cells.Font.Name := '宋体'; //字体 
  ExlApp.Cells.Font.Size := 12; //字号 
  ExlApp.Cells.RowHeight := 16; //行高 
  ExlApp.Cells.VerticalAlignment := 2; //垂直方向对齐方式:居中 
end; {CreatRepSheet} 

procedure SetAddMess(H_Mess1,H_Mess2,H_Mess3,F_Mess1,F_Mess2,F_Mess3:String);

//用户自定义页眉、页脚（即：页标题、页号）

begin

  ExlApp.ActiveSheet.PageSetup.LeftHeader:=H_Mess1;

  ExlApp.ActiveSheet.PageSetup.CenterHeader:=H_Mess2;

  ExlApp.ActiveSheet.PageSetup.RightHeader:=H_Mess3;

end;{SetAddMess}

procedure SetRepBody(x,ch:Integer;cw:Double;cf:String);

//设置整体各列数据格式

begin

  ExlApp.ActiveSheet.Columns[x].ColumnWidth:=cw; //列宽

  ExlApp.ActiveSheet.Columns[x].NumberFormat:=Cf; //单元格数据格式

  ExlApp.ActiveSheet.Columns[x].HorizontalAlignment:=ch; //水平方向对齐方式

end;{SetRepBody}

procedure CreatTitle(TitleName:String;y:Integer);

{设置标题}

Var

  RepSpace:String;

begin

  CellMerge(1,1,1,y);

  ExlApp.cells(1,1):=TitleName;

  RepSpace:='A1'+':'+GetRepRange(1,y);

  ExlApp.Range[RepSpace].Select;

  ExlApp.Selection.NumberFormat :='G/通用格式';

  ExlApp.Selection.Font.Size:=22;

  ExlApp.Selection.Font.Name:='黑体';

  ExlApp.Selection.Font.Bold:=True;

  ExlApp.Selection.HorizontalAlignment:=3; //水平方向对齐方式:居中

  ExlApp.Rows[1].RowHeight:=28;

end;{RepHead}

procedure CreatSubHead(SubTitle: Array of String);

{设置常规子表头}

Var

  i,j:Integer;

begin

  j:=0;

  for i:=Low(SubTitle) to High(SubTitle) do

  begin

    Inc(j);

    ExlApp.cells(2,j):=SubTitle[i];

  end;

end;{CreatRepHead}

procedure SubHeadFormat(y,r:Integer);

{设置子表头格式}

Var

  RepSpace:String;

  n:Integer;

begin

  RepSpace:='A2'+':'+GetRepRange(1+r,y);

  ExlApp.Range[RepSpace].Select;

  ExlApp.Selection.NumberFormat :='G/通用格式';

  ExlApp.Selection.HorizontalAlignment:=3; //表头水平对齐方式:居中

  ExlApp.Selection.Font.Bold:=True;

  for n:=1 to r do

  begin

    ExlApp.Rows[1+n].RowHeight:=18;

    SetRepLine(1+n,y);

  end;{for}

end;{SubHeadFormat}

procedure DTSubHeadGS(x,y,r:Integer);

{设置动态子表头格式}

Var

  RepSpace:String;

  n:Integer;

begin

  RepSpace:=GetRepRange(x,1)+':'+GetRepRange(x+r-1,y);

  ExlApp.Range[RepSpace].Select;

  ExlApp.Selection.NumberFormat :='G/通用格式';

  ExlApp.Selection.HorizontalAlignment:=3; //表头水平对齐方式:居中

  ExlApp.Selection.Font.Bold:=True;

  for n:=0 to r-1 do

  begin

    ExlApp.Rows[x+n].RowHeight:=18;

    SetRepLine(x+n,y);

  end;{for}

end;{DTSubHeadGS}

procedure WriteData(RepData: String; x,y,flag:Integer); //写入数据

{写数据}

begin

  if flag=1 then

    ExlApp.cells(x,y):=StrToDate(RepData)

  else

   ExlApp.cells(x,y):=RepData;

end;{WriteDate}

procedure RepPageBreak(x,y,r:Integer); //X：分页处行数，Y：列数，R：子表头总共的行数

//分页、复制表头

Var

  RepSpace:String;

  n:Integer;

begin

  ExlApp.ActiveSheet.Rows[x].PageBreak := 1;

  RepSpace:='A1'+':'+GetRepRange(r+1,y);

  ExlApp.ActiveSheet.Range[RepSpace].Copy;

  RepSpace:='A'+IntToStr(x);

  ExlApp.ActiveSheet.Range[RepSpace].PasteSpecial;

  ExlApp.Rows[x].RowHeight:=28;

  for n:=2 to r do

    ExlApp.Rows[x+n].RowHeight:=18;

end;{RepPageBreak}

procedure RepSaveAs(FileName:String);

{保存为*.xls文件}

begin

  try

    ExlBook.saveas(FileName);

  except

    MessageDlg('不能访问文件，请关闭Microsoft Excel后再运行本程序！', mtError, [mbOk], 0);

  end;

end;{RepSaveAs}

procedure RepPrivew(FileName:String);

{预览}

begin

  RepCreat;

  ExlApp.Visible :=True;

  try

    ExlApp.workBooks.Open(FileName);

    ExlApp.Workbooks[1].WorkSheets[1].PrintPreview;

  finally

    ExlApp.Quit;

    ExlApp:=Unassigned;

    //ExlApp:='';

  end;{try}

end;{RepPrivew}

procedure RepQuit;

{退出Excel}

begin

  ExlBook.Close;

  ExlApp.Quit; //退出Excel Application

  ExlApp:=Unassigned; //释放VARIANT变量

end;{RepQuit}

procedure RepDestroy;

{非正常退出Excel}

begin

  if Not VarIsEmpty(ExlApp) then

  RepQuit;

end;{RepDestroy}

end.