知识大全利用剪贴板实现高速导出数据到Excel

Posted 2022-07-21 知

篇首语：生当作人杰，死亦为鬼雄。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用剪贴板实现高速导出数据到Excel相关的知识，希望对你有一定的参考价值。

利用剪贴板实现高速导出数据到Excel 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在很多的时候我们需要将我们的数据导出到Excel中进行加工在Access中有现成的工具可以实现可是在Delphi中却偏偏没有无论如何我们需要这么一个工具那么事不宜迟细细一想最好的方法莫过于直接在程序中按照Excel的格式生成Excel文件使用Ole技术直接调用Excel实例由于第一种方法技术实现过于复杂好在一般的计算机上已经安装了Office 在此就第二种方法抛一块砖

　　在此做一个示例以方便说明我们考虑到导出数据有很多的情况是Master/Detail数据因此就用两个TQuery和一个TDataSource 如果有更多的层次只需要增加TQuery和TDataSource即可以下使用了两个TQuery 分别是 qryMaster和qryDetail 一个TDataSource:dsSource;

步骤是建立一个Excel实例创建一个工作表创建一个TStringList 用来装数据穷举数据表将数据存入TStringList 将TStringList的数据复制到剪贴板把剪贴板中的数据粘贴到Excel

　　本方法的优点在于比逐条写入到Excel中的速度大大提高我曾试过在P M的机器上用普通的方法导出条数据大约需要分钟而该用本方法后只需要秒

function ToExcel():boolean; var y :integer; tsList :TStringList; s :string; aSheet :Variant; begin result:=true; Excel Connect; // 打开Excel Excel Visible[ ]:=true; // 显示Excel Excel Workbooks Add(xlWBAorksheet ); aSheet:=excel Worksheets Item[ ];

tsList:=TStringList Create; try try with qryMaster do begin Open; First; While Not Eof do begin s:= ; for y:= to FieldCount do begin s:=s+Fields[y] AsString+# ; Application ProcessMessages; end; tsList Add(s); // 从表 if qryDetail<>nil then begin with qryDetail do begin Open; First; while Not Eof do begin s:= ; for y:= to FieldCount do begin s:=s+Fields[y] AsString+# ; Application ProcessMessages; end; tsList Add(s); next; end; end; end; next; end; Close; end; Clipboard AsText:=tsList Text; except result:=false; end; finally tsList Free; end;

cha138/Article/program/Delphi/201311/25012

知识大全 利用剪贴板实现高速导出数据到Excel

知识大全利用剪贴板实现高速导出数据到Excel