unigui导出EXCEL使用NATIVEEXCEL

标签：ring   orm   导出excel   rtx   proc   使用   file   xls   native   

unigui导出EXCEL使用NATIVEEXCEL

// 需要nativeexcel控件
// cxg 2017-9-9

unit myExcel;

interface

uses
System.SysUtils, db,
Dataset2Excel;

procedure exportXLS(dataset: TDataSet);

implementation

uses
Main;

procedure exportXLS(dataset: TDataSet);
var
xls: TDataset2Excel;
f: string;
begin
if dataset = nil then
Exit;
f := ‘1.xls‘;
xls := TDataset2Excel.Create(nil);
try
xls.Dataset := dataset;
xls.WorksheetName := ‘1‘;
xls.SaveDatasetAs(f);
xls.Workbook := nil;
MainForm.uniApplication.UniSession.SendFile(f, f);
finally
xls.Free;
end;
end;

end.

unigui导出EXCEL使用NATIVEEXCEL

标签：ring   orm   导出excel   rtx   proc   使用   file   xls   native   

原文地址：http://www.cnblogs.com/hnxxcxg/p/7498038.html