DelphiTXLSReadWriteII导出Excel

OStack程序员社区-中国程序员成长平台 › 门户 › 编程›综合其他

原作者: [db:作者] 来自: [db:来源] 收藏邀请

2011-08-04 9:50

TXLSReadWriteII导出Excle (有点复杂，可以自己简化一下，直接从项目中抓取的)

procedure TformSubReport.DataToExcel(_Item: Integer; _Obj: TObject); //导出Excle

var

i, j, k: Integer;

aVendorObj: TVendor;

aEnterpriseObj: TEnterprise;

aXlsObj: TXLSReadWriteII;

aFileName: AnsiString;

aCarRec: PCarRec;

aOnLine: AnsiString;

aRecordCount: Integer; //Excel数据条数

aEnterpriseCount: Integer; //统计企业有多少行 + 合计一行

aBookmark: Integer; //记录运营商的起始位置

aMergedCell: TMergedCell;

aFontIndex: Integer;

aStampTime: AnsiString;

aVendorName: AnsiString;

begin

if _Item = 1 then

_Obj := nil;

aRecordCount := 0;

aEnterpriseCount := 0;

SaveDialog1.InitialDir := ExtractFilePath(ParamStr(0));

SaveDialog1.DefaultExt := 'xls';

SaveDialog1.Filter := 'Excel文件(*.xls)|*.xls|所有文件(*.*)|*.*';

aStampTime := FormatDateTime('yyyymmddhhnnss', Now);

SaveDialog1.FileName := aStampTime;

if not SaveDialog1.Execute then

Exit;

aFileName := SaveDialog1.FileName;

if aFileName = '' then

Exit;

aXlsObj := TXLSReadWriteII.Create(nil);

try

aXlsObj.Sheets[0].NameWideString('统计报表' + aStampTime); //工作表命名

with aXlsObj.Formats.Add do //定义格式一

begin

aFontIndex := aXlsObj.Fonts.AddIndex;

aXlsObj.Fonts[aFontIndex].Name := '黑体';

aXlsObj.Fonts[aFontIndex].Size := 14;

aXlsObj.Fonts[aFontIndex].Color := xcRed; //字体颜色无效。shit

HorizAlignment := chaCenter;

VertAlignment := cvaCenter;

FillPatternForeColor := xcLilac;

end;

with aXlsObj.Formats.Add do //定义格式二

begin

HorizAlignment := chaCenter;

VertAlignment := cvaCenter;

end;

case _item of

1:begin

aXlsObj.Sheets[0].WriteWideString(0, 0, 1, '运营商名称');

aXlsObj.Sheets[0].WriteWideString(1, 0, 1, '企业名称');

aXlsObj.Sheets[0].WriteWideString(2, 0, 1, '轨迹数总数');

aXlsObj.Sheets[0].WriteWideString(3, 0, 1, '超速报警总数');

aXlsObj.Sheets[0].WriteWideString(4, 0, 1, '车辆总数');

aXlsObj.Sheets[0].WriteWideString(5, 0, 1, '在线车辆总数');

aXlsObj.Sheets[0].WriteWideString(6, 0, 1, '在线率(%)');

end;

else

begin

aXlsObj.Sheets[0].WriteWideString(0, 0, 1, '序号');

aXlsObj.Sheets[0].WriteWideString(1, 0, 1, '运营商名称');

aXlsObj.Sheets[0].WriteWideString(2, 0, 1, '企业名称');

aXlsObj.Sheets[0].WriteWideString(3, 0, 1, '定位时间');

aXlsObj.Sheets[0].WriteWideString(4, 0, 1, '车牌号码');

aXlsObj.Sheets[0].WriteWideString(5, 0, 1, '轨迹数');

aXlsObj.Sheets[0].WriteWideString(6, 0, 1, '超速报警数');

aXlsObj.Sheets[0].WriteWideString(7, 0, 1, '疲劳驾驶报警数');

aXlsObj.Sheets[0].WriteWideString(8, 0, 1, '是否在线');

end;

if _Obj = nil then

begin

for i := 0 to FVendorHash.Count - 1 do

begin

aVendorObj := FVendorHash[i];

if aVendorObj = nil then Continue;

aBookmark := aEnterpriseCount;

aEnterpriseCount := 0;

for j := 0 to aVendorObj.EnterpriseHash.Count - 1 do

begin

aEnterpriseObj := aVendorObj.EnterpriseHash[j];

if aEnterpriseObj = nil then Continue;

if _Item = 1 then

begin

inc(aRecordCount);

inc(aEnterpriseCount);

aXlsObj.Sheets[0].WriteWideString(0, aRecordCount, 2, aVendorObj.DataRec.VendorName);

aXlsObj.Sheets[0].AsWideString[1, aRecordCount] := aEnterpriseObj.DataRec.EnterpriseName;

aXlsObj.Sheets[0].AsFloat[2, aRecordCount] := aEnterpriseObj.TotalInfo.TotalGpsCount;

aXlsObj.Sheets[0].AsFloat[3, aRecordCount] := aEnterpriseObj.TotalInfo.TotalOverAlarm;

aXlsObj.Sheets[0].AsFloat[4, aRecordCount] := aEnterpriseObj.TotalInfo.TotalCarCount;

aXlsObj.Sheets[0].AsFloat[5, aRecordCount] := aEnterpriseObj.TotalInfo.TotalOnLine;

aXlsObj.Sheets[0].AsFloat[6, aRecordCount] := aEnterpriseObj.TotalInfo.OnlineRate;

end

else

begin

for k := 0 to aEnterpriseObj.CarHash.Count - 1 do

begin

aCarRec := aEnterpriseObj.CarHash[k];

if _Item = 2 then //在线

begin

if not aCarRec.IsLine then Continue;

aOnLine := '在线';

end

else if _Item = 3 then //离线

begin

if aCarRec.IsLine then Continue;

aOnLine := '离线';

end

else if _Item = 4 then //所有

begin

if aCarRec.IsLine then

aOnLine := '在线'

else

aOnLine := '离线';

end;

inc(aRecordCount);

inc(aEnterpriseCount);

aXlsObj.Sheets[0].AsInteger[0, aRecordCount] := aRecordCount;

aXlsObj.Sheets[0].AsWideString[1, aRecordCount] := aVendorObj.DataRec.VendorName;

aXlsObj.Sheets[0].AsWideString[2, aRecordCount] := aEnterpriseObj.DataRec.EnterpriseName;

aXlsObj.Sheets[0].AsWideString[3, aRecordCount] := DateTimeToStr(aCarRec.ReportDate);

aXlsObj.Sheets[0].AsWideString[4, aRecordCount] := aCarRec.RegistrationNO;

aXlsObj.Sheets[0].AsFloat[5, aRecordCount] := aCarRec.GpsCount;

aXlsObj.Sheets[0].AsFloat[6, aRecordCount] := aCarRec.OverSpeedAlarmCount;

aXlsObj.Sheets[0].AsFloat[7, aRecordCount] := aCarRec.DriverFatigueAlarmCount;

aXlsObj.Sheets[0].AsWideString[8, aRecordCount] := aOnLine;

end;

if _Item = 1 then //小计

begin

Inc(aRecordCount);

Inc(aEnterpriseCount);

aXlsObj.Sheets[0].WriteWideString(0, aRecordCount, 2, aVendorObj.DataRec.VendorName);

aXlsObj.Sheets[0].WriteWideString(1, aRecordCount, 2, '小计');

aXlsObj.Sheets[0].AsFloat[2, aRecordCount] := aVendorObj.TotalInfo.TotalGpsCount;

aXlsObj.Sheets[0].AsFloat[3, aRecordCount] := aVendorObj.TotalInfo.TotalOverAlarm;

aXlsObj.Sheets[0].AsFloat[4, aRecordCount] := aVendorObj.TotalInfo.TotalCarCount;

aXlsObj.Sheets[0].AsFloat[5, aRecordCount] := aVendorObj.TotalInfo.TotalOnLine;

aXlsObj.Sheets[0].AsFloat[6, aRecordCount] := aVendorObj.TotalInfo.OnlineRate;

aMergedCell := aXlsObj.Sheets[0].MergedCells.Add;

aMergedCell.Col1 := 0;

aMergedCell.Row1 := aBookmark + 1;

aMergedCell.Col2 := 0;

aMergedCell.Row2 := aBookmark + aEnterpriseCount; //这里的值是对应Excel中最后一行的地址

end;

end

else if _Obj is TVendor then

begin

for j := 0 to TVendor(_Obj).EnterpriseHash.Count - 1 do

begin

aEnterpriseObj := TVendor(_Obj).EnterpriseHash[j];

if aEnterpriseObj = nil then Continue;

for k := 0 to aEnterpriseObj.CarHash.Count - 1 do

begin

aCarRec := aEnterpriseObj.CarHash[k];

if _Item = 2 then //在线

begin

if not aCarRec.IsLine then Continue;

aOnLine := '在线';

end

else if _Item = 3 then //离线

begin

if aCarRec.IsLine then Continue;

aOnLine := '离线';

end

else if _Item = 4 then //所有

begin

if aCarRec.IsLine then

aOnLine := '在线'

else

aOnLine := '离线';

end;

inc(aRecordCount);

aXlsObj.Sheets[0].AsInteger[0, aRecordCount] := aRecordCount;

aXlsObj.Sheets[0].AsWideString[1, aRecordCount] := TVendor(_Obj).DataRec.VendorName;

aXlsObj.Sheets[0].AsWideString[2, aRecordCount] := aEnterpriseObj.DataRec.EnterpriseName;

aXlsObj.Sheets[0].AsWideString[3, aRecordCount] := DateTimeToStr(aCarRec.ReportDate);

aXlsObj.Sheets[0].AsWideString[4, aRecordCount] := aCarRec.RegistrationNO;

aXlsObj.Sheets[0].AsFloat[5, aRecordCount] := aCarRec.GpsCount;

aXlsObj.Sheets[0].AsFloat[6, aRecordCount] := aCarRec.OverSpeedAlarmCount;

aXlsObj.Sheets[0].AsFloat[7, aRecordCount] := aCarRec.DriverFatigueAlarmCount;

aXlsObj.Sheets[0].AsWideString[8, aRecordCount] := aOnLine;

end;

end

else if _Obj is TEnterprise then

begin

aVendorObj := FVendorHash.ValueOf(IntToStr(TEnterprise(_Obj).DataRec.VendorID));

if aVendorObj = nil then

Exit;

aVendorName := aVendorObj.DataRec.VendorName;

for k := 0 to TEnterprise(_Obj).CarHash.Count - 1 do

begin

aCarRec := TEnterprise(_Obj).CarHash[k];

if _Item = 2 then //在线

begin

if not aCarRec.IsLine then Continue;

aOnLine := '在线';

end

else if _Item = 3 then //离线

begin

if aCarRec.IsLine then Continue;

aOnLine := '离线';

end

else if _Item = 4 then //所有

begin

if aCarRec.IsLine then

aOnLine := '在线'

else

aOnLine := '离线';

end;

inc(aRecordCount);

aXlsObj.Sheets[0].AsInteger[0, aRecordCount] := aRecordCount;

aXlsObj.Sheets[0].AsWideString[1, aRecordCount] := aVendorName;

aXlsObj.Sheets[0].AsWideString[2, aRecordCount] := TEnterprise(_Obj).DataRec.EnterpriseName;

aXlsObj.Sheets[0].AsWideString[3, aRecordCount] := DateTimeToStr(aCarRec.ReportDate);

aXlsObj.Sheets[0].AsWideString[4, aRecordCount] := aCarRec.RegistrationNO;

aXlsObj.Sheets[0].AsFloat[5, aRecordCount] := aCarRec.GpsCount;

aXlsObj.Sheets[0].AsFloat[6, aRecordCount] := aCarRec.OverSpeedAlarmCount;

aXlsObj.Sheets[0].AsFloat[7, aRecordCount] := aCarRec.DriverFatigueAlarmCount;

aXlsObj.Sheets[0].AsWideString[8, aRecordCount] := aOnLine;

end;

if (_Item = 1) and (_Obj = nil) then //汇总

begin

Inc(aRecordCount);

aXlsObj.Sheets[0].WriteWideString(0, aRecordCount, 2, '汇总');

aXlsObj.Sheets[0].AsInteger[1, aRecordCount] := FTotalEnterpriseCount;

aXlsObj.Sheets[0].AsFloat[2, aRecordCount] := FTotalInfo.TotalGpsCount;

aXlsObj.Sheets[0].AsFloat[3, aRecordCount] := FTotalInfo.TotalOverAlarm;

aXlsObj.Sheets[0].AsFloat[4, aRecordCount] := FTotalInfo.TotalCarCount;

aXlsObj.Sheets[0].AsFloat[5, aRecordCount] := FTotalInfo.TotalOnLine;

aXlsObj.Sheets[0].AsFloat[6, aRecordCount] := FTotalInfo.OnlineRate;

end;

aXlsObj.Filename := aFileName;

aXlsObj.Write;

Information(Format('导出文件'+#13#10+'%s'+#13#10 +'成功!', [aFileName]));

finally

aXlsObj.Free;

end;

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

matlab中fprintf函数的具体使用方法发布时间：2022-07-18

Matlab 多个图像共用一个横坐标 subplot、plotyy发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

2023-10-27

florent37/ViewAnimator: A fluent Android

2022-08-15

florent37/Shrine-MaterialDesign2: implem

2022-08-17

CVE-2020-36276

2022-09-23

SimpleSoftwareIO/simple-sms: Send and re

2022-08-13

阅读排行榜

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19156|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9981|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8320|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8690|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8632|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9649|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8615|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7994|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8647|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7530|2022-11-06

客服电话

电子邮件

DelphiTXLSReadWriteII导出Excel

请发表评论

全部评论

上一篇：

下一篇：

dustinvtran/ml-videos: A collection of v

ravikumar001/maven

更的笔顺,体会更的笔画,理会更的部首

ceejbot/LOUDBOT: AUTOMATED SHOUTING FOR

世的笔顺,诠释世的笔画,讲述世的部首

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053