NativeExcel导出成Excel(xls)

//需要引用的单元
use nExcel;


//变量申请
var
  _Book: IXLSWorkbook;
  _Sheet: IXLSWorksheet;

//创建工作区
_Book := TXLSWorkbook.Create;

//创建工作薄
_Sheet := _Book.Sheets.Add;

//设置工作薄名称
_Sheet.Name := '工作薄名称';

//设置区域的格式
with _Sheet.Range['A1','C1'] do
begin
  Font.Name := '微软雅黑';                      //字体
  Font.Size := 14;                             //字体大小
  Interior.ColorIndex := 45;                   //背景颜色 该颜色值参考NativeExcel文档
  HorizontalAlignment := xlHAlignCenter;       //对其方式 居中
  Borders.ColorIndex := xlColorIndexAutomatic; //外框样式 带框
  ColumnWidth := 33;                           //列宽
end;

//赋值
_Sheet.Cells[1,1].Value := '值';


//保存文件
_Book.SaveAs('E:/excelbook.xls');


//关闭工作薄
_Book.Close;
_Book := nil;