TcxDBTreeList导出EXCEL

最新推荐文章于 2024-05-16 14:59:06 发布

weixin_30379973

最新推荐文章于 2024-05-16 14:59:06 发布

阅读量108

点赞数

原文链接：http://www.cnblogs.com/hnxxcxg/p/4888273.html

版权

本文介绍了一个使用Delphi编写的函数，该函数可以将cxDBTreeList组件的数据导出到Excel文件中。通过创建一个保存对话框让用户选择文件路径及名称，并调用cxExportTLToEXCEL方法完成数据导出。

摘要由CSDN通过智能技术生成

uses cxTLExportLink, cxDBTL

function ExportExcel(tree: TcxDBTreeList;
const fileName: string = '1.xls'): Boolean;
var
sd: TSaveDialog;
begin
Result := False;
if not Assigned(tree) then
    Exit;
sd := TSaveDialog.Create(nil);
try
    sd.Filter := '*.xls|*.xls';
    sd.fileName := fileName;
    if sd.Execute then
    begin
      Screen.Cursor := crSQLWait;
      try
        cxExportTLToEXCEL(sd.fileName, tree, True, True);
      finally
        Screen.Cursor := crDefault;
      end;
      Result := True;
    end;
finally
    sd.Free;
end;
end;