1

我正在使用 R 中的“xlsx”包来读取、修改和写入 .xlsm 文件。

我的行和列的边框样式存在一些问题：

我将数据框 (df) 添加到工作表中，并将一些样式应用于第一列 (colnamesStyle) 和第一行 (rownamesStyle)。

TABLE_ROWNAMES_STYLE <- CellStyle(wb) + Font(wb, heightInPoints = 8, name = "Arial", isBold=TRUE) + Border(position = "RIGHT", pen = "BORDER_THICK")
TABLE_COLNAMES_STYLE <- CellStyle(wb) + Font(wb, heightInPoints = 8, name = "Arial", isBold=TRUE) 


addDataFrame(df, sheet, startRow=1, startColumn=1, colnamesStyle = TABLE_COLNAMES_STYLE,rownamesStyle = TABLE_ROWNAMES_STYLE)

这行得通。

但是我现在想做另外两件事：

  • 将 RIGHT 'BORDER_THIN' 应用于工作表中的所有列
  • 将 BOTTOM 'BORDER_THICK' 应用于工作表中的选定行

我试图通过定义 COL_STYLE 来解决的第一个问题：

COL_STYLE = CellStyle(wb) + Font(wb, heightInPoints = 8, name = "Arial") + Border(position = "RIGHT", pen = "BORDER_THIN")

并将其添加到我的 addDataFrame 行：

addDataFrame(df, sheet, startRow=1, startColumn=1, colnamesStyle = TABLE_COLNAMES_STYLE, rownamesStyle = TABLE_ROWNAMES_STYLE, colStyle = COL_STYLE)

但这不起作用。

对于我定义的第二个问题：

rows_border <- c(16,23,30)

哪些行需要具有 BOTTOM BORDER_THICK。但我不知道如何将该样式添加到这些特定行？

4

0 回答 0