Delphi TXLSReadWriteII 导出EXCEL

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs,StdCtrls,XLSReadWriteII,XLSFonts,CellFormats,BIFFRecsII;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  xls: TXLSReadWriteII;

  const

      Style_Money2='#,##0.00'; //两位小数值

      Style_Text='@' ;         //文本格式

begin

   XLS := TXLSReadWriteII.Create(Application);

   Xls.Filename:='D:\zg.xls';

   Xls.Sheets[0].Name:='sheet1';

  // Add format #1

  with XLS.Formats.Add do

  begin

     FontIndex:=  XLS.Fonts.AddIndex;

     with  XLS.Fonts[FontIndex] do

     begin

        Name := 'Courier new'; //单元格字体

        Size := 14;            //单元格字体大小

        Color := xcRed;        //单元格文字颜色

        Style := [xfsBold];    //单元格文字加粗

     end;

      HorizAlignment := chaCenter;      // 单元格文字居中

      FillPatternForeColor := xcGrey25; //单元格背景颜色

      NumberFormat:=Style_Text;        //单元格格式

  end;

  XLS.Sheets[0].WriteString(0,0,1,'Format #0');

  XLS.Write;

end;

end.

————————————————

原文链接：https://blog.csdn.net/opensource_liu/article/details/50755323