Delphi TXLSReadWriteII 导出EXCEL

unit Unit1;interfaceuses
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.