通过SMExportToExcel控件导出DBGrid、DBGridEh里的数据

下面的过程参数意义

ExportComponent：是指定的SMExportToExcel控件名称，

过程里的变量csDataSet是需要导出的数据集

 

 

procedure ExportIt(ExportComponent: TSMExportBaseComponent);

  begin

    ExportComponent.ColumnSource := csDataSet;

    ExportComponent.DataSet := cdsExportData;

    ExportComponent.AnimatedStatus := True;

    ExportComponent.SelectedRecord := False;

    ExportComponent.BlankIfZero := False;

    ExportComponent.AddTitle := True;

 

 

    //导出数据转换为字符型

    ExportComponent.FileName := 'c:\test.xls';

 

 

    ExportComponent.Execute;

  end;

 

可以这样调用 ExportIt(ExportComponent);

SMExportToExcel，还可以设置导出是否显示进度条、导出是否显示完成信息等等设置，具体可以到网络上去查询

 

 

 

本文地址：http://www.dfwlt.com/forum.php?mod=viewthread&tid=114&extra=page%3D1，转发请保留这个地址，谢谢