Delphi TXLSReadWriteII 导出EXCEL

最新推荐文章于 2024-09-10 15:52:35 发布

weixin_30435261

最新推荐文章于 2024-09-10 15:52:35 发布

阅读量317

点赞数

原文链接：http://www.cnblogs.com/yzryc/p/7675880.html

版权

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://www.cnblogs.com/yzryc/p/7675880.html