nativeexcel数据集导出excel

nativeexcel数据集导出excel

uses Dataset2Excel;

procedure Tfdm.exportXLS(dataset: TDataSet);
var
xls: TDataset2Excel;
sd: TSaveDialog;
begin
if dataset = nil then
Exit;
sd := TSaveDialog.Create(nil);
sd.Filter := 'xls|*.xls';
sd.FileName := '1.xls';
if sd.Execute then
begin
xls := TDataset2Excel.Create(nil);
xls.Dataset := dataset;
xls.WorksheetName := '1';
xls.SaveDatasetAs(sd.FileName);
xls.Workbook := nil;
xls.Free;
end;
sd.Free;
end;