r - 如何在 openxlsx 中合并工作簿

Question

我有几个非常特别格式化的 xlsx 文件，如果我将这些文件加载​​为数据框，则复制格式将非常费力。例如，同一列中的数据既是字符又是数字。我需要将这些工作簿合并为一个，其中每个文件都是一个选项卡。

如果我加载这些工作簿，我可以看到结构和样式。但似乎没有办法将多个工作簿对象写入文件。我已经看到一些提到使用getStyles()和addStyles()/replaceStyles()但没有具体的例子。

非常感谢在合并工作簿或复制整个工作表的样式方面的任何帮助。

fls <- c('/someplace/file1.xlsx','/someplace/file1.xlsx','/someplace/file1.xlsx')

wbs <- lapply(fls,function(x) openxlsx::loadWorkbook(x))

wb <- createWorkbook()

addWorksheet(wb, "test1") 

writeData(wb, sheet = 'test1', wbs[[1]]$worksheets[[1]], rowNames = TRUE)

标签： rexcelopenxlsx