openxlsx 使用与我的普通 Excel 应用程序不同的表格样式

Question

我想创建一个包含具有特定格式的表格的 excel 文件。我使用了openxlsx-package 并在另一个 excel 文件中查找了我想要使用的表格样式的名称。保存新文件后，表格样式与我预期的不同。此外，该文档中的所有表格样式都与我通常拥有的不同（顺序不同且颜色略有不同），并且无法将其更改为我想要使用的样式。

有人可以解释差异来自哪里以及如何使用正常的表格样式吗？我正在使用 Excel 2016。

创建表格的示例代码：

library(openxlsx)
df <- data.frame(V1 = 1:2, V2 = letters[1:2])

wb <- createWorkbook()
addWorksheet(wb, 1)
writeDataTable(wb, 1, x = df, tableStyle = "TableStyleMedium7")

saveWorkbook(wb, file = "test.xlsx", overwrite = TRUE)

我的普通表格样式：

openxlsx 表格样式：

Answer 1

如果从头开始创建新工作簿，openxlsx 会将默认颜色设置为 Office 2007-2010。

您可以在创建 Excel 工作表后通过单击功能区（页面布局->颜色->Office）手动更改颜色。

对于定期运行的工作簿，不要创建新文件，而是拉入您已设置所需默认颜色的模板。下面我打开了一个新的excel，用默认的现代颜色保存并用作模板：

library(openxlsx)

Data <- data.frame(
    X = sample(1:100),
    Y = sample(c("YES", "NO"), 10, replace = TRUE)
    )

#Save sheet to Excel
  # Load template
    wb <- loadWorkbook("blank_template.xlsx")
  # Add data to worksheet & write as table
     addWorksheet(wb, "rawdata")
     writeDataTable(wb, "rawdata", Data, tableStyle = "TablestyleMedium6")   
  # Remove the blank sheet from the template
     removeWorksheet(wb, "Sheet1")
  # Save workbook
     saveWorkbook(wb, file = paste0("output_file.xlsx"))

我已保存此模板并将其提取到多个运行报告中，因为人们可能会对旧颜色感到有趣。我保存了一个功能，可以删除空白表并保存文件以节省我的时间，但取决于您运行工作簿的频率，如何权衡效率取决于您。