Delphi实现带有格式的Excel导出功能

功能预览

运行预览

模板样式

存储返参

导出的Excel

2. 代码实现

//执行sql的函数
procedure TForm1.GetReportData(astrsql:string);
varstrSQL,err:string;                              i:integer;
beginstrSQL :='set QUOTED_IDENTIFIER off   '+astrsql;//strSQL := astrsql  ;//查询  可支持多个结果集的返回DM.qryReport.Active:=False;DM.qryReport.Close;DM.qryReport.SQL.Clear;DM.qryReport.SQL.Add(strSQL);tryDM.qryReport.Open;except on E: Exception dobeginshowmessage('执行SQL'+strsql+'异常!'+E.Message);Exit;end;end;
end;
//获取桌面的路径
function TForm1.GetShellFolders(strDir: string): string;
constregPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
varReg: TRegistry;strFolders: string;
beginReg := TRegistry.Create;tryReg.RootKey := HKEY_CURRENT_USER;if Reg.OpenKey(regPath, false) thenbeginstrFolders := Reg.ReadString(strDir);end;finallyReg.Free;end;result := strFolders;
end;
//文件导出按钮的事件
procedure TForm1.btn1Click(Sender: TObject);
varexcel,sheet :variant;iValidRows: Integer; // 工作表的有效行iValidCols: Integer; // 工作表的有效列i,j,k,affect:integer;strTemp,FieldName,reportname : string;//FieldName：对应数据的FieldName，isList,isReadRowCol,isListLine :boolean;//isList:是否包含list，isReadRowCol:是否已经读取到了list开始的行号和列号,isListLine:本行是不是包含ListlistColBegin,listColEnd:integer;//list的开始列号和结束列号aAdoDataSetMaster,aAdoDataSetList :TADODataSet;
beginGetReportData(trim(cbb2.Text));aAdoDataSetMaster :=TADODataSet.Create(Self);aAdoDataSetList:=TADODataSet.Create(Self);aAdoDataSetMaster.Recordset :=DM.qryReport.Recordset; //master数据集aAdoDataSetList.Recordset:=DM.qryReport.NextRecordset(affect);//list数据集excel := createoleobject('Excel.Application');excel.WorkBooks.open(trim(cbb1.Text));trysheet := excel.Application.ActiveSheet;//.WorkSheets['sheet1'];iValidRows := sheet.UsedRange.Rows.Count;    // 有效行数iValidCols := sheet.UsedRange.Columns.Count; // 有效列数//ShowMessage(IntToStr(iValidRows) + ', ' + IntToStr(iValidCols));listColEnd := 0;isReadRowCol := false;if aAdoDataSetList.recordcount>0 then //list数据集有数据beginisList := trueendelseisList := false;if isList thenbeginfor i := 1 to iValidRows dobeginfor j := 1 to iValidCols dobegin// 读工作表单元格strTemp := trim(sheet.Cells.Item[i, j]);if pos('(<list>)',strTemp)=0 then continue;if pos('(<list>)',strTemp)>0 thenbeginif listColBegin=0 then listColBegin := j;listColEnd := j;isReadRowCol := true;end;end;if isReadRowCol thenbeginfor k:=1 to aAdoDataSetList.recordcount-1 dobeginexcel.ActiveSheet.Rows[i+1].Insert;for j := listColBegin to listColEnd dobeginstrTemp := trim(sheet.Cells.Item[i, j]);sheet.Cells.Item[i+1, j]:=strTemp;endend;break;//只要找到一个就行了end;end;end;iValidRows := sheet.UsedRange.Rows.Count;    // 有效行数iValidCols := sheet.UsedRange.Columns.Count; // 有效列数//ShowMessage(IntToStr(iValidRows) + ', ' + IntToStr(iValidCols));aAdoDataSetMaster.first;aAdoDataSetList.first;for i := 1 to iValidRows dobeginisListLine := false;for j := 1 to iValidCols dobegin// 读工作表单元格strTemp := trim(sheet.Cells.Item[i, j]);if (pos('(<field>)',strTemp)=0) and (pos('(<list>)',strTemp)=0) then continue;if pos('(<field>)',strTemp)>0 thenbeginFieldName := copy(strTemp,pos('(<field>)',strTemp)+length('(<field>)'),pos('(</field>)',strTemp)-pos('(<field>)',strTemp)-length('(<field>)'));strTemp := stringreplace(strTemp,strTemp,aAdoDataSetMaster.FieldByName(FieldName).AsString,[rfReplaceAll]);sheet.Cells.Item[i, j] := strTemp;endelse if pos('(<list>)',strTemp)>0 thenbeginFieldName := copy(strTemp,pos('(<list>)',strTemp)+length('(<list>)'),pos('(</list>)',strTemp)-pos('(<list>)',strTemp)-length('(<list>)'));strTemp := stringreplace(strTemp,strTemp,aAdoDataSetList.FieldByName(FieldName).AsString,[rfReplaceAll]);sheet.Cells.Item[i, j] := strTemp;isListLine := true;end;end;if isListLine then aAdoDataSetList.Next;end;reportname:=GetShellFolders('Desktop')+'\外挂报表-Excel导出数据.xlsx';sheet.SaveAs(reportname);//excel.ActiveWorkBook.SaveAs('g:\aa.xls');finallyexcel.Quit;sheet := Unassigned;excel := Unassigned;end;showmessage('导出完成：'+reportname);
end;

Delphi实现带有格式的Excel导出功能相关推荐

简便的Excel导出功能
Excel导出功能在我们开发项目的时候,难免会遇到客户需要将表格数据导出到Excel中,进行打印或者留存,于是Java对Excel.word的操作都必不可少. 关于这些操作Excel目前有两个框架, ...
如何在 Asp.Net Core 实现 Excel 导出功能
在web应用程序开发时,或许你会遇到这样的需求,如何在 Asp.Net Core 中实现 excel 或者 word 的导入导出,在 NuGet 上有大量的工具包可以实现这样的功能,本篇就讨论下如何使 ...
python列表导出_python list格式数据excel导出方法
如下所示: # _*_ coding:utf-8 _*_ #----------------------------------------------- # import modules #---- ...
根据children动态复杂表头excel导出_Java高级特性-注解：注解实现Excel导出功能
注解是 Java 的一个高级特性,Spring 更是以注解为基础,发展出一套"注解驱动编程". 这听起来高大上,但毕竟是框架的事,我们也能用好注解吗? 的确,我们很少有机会自己写注 ...
java数据导出ex_Java高级特性注解：注解实现Excel导出功能
作者:JerryWu来源:SegmentFault 思否社区注解是 Java 的一个高级特性,Spring 更是以注解为基础,发展出一套"注解驱动编程". 这听起来高大上,但毕竟 ...
Angular导出功能（excel导出功能、文件数据流导出功能、图片的下载导出功能）
Angular导出功能(excel导出功能.文件数据流导出功能.图片的下载导出功能) 场景1:(直接返回网络地址进行导出的excel) 后台返回的是 : "http://192.168.0. ...
java Excel导出功能之不固定列表格
背景:考勤周期为本月19号至上月20号,则每个月考勤周期表的列是动态变化的.所有数据显示和excel导出功能都需要动态的进行处理. 显示格式如下图前端 checkin.jsp<%@ page ...
Excel导出功能超时解决方案 -- 异步处理
Excel导出功能超时解决方案 -- 异步处理参考文章: (1)Excel导出功能超时解决方案 -- 异步处理 (2)https://www.cnblogs.com/nightOfStreet/p/ ...
easypoi 实现任意格式的Excel导出（基于模板实现）
easypoi 实现任意格式的Excel导出 easypoi普通导出我就不说了,用他自带的注解就可以实现 1. easypoi模板导出效果图 2.模板格式图 easypoi自定义模板可以支持任意复杂的 ...

Delphi实现带有格式的Excel导出功能

Delphi实现带有格式的Excel导出功能相关推荐

最新文章

热门文章