Delphi FastReport 报表：Excel 版式映射与 DataSet 数据绑定

简介：围绕Excel与FastReport报表开发展开的这份Delphi实例资料，面向已具备基础Delphi与FastReport使用经验、希望把现成Excel数据接入报表设计的开发者。内容以可运行示例为核心，配套工程源码、窗体定义、单元代码与可执行程序，并附Excel模板及源码说明，便于对照理解数据连接、字段映射和报表布局的实现方式，也能为样式定制、数据过滤和事件处理等进阶尝试提供参照。压缩包共10个文件，除Delphi工程与编译产物外，还包含xls模板、htm说明页及若干url链接，整体约835KB，体量轻便，适合快速查阅与本地验证。已有574人学习，可作为用Excel作为数据源生成FastReport报表的入门参考，帮助读者梳理从模板数据到报表预览、导出输出的完整思路，对希望以Excel组织数据、再交由FastReport完成版式设计与多格式输出的Delphi开发者较有参考价值。

1. 业务部门丢来一个排好版的 Excel，报表就有了形状

业务部门丢过来一个排好版的 Excel：两级合并表头、按部门小计、页脚三个签字栏，要求系统导出的报表跟它长得一模一样。这就是用 Excel 做 FastReport 报表最典型的起点。在 Delphi 里从零画 fr3，光把列宽比例调到看着顺眼就得磨半天；换个思路，把 Excel 当"版式说明书"、把数据交给 DataSet，事情会顺很多。适合手上已经有 FastReport、又被业务方排版要求反复折腾的团队；不适合想找"一键 xls 转 fr3"工具的人，那条路目前没有省事的走法。下面按我实际落地的顺序，从读数据讲到版式对齐，再讲几个必踩的坑。

2. 两条路线先分清：Excel 当数据源，还是当版式草稿

同样一句"用 Excel 做报表"，在项目里其实是两件完全不同的事，走错路线，后面全是白工。路线 A 把 Excel 当数据源，FastReport 从头到尾自己排版；路线 B 把 Excel 当版式草稿，fr3 里一格一格照着抄，数据照样从数据库来。选型判错，最常见的后果是：业务方每次改个表头颜色，你都得重新发一次 exe。

2.1 路线A：Excel 只提供数据，FastReport 负责一切版式

这条路线的前提是"数据在 Excel 里，而不在数据库里"。典型场景：财务每月发来一张对账表、生产部门手工维护的排产表、第三方系统只能导出 xls 的中间结果。这时候 Excel 是数据的唯一入口，FastReport 只是把它渲染成能打印、能签字的版面。

落地步骤是固定的四步，顺序不能乱：

1. 用 OLE DB 把目标工作表读成TADOQuery，字段名取首行表头；
2. 把TADOQuery挂到TfrxDBDataset上，给一个模板里能引用的UserName；
3. 在 fr3 里用 MasterData 带区铺明细行，ReportTitle 放表头，ReportSummary 放合计；
4. 导出时按需选 XLS 或 PDF，打印走 FastReport 自己的分页。

这条路线的最大好处是"业务改格式不用发版"——只要 Excel 的表头名字不变，你把文件换一换，报表照样跑。代价也明确：版式还原度取决于你 fr3 画得多细，Excel 里那种花哨的斜线表头、跨行合并的小计条，FastReport 都得手工补。

我一般会在项目里留一个"表头字段映射表"，把 Excel 第一行的中文名和 DataSet 字段名对起来，映射不上就直接报错退出，别让报表跑出一堆空白列再来查。

2.2 路线B：Excel 定版式，FastReport 按行映射还原

这条路线的前提反过来：数据在数据库里，Excel 只是业务方用来"描述版面"的草稿。他们的真实诉求是"打印出来跟这张表一样"，而不是"数据从这张表来"。

具体做法是把 Excel 拆成两块看：

• 版式区：表头行、小计行的位置、列宽、行高、页脚签字栏。这部分一次性抄进 fr3，之后基本不动。
• 数据区：明细行的起始行、每列对应的字段、合计公式。这部分要在 fr3 里用带区和聚合函数重建。

拆完之后，抄版式这一步是纯体力活，但有技巧：先在 FastReport 里把Units设成fuMM，再按 Excel 的行高磅值换算成毫米填进去，比在像素单位下反复微调快得多。列宽同理，Excel 的字符宽度先换成像素，再换成毫米，一次算准，后面不用再改。

要提醒一句：别指望有什么工具能把 xls 直接转成 fr3。据我用过的几个版本，FastReport VCL 主线并没有成熟的 Excel 导入器，网上流传的"导入向导"多数是导出方向或者第三方插件。老老实实人工映射一次，比找一个不存在的按钮靠谱。

2.3 一张对照表：什么时候别硬上

两条路线不是二选一的口味问题，而是由"谁是数据源头"决定的。下面这张表是我在选型会上直接拿出来用的判断依据。

还有一种混合情况：数据在数据库，但业务方坚持要"每月导出成 Excel 再核对一遍"。这时候别纠结，路线 A 和路线 B 同时存在——fr3 负责打印版，导出 Excel 负责核对版，两套输出共用一个 DataSet，成本并不高。

选型定下来之后再动代码，比边写边改省事得多。下面几章都按"路线 A 的数据读取 + 路线 B 的版式映射"这个组合来讲，因为这是实际项目里最常见、也最容易翻车的组合。

3. 把 xlsx 读成 DataSet：连接串、表名与类型推断

Excel 不是数据库，但 OLE DB 能让它装得很像。麻烦的地方在于：它没有表结构、没有字段类型、没有主键，全靠前几行数据猜。猜错的后果很直接——金额列被当成文本、日期列变成一串数字、空单元格让整列类型漂移。这一章把读取环节拆成四步讲透。

3.1 ACE 连接串的三个关键参数

Delphi 里读 xlsx 最省事的还是TADOConnection+ ACE 驱动，不额外引第三方库。连接串看着长，真正影响行为的只有三个参数。

uses Data.DB, Data.Win.ADODB, System.SysUtils; function BuildExcelConnStr(const AFile: string): string; begin // xlsx 用 Excel 12.0 Xml；老式 xls 要改成 Excel 8.0 Result := 'Provider=Microsoft.ACE.OLEDB.12.0;' + 'Data Source=' + AFile + ';' + 'Extended Properties="Excel 12.0 Xml;HDR=YES;IMEX=1";'; end; procedure TForm1.OpenSheet(const AFile, ASheet: string); begin if not Assigned(connExcel) then begin connExcel := TADOConnection.Create(Self); connExcel.LoginPrompt := False; end; connExcel.Close; connExcel.ConnectionString := BuildExcelConnStr(AFile); connExcel.Connected := True; // 这里连不上，八成是驱动位数问题，见第 5 章 qryExcel.Close; qryExcel.Connection := connExcel; // 工作表名后面必须带 $，整体用方括号包住，防中文名和空格 qryExcel.SQL.Text := Format('SELECT * FROM [%s$]', [ASheet]); qryExcel.Open; end;

三个参数的作用得说清楚，不然改的时候容易瞎试：

IMEX=1是我默认会开的，因为业务方手填的 Excel 里同一列混着数字和"暂估"两个字太常见了。开了之后，读出来的金额字段是字符串，模板里直接求和会得到 0，得在 DataSet 层做一次转换，这个在 3.4 节处理。

提示：IMEX的文本推断只看前 8 行。第 9 行才出现的"合计"两个字照样会让后面的数值变空，所以模板规范比参数更管用。

3.2 先探表名，再拼 SELECT，避开 F1/F2

工作表名是用户随手起的，代码里硬编码Sheet1迟早出事。正确做法是先问驱动"这个文件里有哪些表"，再决定读哪一张。

function ListExcelSheets(const AFile: string): TStringList; var Conn: TADOConnection; begin Result := TStringList.Create; Conn := TADOConnection.Create(nil); try Conn.LoginPrompt := False; Conn.ConnectionString := BuildExcelConnStr(AFile); Conn.Connected := True; // 返回形如 'Sheet1$'、'汇总表$'，带 $ 后缀是驱动的习惯 Conn.GetTableNames(Result, False); finally Conn.Free; end; end;

拿到列表之后，判断逻辑要写死两条规则：一是必须存在约定名称的工作表（比如必须以"数据"开头），二是该工作表的列数必须和字段映射表一致。两条任一不满足就抛异常，别让它带着半个表头往下跑——那种报表打印出来最难解释。

另一个坑是 Excel 里"看起来是表"的东西驱动根本不认：隐藏的工作表、以_开头的系统表、被筛选隐藏的行，GetTableNames可能返回也可能不返回，取决于版本。我的习惯是只认名字，不认顺序，代码里取第一张名字匹配的表。

3.3 用 TfrxDBDataset 直连，别急着上 UserDataSet

数据读进TADOQuery之后，接 FastReport 只需要一个桥接组件。

uses frxClass, frxDBSet; procedure TForm1.BindToReport; begin // frxDBExcel 是放在窗体上的 TfrxDBDataset frxDBExcel.DataSet := qryExcel; frxDBExcel.UserName := 'ExcelData'; // 模板里写 <ExcelData."金额"> frxDBExcel.Open; frxReport1.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'report.fr3'); frxReport1.ShowReport; end;

UserName这个名字一旦定下来就别改，模板里所有表达式都靠它引用。中文表头也没问题，模板写成<ExcelData."本月金额">就行，但方括号和引号一个都不能少，少一个 FastReport 会把它当常量处理，页面上直接印出字段名。

什么时候才需要TfrxUserDataSet？答案是"数据不在 DataSet 里"的时候。比如数据是从 Excel 的多个区域现场拼出来的、一行数据横跨三张表、或者明细行数要按公式动态算。这种场景下用OnGetValue手工喂值：

procedure TForm1.frxUserDataGetValue(Sender: TfrxUserDataSet; const FieldName: string; var Value: Variant); begin // FMatrix 是一个二维数组，存的是从 Excel 区域读出来的原始值 Value := FMatrix[FCurRow, FieldIndexByName(FieldName)]; end; procedure TForm1.frxUserDataNext(Sender: TfrxUserDataSet); begin Inc(FCurRow); end; procedure TForm1.frxUserDataCheckEOF(Sender: TfrxUserDataSet; var Eof: Boolean); begin Eof := FCurRow > High(FMatrix); end;

三个事件各管一件事：取值、游标下移、判断结束。少写CheckEOF是最常见的手误，报表会一直打印空行直到内存耗尽。但只要数据能规规矩矩进 DataSet，就别用这套——多一层手工游标就多一层出错的地方，TfrxDBDataset现成的分页和聚合都能直接用。

3.4 让类型推断可控：模板规范 + 读后强制转换

开了IMEX=1之后，所有列都是字符串，这一步必须在 DataSet 层做清洗，不能留给模板里的表达式去猜。

function ToAmount(const S: string): Currency; var T: string; Neg: Boolean; begin Result := 0; T := Trim(S); if T = '' then Exit; // 会计习惯：括号表示负数，千分位逗号要去掉 Neg := (T[1] = '(') and (T[Length(T)] = ')'); if Neg then T := Copy(T, 2, Length(T) - 2); T := StringReplace(T, ',', '', [rfReplaceAll]); T := StringReplace(T, ' ', '', [rfReplaceAll]); if TryStrToCurr(T, Result) and Neg then Result := -Result; end; procedure TForm1.NormalizeRows; begin qryExcel.DisableControls; try qryExcel.First; while not qryExcel.Eof do begin // 新增一个 Currency 字段承接清洗结果，模板只引用这个字段 qryExcel.Edit; qryExcel.FieldByName('金额_数值').AsCurrency := ToAmount(qryExcel.FieldByName('金额').AsString); qryExcel.Post; qryExcel.Next; end; finally qryExcel.EnableControls; end; end;

这里有个取舍要讲明白：为什么不在模板里用 FastReport 的脚本函数转？因为模板是业务方可能改的地方，脚本一多，改坏了没人看得出来；而清洗逻辑放在 Delphi 里，出错有调用栈、有日志，能查。

金额_数值这种带下划线的辅助字段名，是我在几个项目里固定下来的习惯——它和业务字段名有明显区分，模板里一眼能看出哪些是原始值、哪些是加工值。日期同理，Excel 的日期序列号（比如 45123 这种）在IMEX=1下会原样当字符串读进来，得用VarToDateTime或者手工按 1899-12-30 起算换算，这一步不做，报表上就会印出五位数。

4. 版式对齐：Excel 的行高列宽怎么落到 FastReport 的 Band

数据通了之后，真正花时间的是"看起来像不像"。业务方不会说"你这列宽差 3 毫米"，他们只会说"打印出来跟我们的表不一样"。这一章讲三件事：单位怎么换、合并单元格怎么拆、打印区域和页脚怎么对。

4.1 单位换算：字符宽、磅、像素、毫米

Excel 的三套单位混在一起，是最容易失控的地方。

• 列宽：单位是"默认字体的字符宽度"，默认字体下 1 字符约等于 7 像素，标准列宽 8.43 字符约等于 64 像素。
• 行高：单位是磅（point），1 磅 = 1/72 英寸，在 96 DPI 下等于 1.333 像素。
• FastReport：默认单位是像素，把frxReport1.Units设成fuMM之后全部按毫米算。

换算关系是固定的：毫米 = 像素 × 25.4 ÷ 96，也就是 1 像素约等于 0.2646 毫米。我一般直接在 FastReport 里按毫米填，常用的几个值记在纸上：

换算公式不难，难的是 Excel 里每列宽度都不一样。我的做法是先量出数据区最左边一列的宽度，其余列按比例缩放，宁可整体缩放也别一列一列抠——人眼对列宽比例的敏感度远高于对绝对宽度的敏感度。

4.2 合并单元格拆成 Master/Detail 与跨列文本框

Excel 的合并单元格是版式杀手。一个A1:F1的合并标题，在 FastReport 里没有"合并"这个概念，只有一个 Memo 的宽度可以设成六列之和。

常见的三种合并，处理方式不一样：

• 横向合并的标题行：放在ReportTitle带区，一个 Memo，宽度设成数据区总宽，HAlign设haCenter。别用六个 Memo 拼，边框线会对不齐。
• 纵向合并的分组列（比如部门名跨了五行）：用MasterData带区 + Memo 的Merge属性（相同值纵向合并），或者更稳的做法是用分组带区GroupHeader，把部门名放在组头，明细只放后面的列。
• 跨行跨列的小计条：单独开一个带区，在OnBeforePrint里判断当前行的分组键变了没有，变了就打印小计。

第三种最容易写错，因为 FastReport 的带区顺序是固定的，小计条只能放在GroupFooter而不是明细行中间。如果业务方坚持"小计条就插在明细中间"，那就在明细带区里放一个高度可变的 Memo，在OnBeforePrint里动态改高度，但这样分页会变得不可控，我不建议。

4.3 打印区域、页眉页脚与重复标题行

Excel 的"打印标题"功能（让表头在每页重复）对应 FastReport 的PageHeader带区，别用ReportTitle——后者只在第一页出现。这是新手最常弄混的一对。

页脚同理：Excel 页脚的&[页码]对应 FastReport 的[Page#]，总页数是[TotalPages#]。签字栏那种固定内容直接写在PageFooter里就行，注意把PageFooter的高度留够，不然第二页开始签字栏会被切掉半行。

打印区域这一项，Excel 里设了A1:H45，在 FastReport 里对应的是"报表总宽度"。做法是把所有带区的左右边界对齐到同一组坐标上，我一般会在纸上记一组数字：左边界 10 毫米，右边界 200 毫米，中间按列宽分配，所有带区共用这组值，改的时候一起改。

还有一个隐蔽的坑：Excel 里设了"缩放到 1 页宽"，打印出来永远是一页；FastReport 没有这个概念，它按带区高度老老实实分页。数据一多，页数就对不上。要么在导出时调PrintScale，要么提前跟业务方说清楚页数会变。

4.4 用脚本补上 Excel 公式算不出的合计

Excel 里一个SUM(B2:B10)就完事的合计，在 FastReport 里对应的是聚合表达式。最省事的写法是在ReportSummary里放一个 Memo，内容写：

[SUM(<ExcelData."金额_数值">,MasterData1)]

MasterData1是明细带区的名字，写错名字或者写错带区层级，结果就是 0 或者报表达式错误。分组小计同理，把带区换成GroupFooter1即可。

需要跨页累计的场景（比如"本页小计"），就得用脚本变量了：

var PageSum: Currency; procedure TForm1.MemoPageSumOnBeforePrint(Sender: TfrxComponent); begin // 明细带区每打印一行累加一次 PageSum := PageSum + <ExcelData."金额_数值">; end; procedure TForm1.PageFooter1OnBeforePrint(Sender: TfrxComponent); begin MemoPageSum.Text := FormatFloat('#,##0.00', PageSum); PageSum := 0; // 打印完必须清零，否则第二页会接着上一页累加 end;

清零那一行是关键。我见过不止一个项目在这里翻车，第二页的小计等于第一页加第二页，查了半天以为是数据重复取。

5. 导出与读取的翻车现场：5 条排查记录

前面几章的代码在干净的样例文件上都能跑通，真实项目里出问题的地方全在边界上。这一章记的都是我实际遇到过的，按"现象 → 原因 → 解决"写，能对上号就直接改。

5.1 报"未在本地计算机上注册 Microsoft.ACE.OLEDB.12.0"

现象：开发机上跑得好好的程序，拷到现场机器上，Conn.Connected := True直接抛异常，提示提供程序未注册。

原因：两种可能。一是目标机器根本没装 ACE 驱动（Office 精简版、WPS 环境常见）；二是位数不匹配——32 位程序调不动 64 位驱动，反过来也一样。

解决：先确认编译目标是 Win32 还是 Win64，再装对应位数的驱动，两者必须一致。注意驱动安装包有 x86 和 x64 两个版本，装了一个不等于装了两个。如果现场不允许装驱动，就得换路线，用第三方纯 Pascal 的 xlsx 读取库，不依赖 Office 组件，代价是要处理样式和公式的兼容性。

5.2 打开导出的文件提示格式与扩展名不一致

现象：导出成功，双击打开时 Excel 弹窗"文件格式与扩展名不匹配，是否继续"，点"是"能打开，但业务方每次都要点一下。

原因：导出的组件和文件后缀对不上。老版本 FastReport 只有TfrxXLSExport，产出的内容是老式 xls 格式，文件名却写成了.xlsx。较新的版本里有frxExportXLSX单元提供 XLSX 导出，单元名和组件名以你手上的版本为准，别直接抄。

解决：后缀跟着组件走，不跟着期望走。用 XLS 导出就写.xls，要.xlsx就换 XLSX 导出组件。另外一个细节是导出前必须PrepareReport，直接Export有时会拿到空页。

var XLS: TfrxXLSExport; begin XLS := TfrxXLSExport.Create(nil); try XLS.FileName := 'D:\out\对账单.xls'; // 后缀与组件一致 XLS.ShowDialog := False; XLS.OpenAfterExport := False; XLS.Wysiwyg := True; // 所见即所得，版式不走样 XLS.PageBreaks := False; // 不要按 FastReport 分页插分页符 XLS.ExportPictures := True; frxReport1.PrepareReport; frxReport1.Export(XLS); finally XLS.Free; end; end;

Wysiwyg和PageBreaks这两个参数是配套用的：前者保证版式按屏幕来，后者防止 FastReport 的 A4 分页逻辑跑到 Excel 里去插一堆空行。

5.3 金额列整列跑到右边一列

现象：模板里明明对好了，导出的文件里金额整体右移一列，或者某一列串到了下一列。

原因：Excel 源文件里有隐藏列，或者数据区中间夹了一列全空的占位列。SELECT *返回的列序是按物理列来的，隐藏列照样占位，而模板是按可见列画的，自然错一位。

解决：代码里别用SELECT *，显式列出需要的列名。这一步看着啰嗦，但换来的是列序稳定。

// 推荐：显式列名，顺序由你控制 qryExcel.SQL.Text := 'SELECT 部门, 姓名, 金额, 备注 FROM [数据$]';

如果 Excel 的表头顺序经常变，那就更得显式写，并且加一层校验：打开之后比对FieldCount和映射表的数量，不一致直接报错。

5.4 日期变成 45123 这样的数字

现象：明细里的日期列印出来是五位数，或者导出到 Excel 后变成一串数字加科学计数。

原因：IMEX=1把日期当字符串读，读到的其实是 Excel 内部的日期序列号。或者反过来，字段是TDateTime，但模板里没设DisplayFormat，FastReport 按默认格式输出。

解决：两头都设。读取端按 1899-12-30 为基准把序列号转成TDateTime，模板里再把DisplayFormat设成yyyy-mm-dd。只在模板里设格式，碰到序列号照样输出数字；只在读取端转，模板不设格式又会带时分秒。

5.5 两千行以上导出卡住、进度条不动

现象：几百行秒出，两千行以上导出界面卡死，几分钟没反应，内存一路涨。

原因：Wysiwyg := True时导出组件要逐行测量单元格宽度，复杂度是行数乘以列数；再叠加PrepareReport把全部页面留在内存里，数据一多就顶不住。

解决：分三档处理。两千行以内保持 WYSIWYG；两万行以内关掉Wysiwyg、只导数据，版式损失可以在导出后人工调整；再大的量就分页导出多个文件，让业务方按部门或月份自己拆。硬扛一个几十万行的工作簿，内存和时间都不划算。

注意：卡死的时候别急着杀进程，先在PrepareReport前后打日志，确认卡在哪一步。我遇到过一次其实是数据源那边qryExcel没DisableControls，每Next一次界面刷新一次，跟导出组件没关系。

6. 让业务自己改模板：运行期校验与一次真实返工

到这一步，报表能跑、能导、能打印了，但真正的长期成本在"业务方下次改模板"上。他们改完 Excel 发回来，你不知道哪一行被合并了、哪个表头被改了名字，跑出来一堆空白列才发现，那时候已经在打印室门口了。

我后来的做法是加一个轻量的运行期校验，在LoadFromFile之前先跑一遍，不通过就直接弹提示，把问题挡在打印之前。

function ValidateExcelTemplate(const AFile: string; const ASheet: string; const AFields: array of string; out AMsg: string): Boolean; var Qry: TADOQuery; I: Integer; begin Result := False; AMsg := ''; Qry := TADOQuery.Create(nil); try try Qry.Connection := connExcel; Qry.SQL.Text := Format('SELECT * FROM [%s$]', [ASheet]); Qry.Open; except on E: Exception do begin AMsg := '工作表读取失败：' + E.Message; Exit; end; end; if Qry.RecordCount = 0 then begin AMsg := '数据区为空'; Exit; end; // 逐个核对约定字段，缺一个就报名字 for I := Low(AFields) to High(AFields) do if Qry.FindField(AFields[I]) = nil then begin AMsg := '缺少字段：' + AFields[I]; Exit; end; Result := True; finally Qry.Free; end; end;

调用的时候把字段名数组传进去，缺哪个报哪个，业务方拿着提示回去改，比来回发邮件问"哪里不对"快得多。这段代码不复杂，但它把"发现问题"的时机从打印现场挪到了打开文件的第一秒，价值主要在这个时间差上。

有一次印象很深：业务方为了"好看"，把明细区的两列合并成了一列，表头名字没变，但FieldCount少了一个，金额列整体左移。那次直到打印出来才发现，四十多份已经装订好的报表全部作废，重新印了一遍。从那以后我每次交付前，都把业务方发回来的 Excel 先过一遍ValidateExcelTemplate，再跑一次导出对比首行和末行的合计值，两个数对不上就不发版。

这套流程听起来笨，但它是唯一能兜住"人改文件"这件事的办法。工具能做的只是把错误暴露得早一点，判断标准还是得写死在代码里。希望帮到你。

本文还有配套的精品资源，点击获取