Delphi 7 报表生成利器：FlexCel 组件包安装与 Excel 输出实战

简介FlexCel Studio for Delphi 6.0.2.0 是一套专门用于Excel文件处理的Delphi控件套包面向需要在Delphi环境中生成、读取或操作电子表格的桌面开发者。该控件可在未安装Excel的系统上直接读写本地Excel文件并支持Delphi 7及多个后续版本极大降低了报表导出与数据导入的开发门槛。压缩包共1165个文件约20.33MB类型覆盖pas源码、hpp与inc接口文件、dfm/lfm窗体资源、dpk/bpl安装包、xls示例文件以及rtf/pdf说明文档既能支撑组件安装也可供二次开发时查阅。包内默认提供Delphi 7可直接使用的运行期与设计期组件包并带有面向2005、2006、2009、2010、XE等版本的工程引用配置方便在不同Delphi版本间切换。目前已有491人学习下载凭借其完整源码和丰富的API开发者可以快速集成Excel读写能力也可进一步学习表格分析、公式处理等底层实现思路。1. 为什么给 Delphi 7 选 FlexCel Studio一个 Excel 组件包的选型实录最近在整理某公司一个 2008 年保留下来的 Delphi 7 老项目时客户提了一个让多数开发头皮发麻的需求把一套含数千行数据、带合并单元格和条件格式的报表生成成本地 Excel 文件而且服务器上绝不能装 Office。第一直觉是用 OLE 调用 Excel.Application但试了两次就翻车了——服务器是 Server Core 精简版根本没有 Excel 组件。后来换成了 TMS FlexCel Studio for Delphi 6.0.2.0问题一次性解决。这个组件包的核心价值在于它自绘 Excel 文件格式不依赖 Office 环境能写 XLS 也能写 XLSX而且直接支持 Delphi 7 编译出的最终程序。如果你维护的也是老项目、老编译器这篇文章会把安装、写入、样式、公式、模板渲染和避坑关键点全部过一遍照着做就能把 Excel 生成能力放进你的工具箱。2. 安装与成为 Delphi 7 的一部分组件包部署的最小可行路径2.1 组件包内容与文件布局先搞清楚这几十个文件是干什么的打开 6.0.2.0 这个版本文件结构通常不像现代 IDE 插件那样一键装完而是以源码加预编译包的形式存在。我习惯把整包解压到固定第三方目录而不是散落到 Delphi 安装目录里因为老项目多、编译环境杂集中管理才能避免不同版本相互踩踏。解压后至少会看到几个关键子项Source目录存放 FlexCel 的核心代码Lib目录放着编译好的.dcu或.bpl根目录下一般还有Install.txt或者readme里面写了不同 Delphi 版本对应的包命名。这里有个新手最容易看漏的点FlexCel 有多个运行时包分别对应 VCL 和 FireMonkey。Delphi 7 是纯 VCL所以要选与 VCL 相关的包仔细看包名里通常带有VC或者VCL字样。如果粗心把 FMX 包加载进来编译时会报出一堆找不到类的错误。安装前先读一读Install.txt是值得的虽然写得很啰嗦但里面会明确说“Delphi 7 users use the FlexCel_VC7 package”之类的话。没有这一段你也能根据惯例判断Delphi 7 对应的是d7或7后缀的包。2.2 添加 Library 搜索路径为什么写了uses仍然找不到单元安装成败的常见分水岭是 IDE 搜索路径。很多人把.pas文件复制到项目目录然后在uses里加上FlexCel.XlsAdapter结果编译报错“Unit not found”。这个错不是代码问题是 Delphi 7 的 Library 路径里没有指向Source目录。我一般会打开 IDE 的Tools - Environment Options - Library - Library Path把 FlexCel 的Source目录追加进去同时把Output目录也加进去让生成的.dcu文件有固定归宿。如果是命令行编译或者用CodeGear的MSBuild则要在项目配置文件里增加-R参数指定搜索路径。常见做法是写一个.bat构建脚本把参数集中管理echo off set FLEXCEL_SRCD:\ThirdParty\FlexCel_6.0.2.0\Source set FLEXCEL_LIBD:\ThirdParty\FlexCel_6.0.2.0\Lib dcc32.exe -CC -U%FLEXCEL_SRC%;%FLEXCEL_LIB% -DDEBUG;VER7 ReportGen.dpr这个脚本里的-U用于指定 unit 搜索路径-D定义条件编译符号。注意dcc32.exe必须能通过PATH访问到否则会提示命令不存在。路径里如果有空格一定要用引号包住整条路径这是 Windows 环境下最容易被忽略的一环。2.3 安装包时先编译运行库包还是先编译设计包FlexCel 的包分为设计期包与运行期包。设计期包是给 IDE 用的运行期包是给最终程序用的。先在 IDE 里打开运行期包项目文件名通常以FlexCel_Studio为前缀点Compile再打开设计期包点Install。包装好后组件栏里会出现TFlexCel相关组件但实际开发中大多数时候我根本不拖组件而是直接创建TExcelFile实例因为动态创建更灵活也方便封装成公共库。这里有个经验不要在 Delphi 7 里同时装多个版本的 FlexCel否则设计期包注册的组件会冲突表现为组件栏图标消失或点击后崩溃。如果你只是想把生成 Excel 的能力做进 exe甚至可以不安装设计期包只把运行期包.dcu编译进项目。这样隔离度高下次清理环境时只需删目录。编译完成后写第一个最小范例验证组件是否真的能用uses SysUtils, FlexCel.Core, FlexCel.XlsAdapter; procedure WriteMinimalXls(const AFileName: string); var Xls: TExcelFile; begin Xls : TXlsFile.Create(1, TExcelFileFormat.v2007); try Xls.SetCellValue(1, 1, Hello from Delphi 7); Xls.Save(AFileName); finally Xls.Free; end; end;这段代码里TXlsFile.Create的第一个参数是 sheet 数量第二个参数指定文件格式v2007表示生成的扩展名是.xlsx。SetCellValue的行列索引都是从 1 开始这一点和许多其他组件从 0 开始不一样写的时候容易混。Save直接落盘到本地文件不需要 Excel 参与。如果这一步能跑出 52 字节以上的 xlsx 文件说明组件库已经正确链接。3. 把“进 Excel”变成可靠输出单元格、样式、公式与模板渲染完整实操3.1 单元格写入与数据类型控制别再让所有内容变成文本实际报表里表格中既有字符串、日期也有数字和公式。FlexCel 的SetCellValue会根据传入值的类型自动判断单元格类型。比如传 Pascal 的Integer或Double会写入数值传TDateTime会写入日期传字符串则写入文本。但 Delphi 7 没有泛型重载那么强你如果有Variant里的值直接传给SetCellValue可能被当作字符串处理。遇到这个问题时我用一个转换分支来确保类型正确procedure SetTypedValue(const Xls: TExcelFile; const Row, Col: Integer; const Value: Variant); begin if VarIsFloat(Value) then Xls.SetCellValue(Row, Col, Double(Value)) else if VarIsType(Value, varDate) then Xls.SetCellValue(Row, Col, TDateTime(Value)) else if VarIsNumeric(Value) then Xls.SetCellValue(Row, Col, Integer(Value)) else Xls.SetCellValue(Row, Col, VarToStr(Value)); end;这里有必要说明一个隐藏点varDate在 Delphi 7 的Variant里实际是以浮点数存储的所以必须先判断varDate再判断varFloat顺序反了日期会被转成序列号写进去。VarIsNumeric常用于判断整型变量注意它会把Word、Byte等也算进去。这个函数写好后可以把数据库字段直接喂进来避免在数据库查询时做字符串拼接。3.2 样式与合并单元格导出报表不下于手工排版只填数据不设样式Excel 打开就是裸数据。FlexCel 的样式体系是以TFlxFormat对象为中心先定义格式再赋给区域。我一般先封装一个函数来设置表头样式function CreateHeaderFormat(const Xls: TExcelFile): TFlxFormat; begin Result : Xls.GetDefaultFormat; Result.Font.Name : 微软雅黑; Result.Font.Size : 11; Result.Font.Style : [TFontStyle.ssBold]; Result.FillPattern : TFlxFillPattern.Solid; Result.FillPatternColor : $00D9E2F3; Result.HAlignment : THFlxAlignment.Center; Result.VAlignment : TVFlxAlignment.Center; Result.Borders.Left.Style : TFlxBorderStyle.Thin; Result.Borders.Top.Style : TFlxBorderStyle.Thin; Result.Borders.Right.Style : TFlxBorderStyle.Thin; Result.Borders.Bottom.Style : TFlxBorderStyle.Thin; end;创建了TFlxFormat后不需要把它单独设置给每个单元格可以用SetRangeFormat一次性作用于整块区域减少 API 调用次数。合并单元格则调用MergeCellsXls.MergeCells(1, 1, 1, AColumnCount); // 第一行首列到最后列 Xls.SetCellValue(1, 1, 项目月度统计报表); Xls.SetRangeFormat(1, 1, 1, AColumnCount, HeaderFormat); Xls.SetRowHeight(1, 36);MergeCells的参数是起始行、起始列、结束行、结束列。合并后Excel 只保留左上角单元格的值其他区域必须为空否则可能报错或文件打不开。SetRowHeight的单位是磅36 磅大约对应 48 像素适合表头字号。3.3 公式与命名范围让结果在 Excel 端动态计算FlexCel 支持写入公式字符串比如SUM(B2:B100)。写公式时要注意公式里的字符串分隔符必须使用英文逗号和英文分号不对Excel 公式参数分隔符是逗号区域引用是冒号。但因为 FlexCel 内部自己解析公式它遵循的是国际通用标准与本地化 Excel 的语言设置无关。老版本 FlexCel 在写公式时要求SetCellValue的字符串以开头即可它不会检查公式正确性直到文件被 Excel 打开后才会计算。如果你希望文件在打开时自动计算需要设置工作簿的计算模式Xls.SetCellValue(7, 2, SUM(B2:B6)); Xls.SetCellValue(7, 3, AVERAGE(C2:C6)); Xls.CalcMode : TCalcMode.Automatic;TCalcMode.Automatic对应 Excel 中的自动重算。这里有个坑如果工作表里含有大量公式把CalcMode设为自动会拖慢 Excel 打开速度但对多数报表来说值得。另一个常用功能是命名范围命名后公式里可以用名字引用可读性更强Xls.SetNameValue(SalesAmount, Sheet1!$B$2:$B$6); Xls.SetCellValue(7, 2, SUM(SalesAmount));SetNameValue的第二个参数必须是绝对引用且 sheet 名要与工作表实际名称一致。如果 sheet 名是中文这里也要写中文不要带空格。命名范围在模板渲染时非常有用相当于给模板里的动态替换位起了变量名。3.4 模板替换与批量导出同一张模板一百份不同数据FlexCel 具有很强的模板引擎能力。常见做法是先用 Excel 做好一张模板文件然后在 Delphi 中加载替换特定标记再另存为新文件。标记通常放在单元格内例如[%CustomerName%]。FlexCel 6.0.2.0 原生支持这种标记替换procedure FillFromTemplate(const ATemplateFile, AOutFile: string; const AData: TStringList); var Xls: TExcelFile; i: Integer; SheetName: string; begin Xls : TXlsFile.Create(1, TExcelFileFormat.v2007); try Xls.Open(ATemplateFile); for i : 0 to AData.Count - 1 do begin SheetName : Xls.GetSheetName(1); Xls.SetCellValue(1, 1, AData.Values[CustomerName]); Xls.SetCellValue(2, 1, AData.Values[ProjectName]); Xls.SetCellValue(3, 1, AData.Values[Date]); end; Xls.Save(AOutFile); finally Xls.Free; end; end;这段代码把模板第一页的前三行当作套用区域。注意Xls.Open打开已有文件后GetSheetName(1)返回第一个工作表名在SetCellValue里如果没有指定 sheet默认写入当前激活工作表。多个模板页时最好用Xls.ActiveSheet : 1切换。批量导出的思路是循环调用FillFromTemplate每份数据一份输出但注意每次都要重新Open模板否则第二次生成时会保留上次残留的单元格内容。模板方法比逐行写样式要快得多因为样式和布局都在 Excel 里调好了Delphi 这边只替换值。但模板文件里的合并单元格会影响标记所在位置如果标记写在合并区域中SetCellValue可能只能写到左上角单元格。这个一定要在模板里仔细检查否则替换后值丢失且无报错。4. 部署与兼容避坑老 Delphi 7 环境下的五个翻车记录4.1 文件生成了但扩展名不对导致 Excel 报格式错误现象调用Save后的文件名是.xls内容却是 xlsx 格式双击打开 Excel 提示“文件格式与扩展名不匹配”。原因TXlsFile.Create里指定的格式是v2007但你保存时把文件名写成了.xls。解决要么保存时用.xlsx后缀要么创建时指定v97Excel格式或者使用Xls.FileFormat : TExcelFileFormat.v97Excel来生成老式二进制 XLS。我后来养成了一个习惯用一个函数根据扩展名自动设置格式。function GetFormatFromFileName(const AFileName: string): TExcelFileFormat; begin if UpperCase(ExtractFileExt(AFileName)) .XLS then Result : TExcelFileFormat.v97Excel else Result : TExcelFileFormat.v2007; end;这段函数判断后缀名.xls走老格式.xlsx走新格式。参数说明v97Excel生成的是 BIFF8 二进制文件兼容 Excel 97-2003v2007生成的是 OOXML。如果你的老系统下游还要接Delphi 6或者更老的程序读取优先用v97Excel因为旧程序对 OOXML 的支持普遍较差。4.2 中文文件路径写出来的是空文件或者乱码现象文件能生成路径里带中文的目录时保存后文件大小为 0 字节或者打开后文件名乱码。原因Delphi 7 默认的AnsiString编码与 Windows 系统代码页纠缠不清FlexCel 内部用的是 UTF-8 或 Unicode 接口但Save方法接受的文件名参数如果被当成AnsiString传入可能没做正确转码。解决先把文件名转换为UnicodeString再传给Save。Delphi 7 没有原生的UnicodeString需要借助WideStringXls.Save(WideString(AFileName));WideString是 COM 兼容的宽字符串类型在 Delphi 7 里能正确表达中文字符。另外确保整个项目设置里把“文件路径编码”处理为UTF-8是不现实的所以我干脆在公共模块里写一个转换函数统一把路径转为WideString。还有一个玄学情况某些版本的系统上Save成功但文件里中文内容乱码。这是因为写入单元格时用的是AnsiString解决方法是把中文内容用WideString传给SetCellValueXls.SetCellValue(1, 1, WideString(这是中文标题));4.3 TExcelFile 对象释放后仍然报内存访问冲突现象循环生成一百个文件后程序偶尔在退出时提示Access violation at 0x00000000. 原因TExcelFile内部持有全局的样式表和图片缓存如果你在同一个单元中声明了全局变量保存TExcelFile的引用或者把TExcelFile对象赋值给另一个变量后重复释放会造成双重销毁。另外FlexCel 6.0.2.0 在 Delphi 7 下的接口引用计数有时会晚于Free执行。解决确保所有对象都是局部变量在finally里只释放一次。我通常封装一个级别更高的类来管理TExcelFile并且在释放时调用Xls.DisposeOf代替Free。虽然 Delphi 7 没有DisposeOf但在较新的版本中它专门处理此类对象。在 Delphi 7 里用Free前先调用Xls.Clear可以清理内部资源Xls.Clear; Xls.Free;注意顺序不能反。Clear之后TExcelFile内部的 workspace 被重置这时候再Free可以避免某些资源句柄未关闭的问题。4.4 在 Windows Server 上没有安装字体导致 PDF 导出时中文变方块现象项目除了生成 Excel还需要把部分表格导出成 PDF。部署到一台精简版 Windows Server 后PDF 里所有中文字符显示为方块。原因FlexCel 的 PDF 导出依赖系统字体渲染而精简版服务器缺少中文语言包或字体文件。解决提前把微软雅黑或SimSun的字体文件拷贝到服务器并安装或者在导出 PDF 时指定字体文件路径。FlexCel 有TFlexCelPdfExport类可以通过FontFolder指定字体目录var PDFExport: TFlexCelPdfExport; begin PDFExport : TFlexCelPdfExport.Create(Xls); try PDFExport.FontFolder : D:\ServerFonts; PDFExport.Export(报表.pdf); finally PDFExport.Free; end; end;FontFolder指向一个包含.ttf文件的目录FlexCel 会在该目录中搜索匹配字体。这个参数不设置时FlexCel 使用系统字体缓存。设置后它优先使用指定目录里的字体。这个坑很容易在开发机上不出现因为开发机装有完整字体一上服务器就暴露。后来我将字体文件夹随程序打包并在配置文件里记录路径服务器运维只需解压一次。4.5 模板中的图片在批量化导出后逐渐消失现象用同一份模板反复生成多份报告前几份图片正常后面几份图片位置变成空白。原因FlexCel 在处理图片时内部维护了一个图片索引。Open模板后再Save到新文件图片虽然被复制但在某些版本中多次重写同一个Xls对象的输出流时图片数据缓存没有刷新。解决不要在一个TExcelFile实例上重复Open和Save十几次每次生成新文件时新建一个TExcelFile实例。如果你必须复用实例至少要在第二次Open前调用Xls.Clear并重新创建Xls.Clear; Xls.Open(ATemplateFile);Clear会释放上一次打开的所有资源包括图片缓存。这个方法比重新创建对象要轻量一点但本质上还是重新加载。图片消失的问题一般只在连续处理多文件时出现单文件生成不会遇到。5. 一个老开发每天落地前都做的三个检查到这章安装、写入、样式、模板和避坑都讲完了最后分享一个我每天下班前固定做的验证流程用来确保交付的 Excel 文件不是黑匣子。第一查看文件头。XLS 是 BIFF 格式文件头固定是D0 CF 11 E0 A1 B1 1A E1XLSX 是 ZIP 容器文件头固定是50 4B 03 04。用一个小函数可以快速判断文件类型不需要打开 Excelfunction CheckFileKind(const AFileName: string): string; var St: TFileStream; Buf: array[0..7] of Byte; begin St : TFileStream.Create(AFileName, fmOpenRead); try St.Read(Buf, SizeOf(Buf)); if (Buf[0] $D0) and (Buf[1] $CF) then Result : XLS else if (Buf[0] $50) and (Buf[1] $4B) then Result : XLSX else Result : unknown; finally St.Free; end; end;这个函数读取前 8 个字节够用且快。第二用 FlexCel 自己再读一次文件验证所有关键单元格值是否还在。第三检查公式结果。如果文件里有公式但没有内置计算器最好用 FlexCel 的RecalcFormulas把计算后的结果缓存到文件中否则一些只看不算的读取方会拿到 0。调用方法是Xls.Open(AFileName); Xls.RecalcFormulas(true, false); Xls.Save(AFileName);第一个参数表示完全重算所有公式第二个参数表示是否保留已有计算缓存的回调。设为false会强制重算。这套流程我每一次都会走特别是模板批量生成后随机抽一个文件做这三项检查。从那以后我几乎不会再收到“打不开”或者“显示错误”的投诉。希望你也能把这套检查变成自己的固定动作少走几个弯子。希望这些记录对你有帮助。本文还有配套的精品资源点击获取