我是新手.能不能给出每一步的操作方法啊..
谢谢!

解决方案 »

  1.   

    1 创建Excel文件  要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。
    创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:function createExcel:variant;
    var
    v:variant;
    sheet:variant;
    begin
    v:=createoleobject('Excel.Application');//创建OLE对象
    v.visible:=true;
    v.workbooks.add(-4167); //添加工作表
    v.workbooks[1].sheets[1].name:='test';
    sheet:=v.workbooks[1].sheets['test'];
    return v;
    end;   2 数据表格控制  Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先制作一个文件模板,然后按照实际需要输出多页报表即可。  (1)数据的导入(importData)procedure importData;
    var
    I,j:integer;
    v:variant;
    begin
    v:=createExcel; //创建Excel文件test
    for I:=0 to maxcolumn do
    begin
    for j:=0 to maxrow do
    v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据
    end;
    end;   (2)单元格的合并、边框的控制(lineStylecontrol)  单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。procedure lineStylecontrol;
    var
    v,sheet,range:variant;
    begin
    v:=createExecl;
    sheet:= v.workbooks[1].sheets[1];
    range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格
    range.select;
    range.merge; //合并单元格
    range.borders.linestyle:=xlcontinuous; //置边框线可见
    range.font.size:=9; //改变表格内文本字体大小
    end; 
      

  2.   

    (3)表格的复制与粘贴(copyandPaste)procedure copyandPaste;
    var
    v,sheet,range:variant;
    begin
    v:=createExecl;
    sheet:= v.workbooks[1].sheets[1];
    range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];
    range.select; //选定要复制的表格
    range.copy; //复制选定的表格
    sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
    sheet.paste; //粘贴表格
    end;   3 文件的保存  文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:procedure saveFile;
    var
    sheet,v:variant;
    begin
    v:=createExcel;
    if savedialog.execute then
    begin
    v.workbooks[1].saveas(savedialog.FileName);//保存文件
    v.workbooks[1].close; //关闭工作表
    v.quit; //关闭Excel
    v := unassigned;
    end;
    end; 
      

  3.   

    var
     i,j,F:integer;
     s:string;
    begin
       try
          ExcelApp:=CreateOleObject('Excel.Application');
         Workbook:=CreateOleobject('Excel.Sheet');
        except
          Application.MessageBox('无法运行Excel,请确认是否已安装 Office 软件!','提示',Mb_OK+MB_IconWarning);
        end;
        ExcelApp.Visible := true;
        //增加一个工作表
      Workbook:=ExcelApp.workBooks.Add;
        //单元格合并
        Workbook.worksheets[1].range['A1:K1'].Merge(True);
        //单元格居中
        Workbook.worksheets[1].range['A1:K2'].HorizontalAlignment := $FFFFEFF4;
        //报表头
        Workbook.WorkSheets[1].Cells[1,1].Value :=Lbl_Title.Caption;
        //表头
        J := 2;
        with AdoQy_GongGong do
          begin
          for I:=1 to Fields.Count do
          Workbook.worksheets[1].cells[J,I].value:=Fields[I-1].DisplayName;
        //  Workbook.worksheets[1].Range['A1:J2'].Font.Color := clBlue;
        //字体
          Workbook.worksheets[1].Range['A1:K1'].Font.Name := '隶书';
        //字号
          Workbook.worksheets[1].Range['A1:K1'].Font.Size := 18;
          Inc(J);
          First;
          while not eof do
          begin
          for I:=1 to fields.Count do
            begin
             Workbook.worksheets[1].cells.Item[j,i]:=Fields[i-1].AsString;
            end;
            Next;
           Inc(J);
          end;
        J:=FieldCount;
        s := 'A3:I'+ IntToStr(j);
        s := 'A1:L'+ IntToStr(j+2);
        Try
         For F:=0 to J-1 do
          Workbook.worksheets[1].Columns[F+1].ColumnWidth := DBGD_GongGongWS.Columns[F].Width/5;
        Except
        end;
         Workbook.worksheets[1].Rows[1].RowHeight := 30;
        //报表头居中
         // Workbook.worksheets[1].Rows[1].VerticalAlignment := $FFFFEFF4;
        //设置数据行字体
       // s:='A1:L'+inttostr(UdQuery1.RecordCount-2);
          Workbook.worksheets[1].Range[s].Font.Name := '仿宋';
        //划表线
        case J of
        9:s := 'A2:I'+ IntToStr(AdoQY_gongGong.recordcount+2);
        10:s := 'A2:J'+ IntToStr(AdoQY_gongGong.recordcount+2);
        11:s := 'A2:K'+ IntToStr(AdoQY_gongGong.recordcount+2);
        15:s := 'A2:O'+ IntToStr(AdoQY_gongGong.recordcount+2);
        End;
         Workbook.worksheets[1].Range[s].Borders.LineStyle := 1;
        //设置页面
        // Workbook.WorkSheets[1].PageSetup.CenterHorizontally := true;
        // Workbook.worksheets[1].pagesetup.PrintTitleRows := 'A1';
         //Workbook.WorkSheets[1].PageSetup.PaperSize := $9;
       end;
    在Use中增加ComObj