R XLConnect 样式不存在

【问题标题】：R XLConnect styling does not persistR XLConnect 样式不存在
【发布时间】：2017-12-28 18:21:25
【问题描述】：

我在尝试使用数据格式化/设置现有 Excel 文件的样式时遇到问题。我想更改数字单元格的格式，添加背景颜色和边框。

 require(XLConnect)
 wb <- loadWorkbook("example.xlsx", create = FALSE)
 cs <- createCellStyle(wb)
 setDataFormat(cs, format = "###,##0")
 setFillBackgroundColor(cs, color = XLC$"COLOR.YELLOW")
 setBorder(cs, side = "all", type = XLC$"BORDER.THIN",
           color = XLC$"COLOR.BLACK")
 setCellStyle(wb, sheet = "PSNB", row = 24, col = 3, cellstyle = cs)
 saveWorkbook(wb)

运行上述代码后，单元格没有背景颜色（黄色）并且数据格式保持不变。当我双击单元格时，我可以看到背景颜色变为黄色并出现逗号（例如：100,000）。

任何帮助将不胜感激！

我正在使用 XLConnect 0.2-13

【问题讨论】：

标签： r excel xlconnect

【解决方案1】：

我认为您更希望设置填充前景色而不是填充背景色。背景颜色通常只需要与非实心填充图案一起使用（请参阅setFillPattern）。

以下内容可能会满足您的需求：

require(XLConnect)
wb <- loadWorkbook("example.xlsx", create = FALSE)
cs <- createCellStyle(wb)
setDataFormat(cs, format = "###,##0")
setFillForegroundColor(cs, color = XLC$"COLOR.YELLOW")
setFillPattern(cs, fill = XLC$FILL.SOLID_FOREGROUND)
setBorder(cs, side = "all", type = XLC$"BORDER.THIN", 
          color = XLC$"COLOR.BLACK")
setCellStyle(wb, sheet = "PSNB", row = 24,col = 3, cellstyle = cs)
saveWorkbook(wb)

注意使用setFillForegroundColor 和setFillPattern 而不是setFillBackgroundColor。

【讨论】：