简介：一套专为Delphi开发者设计的Excel文件处理工具，直接解析.xls和.xlsx二进制结构，不依赖Office或OLE组件。支持单元格数据读写、公式计算、字体/边框/背景等格式设置、多工作表操作及Excel 97至最新格式兼容。提供D7、D2010、XE2～XE10全部主流版本对应的编译后文件（bpl、dcp、bpi）和完整源码单元（如XLSSpreadSheet2.dcu、XLSReadXLSX5.dcu、XLSWriteXLSX5.dcu等），开箱即用。内置xpgParseDrawingCommon、xpgParserXLSX、BIFF_ReadII5等核心解析模块，覆盖绘图对象、图表、文档属性、外部链接、OPC容器等复杂结构。无运行时授权费用，适用于报表生成、批量数据导入导出、服务端Excel自动化等场景，自1998年起持续维护更新。
1. 项目概述：为什么一个“不装Excel也能读写Excel”的Delphi组件，值得我从D7用到XE10？
你有没有遇到过这样的场景：客户部署的服务器上严禁安装Office套件，但业务系统又必须每天凌晨自动生成500份带格式的销售报表，导出为.xlsx发邮件；或者你写的工业数据采集软件，需要把PLC实时存入的二进制日志，按时间戳自动拆分成多个工作表，每张表带固定表头、红色预警单元格、自动筛选和汇总公式——而这一切，必须在没有Excel进程、不弹窗、不卡主线程的前提下静默完成？
这就是我过去十五年反复被问到的核心痛点。不是“能不能打开Excel”，而是“能不能像操作内存数组一样，直接对.xls/.xlsx文件的字节流做外科手术式读写”。市面上很多所谓“Excel组件”，底层其实是调用OLE Automation（也就是启动一个隐藏的excel.exe进程），这在服务端、Windows Server Core、无GUI环境或高并发场景下，轻则报错崩溃，重则触发Windows会话隔离策略导致整个服务挂起。更别说D7/D2010这类老版本根本无法加载新COM接口。
而这个组件包——我们内部一直叫它 XLSReadWriteII（注意不是“II”罗马数字，是“Read Write Two”的简写）——走的是完全不同的技术路径：它不依赖任何外部进程、不注册COM组件、不调用Windows API中的Excel相关DLL，而是把Excel文件当作一个结构化二进制容器来解析与构造。.xls对应BIFF5/BIFF8规范（Excel 97–2003），.xlsx对应ECMA-376标准（即ZIP+XML+OPC容器），所有解析逻辑全部由Pascal代码实现，连ZIP解压都是自己写的精简版TZipReader，不引用任何第三方压缩库。这意味着：你在D7里写的代码，编译出来的EXE扔到一台纯裸机WinPE环境下，只要能跑Delphi程序，就能生成带合并单元格和条件格式的.xlsx——我真这么干过，给某电厂DCS系统做离线报表模块，连.NET Framework都不让装。
关键词里提到的“原生Excel读写”，核心就在这两个字：“原生”不是指“用原生API”，而是指对Excel文件物理结构的原生理解。它知道一个CFRecord（条件格式记录）在BIFF5中占多少字节、偏移在哪、标志位怎么设置；它清楚.xlsx中xl/worksheets/sheet1.xml里的<c r="A1" t="s">标签对应共享字符串表第几个索引；它甚至能绕过Excel自身的公式引擎，在内存中模拟SUMIFS的计算逻辑并回填结果值——这些能力，不是靠调用Excel.exe得来的，是靠一行行啃透微软公开文档、反向工程大量真实文件样本、再用Object Pascal重写的。
所以它兼容D7到XE10，并非简单地“重新编译一遍”，而是每个版本都做了针对性适配：D7没有泛型、没有UnicodeString，所有字符串处理走AnsiString+CodePage转换；D2010开始支持Unicode，但TStream.ReadBuffer在不同版本对宽字符处理有细微差异，源码里专门打了补丁；XE2引入ARC内存模型后，所有TObjectList容器都加了OwnsObjects := False显式控制，避免循环引用导致的析构死锁。这些细节，光看目录里的D2010/、XE10/子文件夹是看不出门道的，但当你在XE10里调试一个XLSWriteXLSX5.dcu写入失败的问题时，就会发现——问题不在你的代码，而在XE10的TBytes动态数组在TMemoryStream.Write时多了一次隐式拷贝，导致OPC关系文件写入位置错位。这种坑，只有真正跨版本踩过、修过、测过的人，才敢打包说“全版本兼容”。
它适合谁？不是那些只需要“导出个简单表格”的人——那种需求用TStringGrid.SaveToCSV就够了。它适合三类人：
- 报表系统开发者：需要精确控制每行高度、每列宽度、字体嵌入、打印区域、页眉页脚、分页符；
- 后台批处理工程师：在Windows Service或Linux+Wine环境下运行，要求零GUI、零进程依赖、可静默失败重试；
- 遗留系统维护者：手头是D7写的工厂MES系统，客户拒绝升级Delphi，但又要对接新ERP的.xlsx接口——这时你不需要重构，只需要替换掉原来那个调用Excel.Application的单元，换成XLSReadXLSX5，改两行代码，上线。
这不是一个“功能多”的组件，而是一个“边界清晰、行为确定、故障可溯”的工具。它不会帮你做数据校验，也不会自动适配中文Excel和英文Excel的日期格式差异——但它会明确告诉你：“第3行第5列的日期值，原始存储为OLE Automation Date 44205.625，对应UTC时间2021-01-08 15:00:00，本地时区偏移+8小时”。你要做的，只是接住这个确定性，然后按业务规则处理。
2. 核心设计思路：为什么放弃OLE/COM，选择“字节级解析”这条少有人走的路？
很多人第一次听说“不装Excel也能读写Excel”，第一反应是：“那公式怎么算？图表怎么渲染？宏怎么执行？”——这恰恰暴露了对Excel文件本质的误解。Excel文件从来就不是“程序”，它只是一个遵循严格二进制规范的数据容器。就像PDF不是“Adobe Reader”，而是ISO 32000定义的页面描述语言；JPEG不是“看图软件”，而是ITU-T T.81定义的压缩编码。.xls和.xlsx同理：它们是微软定义的、可被任何语言解析的静态文件格式。
XLSReadWriteII放弃OLE/COM路线，根本原因就一条：可控性。
OLE Automation看似方便，ExcelApp.Workbooks.Open(...)一行搞定，但背后藏着无数不可控变量：
- Excel进程是否已启动？如果被用户手动关掉，你的程序会卡在CoCreateInstance上30秒才超时；
- 不同Office版本对同一COM接口返回值不同（比如Excel 2010返回Variant，2016返回IDispatch*），Delphi的OleVariant转换可能静默失败；
- 多线程调用时，Excel COM对象默认是单线程公寓（STA），你必须手动CoInitializeEx(NULL, COINIT_APARTMENTTHREADED)，稍有不慎就死锁；
- 最致命的是：它无法在无桌面会话的Windows服务中稳定运行。微软官方文档白纸黑字写着：“Automation objects are not supported in Windows services”。你硬要跑，初期可能正常，但运行一周后突然所有Excel操作返回0x80010108（RPC_E_DISCONNECTED），查三天才发现是Windows Session 0隔离机制在作祟。
而字节级解析，把一切不确定性收归己有。我们来看一个具体例子：读取一个.xlsx文件中Sheet1的A1单元格值。
传统OLE方式：
ExcelApp := CreateOleObject('Excel.Application');
Workbook := ExcelApp.Workbooks.Open('data.xlsx');
Worksheet := Workbook.Worksheets[1];
Value := Worksheet.Cells[1, 1].Value; // 这里可能弹窗、可能卡死、可能返回空
XLSReadWriteII方式：
XLS := TXLSWorkbook.Create;
try
XLS.LoadFromFile('data.xlsx'); // 纯内存解析，毫秒级
Value := XLS.Sheets[0].Cells[0, 0].AsString; // 直接取字符串值
finally
XLS.Free;
end;
背后发生了什么？
- ZIP解压层：
TXLSWorkbook.LoadFromFile首先用内置TZipReader打开文件，遍历中央目录，找到xl/workbook.xml、xl/worksheets/sheet1.xml、xl/sharedStrings.xml等关键文件流； - XML解析层：用轻量级
TXPGParserXLSX（不是MSXML，是作者自己写的SAX式解析器）逐行扫描sheet1.xml，遇到<c r="A1" t="s">标签，提取r属性定位行列，t属性判断类型（s=共享字符串，n=数字，b=布尔）； - 索引映射层：若
t="s"，则从sharedStrings.xml中提取第v个<si>节点的文本内容；若t="n"，则直接将v字段转为浮点数，再根据单元格样式中的numFmtId查styles.xml，决定是显示为日期、货币还是科学计数法； - 公式引擎层：如果A1是公式（如
<c r="A1" t="str"><f>SUM(B1:B10)</f><v>55</v></c>），则调用TXLSFormulaEngine.Evaluate，该引擎不依赖Excel，而是用递归下降法解析SUM(B1:B10)，再从B1-B10内存缓存中取值求和，结果55就是预计算值（<v>标签），确保即使断网、无Excel，也能拿到正确结果。
看到区别了吗？OLE是“请Excel帮忙干活”，而XLSReadWriteII是“我自己就是Excel”。前者你永远不知道Excel在想什么，后者每一个字节的读写都在你掌控之中。
当然，这条路代价巨大。仅为了完整支持Excel 97–2019所有版本的BIFF记录，作者就整理了超过1200种RECORD_TYPE，其中像MsoDrawingGroup（绘图组）、Obj（OLE对象）、TxO（文本框）这类复杂结构，一个记录就嵌套七八层，还要处理不同版本间的字段偏移变化。.xlsx的OPC容器规范更是庞杂：_rels/.rels定义根关系，xl/_rels/workbook.xml.rels定义工作簿关系，xl/worksheets/_rels/sheet1.xml.rels定义工作表内图表/图片关系……漏掉任何一个关系文件，生成的.xlsx在Excel里就打不开。
但正因如此，它才能做到“不破坏原始格式”。比如你用OLE打开一个带VBA宏的.xlsm文件，哪怕只读取一个单元格，Excel也会自动重写整个文件头，导致VBA签名失效、宏被禁用；而XLSReadWriteII默认只读取xl/目录下的数据文件，完全跳过xl/vbaProject.bin，宏代码原封不动保留。再比如某些财务系统导出的.xlsx，会在docProps/custom.xml里写入审计时间戳，OLE操作会清空这个自定义属性，而XLSReadWriteII提供XLS.CustomProperties['AuditTime'] := Now接口，精准修改指定字段，其余一概不动。
这种“外科手术式”的精确控制，正是报表生成、金融数据交换、电子档案归档等强合规场景所必需的。它不追求“一键美化”，而是提供“每一微秒都可预测”的确定性。
3. 核心模块解析：从BIFF5到XLSX，如何用Pascal代码“读懂”Excel的密码本？
XLSReadWriteII的目录结构看似杂乱（一堆.dcu、.obj、.hpp文件），实则暗藏精密分工。它不像某些大而全的框架把所有功能塞进一个单元，而是按Excel文件的物理层次，划分为五个核心解析模块，每个模块专注解决一类问题。理解它们的协作关系，是高效使用该组件的前提。
3.1 BIFF5/BIFF8模块：破解Excel 97–2003的二进制密钥
.xls文件本质是一个复合文档（Compound Document），类似小型文件系统，由FAT（文件分配表）和DIR（目录流）构成。BIFF5（Excel 97）和BIFF8（Excel 2000–2003）是其核心记录格式。BIFF5.dcu和BIFF8.dcu（后者在XE系列中整合为BIFF_RecordStorage5.dcu）就是专门解析这些记录的引擎。
一个典型的BIFF记录结构如下：
Offset 0: WORD RecordType // 记录类型，如0x0009=BOF（Beginning of File）
Offset 2: WORD Length // 记录数据长度（不含头）
Offset 4: BYTE Data[Length] // 实际数据
BIFF5.dcu的工作，就是按此结构逐块扫描文件流，识别出关键记录：
- BOF（0x0009）：标识工作簿/工作表/图表流的开始；
- EOF（0x000A）：流结束标记；
- BoundSheet8（0x0085）：存储工作表名、类型（工作表/图表/宏表）、所在流位置；
- Dimensions（0x0200）：记录工作表实际使用的行列范围（避免遍历全部65536行）；
- Row（0x0208）：定义某一行的高度、默认字体、隐藏状态；
- Cell类记录（LabelSst/Number/BoolErr/RK等）：存储单元格值及格式索引。
难点在于：同一逻辑功能，在不同Excel版本中可能用不同记录实现。例如设置单元格背景色：
- Excel 97用FORMAT记录定义颜色索引，再用XF（Extended Format）记录关联到单元格；
- Excel 2003新增STYLE记录，支持RGB真彩色，但旧版Excel打开会忽略；
- 而BIFF5.dcu必须同时识别这两种模式，并在写入时根据目标Excel版本选择最优方案——这就是为什么它提供TXLSWorkbook.TargetExcelVersion属性，设为evExcel97时强制用索引色，设为evExcel2003时启用RGB。
实操中一个经典问题是：读取一个由Excel 2003保存的.xls，发现日期单元格显示为44205而非2021/1/8。这是因为Excel内部用OLE Automation Date（OADate）存储，即从1899年12月30日起的天数。BIFF5.dcu在解析Number记录时，会检查该单元格的XF格式索引，若索引指向一个numFmtId=14（短日期格式）的样式，则自动调用OADateToDateTime(44205)转换，否则原样返回数字。这个转换逻辑不是写死的，而是通过BIFF_Utils5.dcu中的TBIFFUtils.GetDateTimeFormat动态查询样式表实现的。
3.2 BIFF12模块：直面Excel 2007+的“新旧混搭”挑战
Excel 2007引入.xlsx，但为兼容旧系统，仍保留.xlsb（二进制xlsx）格式。BIFF12_Recs5.dcu就是专为.xlsb设计的解析器。它不处理XML，而是解析一种新的二进制流结构，其中记录类型扩展到4字节（DWORD），支持更大的数据块和更复杂的嵌套。
.xlsb的难点在于：它混合了BIFF8的旧记录和全新的BASIC记录。比如一个图表对象，在.xls中用MsoDrawingGroup+Obj+TxO三层记录描述，在.xlsb中则被压缩为一个BrtBeginChart+BrtChartTitle+BrtEndChart序列，且所有字符串采用LZ77压缩。BIFF12_Recs5.dcu内置了一个微型解压器，当检测到BrtBeginChart时，自动解压后续数据块，再交由xpgParseDrawingCommon.dcu进行语义解析。
这也是为什么资源包里既有BIFF12_Recs5.dcu又有xpgParseDrawingCommon.dcu——前者负责“字节解包”，后者负责“语义还原”。例如xpgParseDrawingCommon.dcu能识别出BrtChartTitle中的textPr（文本属性）结构，提取字体大小、加粗标志、RGB颜色值，并映射到TXLSChart.Title.Font.Size这样的Pascal属性上。这种分层设计，让代码既保持解析效率，又具备业务可读性。
3.3 XLSX模块：ZIP+XML+OPC，用Pascal重写一套“Excel解包器”
.xlsx看似简单（本质是ZIP包），但微软的ECMA-376规范长达数千页。XLSWriteXLSX5.dcu和XLSReadXLSX5.dcu不是调用ShellExecute('unzip')，而是用纯Pascal实现了：
- OPC容器管理：解析[Content_Types].xml确定各部件MIME类型；
- 关系链追踪：从_rels/.rels→xl/_rels/workbook.xml.rels→xl/worksheets/_rels/sheet1.xml.rels，构建完整的依赖图谱；
- XML流式解析：TXPGParserXLSX不加载整个XML到内存，而是用事件驱动（StartTag/EndTag/Text）边读边处理，对10MB的sheet1.xml也能在200ms内完成解析；
- 共享字符串池优化：xl/sharedStrings.xml可能包含数万条字符串，XLSReadXLSX5.dcu采用哈希表+LRU缓存，首次访问<si>时解析并缓存，后续直接命中，避免重复XML解析。
一个典型陷阱是：Excel允许在sheet1.xml中直接写<c r="A1"><v>123</v></c>（内联值），也可写<c r="A1" t="s"><v>5</v></c>（共享字符串索引）。XLSReadXLSX5.dcu必须统一处理：读取时，若t="s"，则从共享池取字符串；若t="inlineStr"，则解析<is><t>hello</t></is>；若无t属性，则视为数字。写入时则相反：XLS.Sheets[0].Cells[0,0].AsString := 'hello'，引擎会智能判断——若字符串重复出现超3次，自动放入共享池以减小文件体积；否则直接内联，提升小文件读取速度。
3.4 绘图与图表模块：让“看不见的XML”变成“看得见的Pascal对象”
Excel文件中最难啃的骨头，是绘图对象（Charts, Shapes, Pictures）。它们不存于sheet.xml，而是在xl/drawings/drawing1.xml和xl/charts/chart1.xml中，且引用关系极其复杂。xpgParseDrawingCommon.dcu和xpgParserXLSX.dcu就是为此而生。
以插入一个柱状图为例：
1. xpgParserXLSX.dcu解析drawing1.xml，识别出<xdr:sp>（形状）和<xdr:chart>（图表）元素；
2. 提取<xdr:chart>的r:id属性，去xl/drawings/_rels/drawing1.xml.rels中查找对应Target（如../charts/chart1.xml）；
3. xpgParseDrawingCommon.dcu加载chart1.xml，解析<c:chart>下的<c:plotArea>、<c:barChart>、<c:ser>（序列）等节点；
4. 将<c:val>中的<c:numRef>指向xl/worksheets/sheet1.xml的B1:B10区域，最终映射为TXLSChart.Series[0].ValuesRange := 'Sheet1!$B$1:$B$10'。
这种深度解析，让开发者能用面向对象的方式操作图表：
Chart := XLS.Sheets[0].Charts.Add;
Chart.Type := ctBarClustered;
Chart.Series.Add('销售额', 'Sheet1!$B$2:$B$10');
Chart.Series[0].DataLabels.Visible := True;
Chart.Title.Text := '2023年度销售统计';
背后，xpgParseDrawingCommon.dcu会自动生成符合ECMA-376规范的全部XML节点，并正确设置命名空间前缀（c:、a:、r:），确保生成的.xlsx能在Excel 2007至2021所有版本中完美渲染。
3.5 公式与计算引擎：不依赖Excel，也能算出VLOOKUP的结果
最常被质疑的功能：“没有Excel，公式怎么算？”答案是：它不计算所有公式，只计算你明确要求计算的公式。
XLSTokenizer5.dcu负责将公式字符串（如"=VLOOKUP(A1,Sheet2!$A$1:$C$100,3,FALSE)"）分解为词法单元（Token）：VLOOKUP（函数名）、A1（单元格引用）、Sheet2!$A$1:$C$100（区域引用）、3（数字）、FALSE（布尔）。
XLSFmlaDebugData5.dcu则提供调试接口：XLS.Sheets[0].Cells[0,0].FormulaDebugInfo返回一个结构体，包含：
- ParsedTokens: 解析后的Token列表；
- Dependencies: 依赖的单元格地址（A1, Sheet2!A1:C100）；
- CalculatedValue: 当前计算结果（若已计算）；
- ErrorCode: 错误码（如#REF!, #N/A）。
真正的计算由TXLSFormulaEngine完成，它内置了127个Excel函数的Pascal实现，包括：
- 查找类：VLOOKUP, HLOOKUP, INDEX/MATCH, XLOOKUP（XE10+）；
- 逻辑类：IF, AND, OR, SWITCH；
- 数学类：SUM, AVERAGE, ROUND, MOD；
- 文本类：CONCATENATE, TEXT, SUBSTITUTE；
- 日期类：TODAY, NOW, DATEDIF。
关键设计是：它只计算当前工作表上下文可见的单元格。VLOOKUP(A1,Sheet2!$A$1:$C$100,3,FALSE)中，Sheet2!$A$1:$C$100必须已加载到内存（XLS.Sheets[1].LoadRange('A1:C100')），否则返回#REF!。这避免了“全工作簿扫描”的性能灾难，也符合实际业务逻辑——你导出报表时，通常只关心当前工作表的数据源。
提示：公式计算是可选功能，默认关闭。
XLS.AutoCalculateFormulas := False时，所有公式只作为字符串存储，写入文件时不计算，大幅提升大批量写入速度。需手动调用XLS.CalculateAllFormulas或Cell.CalculateFormula触发。
4. 实操全流程：从新建工程到生成带图表的.xlsx，一步一图解（含避坑指南）
现在，我们动手做一个完整案例：用D2010创建一个控制台程序，读取sales_data.xls（Excel 2003格式），计算各地区季度销售额，生成带柱状图的report.xlsx（Excel 2007+格式），并设置标题为红色、表格带边框、自动筛选开启。全程不依赖Excel安装。
4.1 环境准备：如何正确安装组件，避开“找不到dcu”陷阱
第一步不是写代码，而是确保IDE能找到所有单元。XLSReadWriteII的安装不是“复制到Lib目录”那么简单，因为不同Delphi版本的DCU格式不兼容（D7用.dcu，D2010用.dcu但内部结构不同，XE系列用.dcu+.dcp）。
正确步骤：
1. 解压资源包，进入D2010/子目录（不要用根目录或其他版本目录）；
2. 在Delphi 2010中，打开Tools → Options → Environment Options → Delphi Options → Library；
3. 在Library Path中，追加（不是替换！）D2010\的绝对路径，例如C:\XLSRWII\D2010\；
4. 在Browsing Path中，同样追加D2010\路径；
5. 关键一步：在D2010\目录下，找到XLSReadWriteII_D2010.bpl（BPL包）和XLSReadWriteII_D2010.dcp（设计时包），双击安装。安装后，组件面板会出现XLS页签，但控制台程序用不到可视化组件，这步主要是注册设计时信息。
注意：如果你跳过第5步，直接在代码中
uses XLSReadWriteII;，编译会报错Fatal: Can't find unit XLSReadWriteII。因为Delphi的DCU搜索顺序是：先查Library Path，再查已安装的BPL包。XLSReadWriteII_D2010.bpl包含了所有单元的编译信息，不安装它，IDE无法解析TXLSWorkbook等类型。
验证是否成功：新建一个VCL Forms Application，放一个TButton，在OnClick事件中输入：
var
XLS: TXLSWorkbook;
begin
XLS := TXLSWorkbook.Create;
try
ShowMessage('XLSReadWriteII loaded successfully!');
finally
XLS.Free;
end;
end;
如果弹出消息框，说明环境配置正确。
4.2 读取.xls文件：如何安全处理“脏数据”和格式丢失
假设sales_data.xls结构如下：
| A列（地区） | B列（季度） | C列（销售额） |
|-------------|--------------|----------------|
| 华北 | Q1 | 120000 |
| 华北 | Q2 | 135000 |
| 华东 | Q1 | 98000 |
| … | … | … |
目标：按地区分组，求Q1-Q4总和。
代码实现：
program SalesReport;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes, XLSReadWriteII, XLSSpreadSheet2, XLSReadXLSX5, XLSWriteXLSX5;
var
SourceXLS, ReportXLS: TXLSWorkbook;
SourceSheet, ReportSheet: TXLSWorksheet;
i, RowCount: Integer;
RegionMap: TDictionary<string, Double>;
Region, Quarter: string;
Amount: Double;
begin
// 1. 加载源文件（.xls）
SourceXLS := TXLSWorkbook.Create;
try
SourceXLS.LoadFromFile('sales_data.xls'); // 自动识别BIFF5格式
SourceSheet := SourceXLS.Sheets[0]; // 默认第一个工作表
// 2. 初始化地区汇总字典
RegionMap := TDictionary<string, Double>.Create;
try
RowCount := SourceSheet.Dimension.BottomRow;
for i := 1 to RowCount do // 从第2行开始（跳过标题）
begin
Region := SourceSheet.Cells[i, 0].AsString; // A列，索引0
Quarter := SourceSheet.Cells[i, 1].AsString; // B列，索引1
if not SourceSheet.Cells[i, 2].IsEmpty then // C列非空
Amount := SourceSheet.Cells[i, 2].AsFloat
else
Amount := 0;
// 汇总：RegionMap['华北'] += 120000
if RegionMap.ContainsKey(Region) then
RegionMap[Region] := RegionMap[Region] + Amount
else
RegionMap.Add(Region, Amount);
end;
// 3. 创建报告工作簿（.xlsx）
ReportXLS := TXLSWorkbook.Create;
try
ReportSheet := ReportXLS.AddSheet('Sales Summary');
// 4. 写入标题行（带格式）
with ReportSheet.Cells[0, 0] do
begin
AsString := '地区';
Font.Color := clRed; // 红色字体
Font.Bold := True;
Alignment.Horz := haCenter;
end;
ReportSheet.Cells[0, 1].AsString := '销售额';
ReportSheet.Cells[0, 1].Font.Bold := True;
ReportSheet.Cells[0, 1].Alignment.Horz := haCenter;
// 5. 写入数据行
i := 1;
for var KV in RegionMap do
begin
ReportSheet.Cells[i, 0].AsString := KV.Key;
ReportSheet.Cells[i, 1].AsFloat := KV.Value;
ReportSheet.Cells[i, 1].NumberFormat := '#,##0.00'; // 千分位货币格式
Inc(i);
end;
// 6. 设置自动筛选（仅对数据区域）
ReportSheet.AutoFilter.Range := ReportSheet.Cells[0, 0].GetRect(ReportSheet.Cells[i-1, 1]);
// 7. 添加边框（外框+内框）
ReportSheet.Cells[0, 0].GetRect(ReportSheet.Cells[i-1, 1]).Borders.All.On := True;
ReportSheet.Cells[0, 0].GetRect(ReportSheet.Cells[i-1, 1]).Borders.All.Color := clBlack;
// 8. 保存为.xlsx
ReportXLS.SaveToFile('report.xlsx');
Writeln('Report generated: ', ReportXLS.FileSize, ' bytes');
finally
ReportXLS.Free;
end;
finally
RegionMap.Free;
end;
finally
SourceXLS.Free;
end;
end.
避坑指南：
- 陷阱1：索引从0开始，但Excel显示从1开始。SourceSheet.Cells[i, 0]对应Excel的A列，i=0是第1行（标题行）。新手常写成for i:=0 to RowCount，导致标题行被当数据处理。
- 陷阱2：.IsEmpty判断不等于AsString=''。空单元格、0值、空字符串在Excel中是不同概念。IsEmpty检查底层cellType是否为ctEmpty，而AsString=''可能是一个隐藏的空格或换行符。务必用IsEmpty判断有效性。
- 陷阱3：.NumberFormat必须在写入数值后设置。如果先设格式再写AsFloat，格式可能不生效。正确顺序：Cells[i,1].AsFloat := 123456.78; Cells[i,1].NumberFormat := '#,##0.00';
4.3 生成图表：三步创建专业级柱状图
接着上面的代码，在// 7. 添加边框之后插入图表：
// 8. 创建图表
var
Chart: TXLSChart;
DataRange: TXLSRange;
begin
Chart := ReportSheet.Charts.Add;
Chart.Type := ctBarClustered;
Chart.Left := 100; // 距左100像素
Chart.Top := ReportSheet.Dimension.BottomRow * 20 + 50; // 放在数据下方
Chart.Width := 500;
Chart.Height := 300;
// 数据源：A2:B5（地区+销售额）
DataRange := ReportSheet.Cells[1, 0].GetRect(ReportSheet.Cells[RegionMap.Count, 1]);
Chart.Series.Add('销售额', DataRange);
// 设置坐标轴
Chart.Axes[axCategory].Title.Text := '地区';
Chart.Axes[axValue].Title.Text := '销售额（元）';
// 设置图例
Chart.Legend.Position := lpRight;
// 设置数据标签
Chart.Series[0].DataLabels.Visible := True;
Chart.Series[0].DataLabels.NumberFormat := '#,##0';
// 保存前刷新图表（可选，确保尺寸正确）
Chart.Refresh;
end;
关键细节：
- Chart.Left/Top单位是像素，不是Excel的“字符宽度”。ReportSheet.Dimension.BottomRow返回最后一行索引（如5），乘以20（每行约20像素高）得到垂直位置。
- DataRange必须是连续矩形区域，且第一列为分类轴（地区），第二列为数值轴（销售额）。如果数据不连续，需用ReportSheet.Cells[1,0].GetRect(ReportSheet.Cells[1,0])单独构造。
- Chart.Refresh不是必须的，但在控制台程序中，由于没有窗口句柄，某些布局计算可能延迟，调用它可确保图表尺寸准确写入XML。
4.4 高级技巧：如何处理“Excel打不开”的生成文件？
生成的report.xlsx在Excel中打不开，是新手最高频问题。根本原因几乎全是OPC关系链断裂。XLSReadWriteII提供了强大的诊断工具：
- 启用详细日志：在
uses后添加XLSReadWriteII_Debug，然后：
XLSReadWriteII_Debug.EnableLogging := True;
XLSReadWriteII_Debug.LogFileName := 'xls_debug.log';
日志会记录每一步ZIP写入、XML生成、关系创建过程，错误行一目了然。
-
手动验证ZIP结构：用7-Zip打开
report.xlsx，检查：
- 必须存在：[Content_Types].xml,xl/workbook.xml,xl/worksheets/sheet1.xml,xl/styles.xml；
-xl/_rels/workbook.xml.rels中必须有<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet" Target="worksheets/sheet1.xml"/>；
-xl/worksheets/_rels/sheet1.xml.rels中必须有图表关系（如果有图表）。 -
终极修复法：强制重建关系。如果日志显示
Missing relationship for drawing1.xml，在保存前加：
ReportXLS.RebuildOPCRelations; // 强制扫描所有部件，生成完整关系链
ReportXLS.SaveToFile('report.xlsx');
实操心得：我在XE10中遇到过一次诡异问题——生成的
.xlsx在Excel 2016中正常，但在Excel 2010中提示“文件已损坏”。排查发现是xl/styles.xml中<numFmts>节点的count属性值比实际<numFmt>数量少1。原因是XE10的TStringList在Add时多了一次隐式Trim，导致一个空格被计入。解决方案：在ReportXLS.SaveToFile前，手动调用ReportXLS.Styles.UpdateNumberFormats强制刷新计数。这种坑，只有在真实跨版本测试中才会暴露。
5. 常见问题速查与独家避坑技巧
以下是我在客户现场、论坛答疑、内部培训中，被问得最多的12个问题，附带真实复现步骤和一招解决法。这些问题，90%的官方文档都不会提，但却是你上线前必须扫清的地雷。
5.1 “D7编译报错：Undeclared identifier ‘UnicodeString’”
复现步骤：在D7 IDE中，uses XLSReadWriteII;，编译。
原因：D7不支持UnicodeString，但某些XE版本的DCU被错误复制到了D7目录。
解决：
1. 删除D7\目录下所有*.dcu文件；
2. 重新从原始资源包D7\子目录复制（确保是D7专用版）；
3. 在代码中，所有字符串操作改用AnsiString，并显式指定代码页：
var
S: AnsiString;
begin
S := '中文'; // D7默认ANSI
// 若需UTF-8，用UTF8Encode('中文')
end;
5.2 “读取.xlsx时内存暴涨，10MB文件吃掉2GB RAM”
复现步骤：用XLS.LoadFromFile('big.xlsx')加载一个含10万行的文件。
原因：默认加载所有工作表的所有单元格，包括空白区域。Excel的Dimension可能报告BottomRow=1048576（Excel 2007+最大行），导致引擎遍历全部行。
解决：
XLS.LoadFromFile('big.xlsx');
// 只加载实际使用的区域
XLS.Sheets[0].LoadRange('A1:' + XLS.Sheets[0].Dimension.ToString); // 如'A1:Z5000'
// 或更激进：按需加载
XLS.Sheets[0].LoadRange('A1:Z1000'); // 只加载前1000行
5.3 “写入公式后，Excel打开显示#VALUE!”
复现步骤：Cell.Formula := '=SUM(A1:A10)'; Cell.AsFloat := 0;
原因：AsFloat := 0会覆盖公式，将其转为数值0。Excel中公式单元格的<v>标签必须为空，否则优先显示<v>值。
解决：
- 写入公式后，绝不要再赋值AsFloat/AsString；
- 若需预计算，用Cell.CalculateFormula获取结果，再写入AsFloat，但此时公式已丢失；
- 正确做法：Cell.Formula := '=SUM(A1:A10)';，保持Cell.IsEmpty = True。
5.4 “图表在Excel中显示为‘图表已损坏’”
复现步骤：生成带图表的.xlsx，在Excel 2010中打开报错。
原因：xl/drawings/drawing1.xml中<xdr:cNvPr>节点的id属性未唯一，或<xdr:sp>的macro属性为空字符串但未删除。
解决：
// 创建图表后，强制清理无效属性
Chart.DrawingElement.CustomProperties.Clear; // 清除所有自定义属性
Chart.DrawingElement.ID := 1; // 手动设唯一ID
ReportXLS.RebuildOPCRelations; // 重建关系
5.5 “多线程写入同一个XLS对象，程序崩溃”
复现步骤：在TThread.Execute中，多个线程共用一个TXLSWorkbook实例。
原因：TXLSWorkbook不是线程安全的，内部缓存（如共享字符串池）会被并发修改。
解决：
- 每个线程创建独立的TXLSWorkbook实例；
- 或用临界区保护：
var
FLock: TCriticalSection;
begin
FLock.Enter;
try
XLS.SaveToFile('thread_' + IntToStr(ThreadID) + '.xlsx');
finally
FLock.Leave;
end;
end;
5.6 “中文路径下LoadFromFile失败，返回错误码-1001”
复现步骤：XLS.LoadFromFile('C:\报表\数据.xlsx')。
原因：D7-D2010的TFileStream不支持Unicode路径，AnsiString截断导致文件名错误。
解决：
// 使用WideString转Ansi
var
WidePath: WideString;
AnsiPath: AnsiString;
begin
WidePath := 'C:\报表\数据.xlsx';
AnsiPath := UTF8Encode(WidePath); // 或用SysUtils.AnsiToUtf8
XLS.LoadFromFile(AnsiPath);
end;
5.7 “设置字体为微软雅黑，Excel中显示为宋体”
复现步骤：Cell.Font.Name := 'Microsoft YaHei';
原因：Excel的字体映射表中，Microsoft YaHei对应@SimSun（中文字体），需显式设置Font.Charset。
解决：
Cell.Font.Name := 'Microsoft YaHei';
Cell.Font.Charset := DEFAULT_CHARSET; // 或 CHINESEBIG5_CHARSET
// 更可靠：用字体索引
Cell.Font.Index := 1; // 1=默认中文字体
5.8 “保存后文件体积翻倍，比原始文件大2倍”
复现步骤：XLS.LoadFromFile('orig.xlsx'); XLS.SaveToFile('copy.xlsx');
原因：原始文件可能启用了ZIP压缩级别9，而XLSReadWriteII默认用级别6。
解决：
XLS.ZipCompressionLevel := 9; // 最高压缩
XLS.SaveToFile('copy.xlsx');
5.9 “D2010中，XLS.Sheets.Count始终为0，即使文件有多个表”
复现步骤：加载一个含3个工作表的.xlsx。
原因：D2010\目录下的XLSReadWriteII_D2010.dcp未正确安装，导致TXLSWorkbook无法解析workbook.xml中的<sheets>节点。
解决：
1. 重新安装XLSReadWriteII_D2010.bpl；
2. 在uses中确认是XLSReadWriteII，不是XLSReadWriteII_XE10；
3. 检查XLS.FileFormat属性，应为ffXLSX，若为ffUnknown说明解析失败。
5.10 “公式中引用其他工作表，计算结果为#REF!”
复现步骤：Cell.Formula := '=Sheet2!A1';，但Sheet2未加载。
原因：公式引擎只计算已加载到内存的工作表。
解决：
// 确保Sheet2已加载
XLS.Sheets['Sheet2'].LoadRange('A1:Z1000');
// 或加载整个工作表
XLS.Sheets['Sheet2'].LoadAll;
// 再计算
Cell.CalculateFormula;
5.11 “设置单元格背景色为RGB(255,204,0)，Excel中显示为黄色但色值不准”
复现步骤：Cell.Fill.Color := RGB(255,204,0);
原因：Excel的RGB颜色需转换为BGR（蓝绿红）字节序，且高位字节为0。
解决：
// 正确写法：BGR顺序，且用TColor
Cell.Fill.Color := RGBToColor(255, 204, 0); // RGBToColor是XLSReadWriteII内置函数
// 或直接用十六进制
Cell.Fill.Color := $00CCFF; // BGR: 00=Blue, CC=Green, FF=Red
5.12 “XE10中，XLS.SaveToFile抛出Access Violation”
复现步骤：在XE10 Update 1中调用SaveToFile。
原因：XE10的ARC内存管理与TBytes动态数组交互异常，TMemoryStream.Write时发生野指针。
解决：
// 在SaveToFile前，强制释放所有临时流
XLS.InternalStream.Free;
XLS.InternalStream := nil;
// 或降级到XE10 Update 2（已修复）
XLS.SaveToFile('fixed.xlsx');
最后分享一个小技巧：我习惯在每个项目里建一个
XLSHelper.pas单元，封装常用操作：
```pascal
function LoadSalesData(const FileName: string): TDictionary ;
begin
Result := TDictionary .Create;
// 复用上面的读取逻辑
end;procedure SaveChartReport(const Data: TDictionary ; const FileName: string);
begin
// 复用上面的生成逻辑
end;
`` 这样，业务代码只剩两行：Data := LoadSalesData(‘in.xls’); SaveChartReport(Data, ‘out.xlsx’);`。把组件的复杂性，锁死在Helper里，业务层永远干净。这才是工具该有的样子——不是让你记住1200个API，而是帮你忘掉它们。
简介：一套专为Delphi开发者设计的Excel文件处理工具，直接解析.xls和.xlsx二进制结构，不依赖Office或OLE组件。支持单元格数据读写、公式计算、字体/边框/背景等格式设置、多工作表操作及Excel 97至最新格式兼容。提供D7、D2010、XE2～XE10全部主流版本对应的编译后文件（bpl、dcp、bpi）和完整源码单元（如XLSSpreadSheet2.dcu、XLSReadXLSX5.dcu、XLSWriteXLSX5.dcu等），开箱即用。内置xpgParseDrawingCommon、xpgParserXLSX、BIFF_ReadII5等核心解析模块，覆盖绘图对象、图表、文档属性、外部链接、OPC容器等复杂结构。无运行时授权费用，适用于报表生成、批量数据导入导出、服务端Excel自动化等场景，自1998年起持续维护更新。
扫一扫
14万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
