Excel多工作簿例程

最新推荐文章于 2024-05-27 16:50:41 发布

hiyaolee

最新推荐文章于 2024-05-27 16:50:41 发布

阅读量1.2k

点赞数

分类专栏：報表方面文章标签： excel 工作 delphi button integer forms

本文链接：https://blog.csdn.net/hiyaolee/article/details/405424

版权

報表方面专栏收录该内容

8 篇文章 0 订阅

订阅专栏

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls, OleServer, ExcelXP;

type
TForm1 = class(TForm)
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
ObjExcel,MyWorkBook,mysheets,mysheet,tmpCells:variant;
SheetCount,i,j,k:integer;
begin
SheetCount:=3;
ObjExcel:=CreateOleObject('Excel.application'); //创建Excel应用
ObjExcel.SheetsInNewWorkbook:=SheetCount;                 //确定工作簿中表的数量
ObjExcel.VisiBle:=True;                          //生成期间Excel是否显示
MyWorkBook:=ObjExcel.WorkBooks.add;      //填加新的工作簿
Mysheets:= MyWorkBook.worksheets;
for i:=1 to SheetCount do begin
    Mysheet:=Mysheets.Item[i];
    MySheet.Name:='例表'+inttostr(i);
    MySheet.Range['A1:k2'].HorizontalAlignment:=xlCenter;   //设置单元格A1到K2水平对齐方式
    MySheet.Range['A1:k2'].Font.Bold:=True;       //单元格A1到k1 字体加粗
    MySheet.Rows[1].Font.Bold:=True;        //设置一行字体格式
    MySheet.Columns[3].ColumnWidth:=20;        //设置一列宽度（单位：字符）
    MySheet.Range['C1'].HorizontalAlignment:=xlCenter;          //设置单元格C1水平对齐方式
    MySheet.Cells(1,1):='统计表';
    MySheet.Range['A1'].Font.Color:=rgb(255,0,0); //改变A1单元格字体颜色,等价于    MySheet.Cells.Item[1,1].Font.Color:=RGB(0,128,0);

MySheet.Range['A1:k1'].Merge; //合并单元格A2-F2

    Mysheet.Cells(2,1):='工程编号';    //单元格赋值   等价于   MySheet.Cells.Item[2,1].value:='工作令号';
    Mysheet.Cells(2,2):='工程名称';   //单元格赋值
    Mysheet.Cells(2,3):='开工日期';       //单元格赋值
    Mysheet.Cells(2,4):='完工日期';       //单元格赋值
    Mysheet.Cells(2,5):='经办人';       //单元格赋值
    Mysheet.Cells(2,6):='数量';       //单元格赋值
    Mysheet.Cells(2,7):='单位';       //单元格赋值
    Mysheet.Cells(2,8):='工程内容'; //单元格赋值
    Mysheet.Cells(2,9):='预算';       //单元格赋值
    Mysheet.Cells(2,10):='决算';       //单元格赋值
    Mysheet.Cells(2,11):='备注';      //单元格赋值
//    MySheet.Range['A1:k2'].select;       //选择单元格A2到F2

    for j:=3 to 10 do begin                //填写数据
      if odd(j) then MySheet.Rows[j].Font.Color:=RGB(255,0,0) else MySheet.Rows[j].Font.Color:=RGB(0,0,255); //改变一行的字符颜色
      for k:=1 to 9 do begin
        MySheet.Cells.Item[j,k].value:='表:'+inttostr(i)+' 第'+inttostr(j)+'行第'+inttostr(k)+'列';
//        if odd(j) then MySheet.Cells.Item[j,k].Font.Color:=RGB(255,0,0) else MySheet.Cells.Item[j,k].Font.Color:=RGB(0,0,255);      //改变指定单元格内字符颜色
      end;
    end;
end;
//保存文件
SaveDialog1.FileName:='Delphi 生成Excel表格';
SaveDialog1.Filter:='Excel 表格(*.xls)|*.xls';
if SaveDialog1.Execute then
    MyWorkBook.SaveAs(SaveDialog1.FileName) //保存文件
else
    MyWorkBook.Saved:=True;
ObjExcel.Quit;    //退出Excel应用程序
end;

end.