R XLConnect樣式不持久

Question

嘗試使用數據格式化/設置現有的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

Answer 1

我認為您是想設置填充前景色而不是填充背景色。 通常只需setFillPattern背景色與非實心填充圖案結合使用（請參閱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 。