Progress 4GL导出CSV文件时如何为特定值设置字体颜色？

首先明确核心前提：CSV是纯文本格式，本身不支持嵌入字体颜色、单元格样式等富文本格式规则，你现有的纯CSV导出逻辑不可能实现样式自定义需求，有三种可行方案可选：

方案1：保留CSV导出，后续通过Excel二次处理样式 #

如果必须输出CSV格式，你可以先按现有逻辑导出纯数据CSV，之后在打开CSV的Excel文件中编写条件格式规则实现样式修改，或者通过Progress调用Excel COM接口读取生成的CSV后批量设置样式。

你原有导出CSV的代码可以正常使用，无需调整：

DEFINE TEMP-TABLE tt_data NO-UNDO
  FIELD cData1 AS CHARACTER
  FIELD cData2 AS CHARACTER
.
CREATE tt_data.
ASSIGN
    cData1 = "FORD"
    cData2 = "TATA"
.

OUTPUT TO "C:\temp\test.csv".

FOR EACH tt_data NO-LOCK:
  EXPORT DELIMITER "," tt_data.
END.

OUTPUT CLOSE.

方案2：导出为可识别样式的HTML格式（存为.xls后缀，Excel可直接打开） #

这是Progress 4GL中低成本实现带样式导出的常用方案，你可以直接输出带CSS样式的HTML表格代码，文件后缀命名为.xls，Excel打开时会自动解析样式，示例代码如下：

DEFINE TEMP-TABLE tt_data NO-UNDO
  FIELD cData1 AS CHARACTER
  FIELD cData2 AS CHARACTER
.
CREATE tt_data.
ASSIGN
    cData1 = "FORD"
    cData2 = "TATA"
.
/* 输出带样式的HTML格式，存为xls后缀 */
OUTPUT TO "C:\temp\test_styled.xls".
/* 写入HTML头部和样式定义 */
PUT UNFORMATTED '<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40">'.
PUT UNFORMATTED '<head> <meta http-equiv=Content-Type content="text/html; charset=utf-8"> <style>'.
/* 通用单元格样式 */
PUT UNFORMATTED 'td {font-family: 宋体; font-size: 12px; border: 1px solid #ccc;}'.
/* 自定义样式：cData1值为FORD时红色加粗字体 */
PUT UNFORMATTED '.ford-red {color: red; font-weight: bold;}'.
/* 自定义样式：cData2值为TATA时黄色背景 */
PUT UNFORMATTED '.tata-yellow {background-color: #FFFF00;}'.
PUT UNFORMATTED '</style> </head> <body> <table>'.
/* 写入表头 */
PUT UNFORMATTED '<tr><th>数据列1</th><th>数据列2</th></tr>'.
/* 遍历临时表输出行，根据值判断添加样式 */
FOR EACH tt_data NO-LOCK:
  PUT UNFORMATTED '<tr>' SKIP.
  /* 处理cData1，值为FORD时用红色加粗样式 */
  IF tt_data.cData1 = "FORD" THEN
    PUT UNFORMATTED '<td class="ford-red">' tt_data.cData1 '</td>'
  ELSE
    PUT UNFORMATTED '<td>' tt_data.cData1 '</td>'.
  /* 处理cData2，值为TATA时用黄色背景样式 */
  IF tt_data.cData2 = "TATA" THEN
    PUT UNFORMATTED '<td class="tata-yellow">' tt_data.cData2 '</td>'
  ELSE
    PUT UNFORMATTED '<td>' tt_data.cData2 '</td>'.
  PUT UNFORMATTED '</tr>' SKIP.
END.
/* 写入HTML尾部 */
PUT UNFORMATTED '</table> </body> </html>'.
OUTPUT CLOSE.

生成的test_styled.xls可以直接用Excel打开，对应值的样式会自动生效。

方案3：通过Excel COM接口直接操作单元格（仅Windows环境可用） #

如果需要生成标准的.xlsx格式且完全兼容Excel样式规则，你可以在Windows环境下调用Excel COM对象实现，不过性能比方案2低，适合数据量小于1000行的场景。

内容的提问来源于stack exchange，提问作者Bharat