千位分隔符 – 使用XLConnect和R格式的excel单元格

我使用XLConnect将具有较大值的表导出为.xlsx。

有没有办法将结果写入具有激活千分隔符的Excel单元格中?

library(XLConnect) #example for a large value a <- 10000000000 wb <- loadWorkbook("sof_q.xlsx"), create = TRUE) cs <- createCellStyle(wb) setDataFormat(cs, format = "0.00") createSheet(wb, name = "a") writeWorksheet(wb,a,"a",startRow = 1, startCol = 1, header = TRUE) rc = expand.grid(row = 1:2, col = 1:2) setCellStyle(wb, sheet = "a", row = rc$row, col = rc$col, cellstyle = cs) setColumnWidth(wb, sheet = "a", column = 1:5, width = -1) saveWorkbook(wb) 

在Excel中, a应该看起来像这样

 10.000.000.000 

运用

 setDataFormat(cs, format = "0,000,000.00") 

可能会工作,但在较短的值的情况下,我有像

 0,032,666.29 

使用#代表数字占位符:

 setDataFormat(cs, format = "###,###.00") 

要么

 setDataFormat(cs, format = "###,##0")