如何使用 R 中的 openxlsx 将 Excel 工作表从一个工作簿移动到另一个工作簿？

Question

我试图从 3 个单独的 Excel 文件中获取输入，在 R 中对它们进行一些处理，然后将所有三个 Excel 文件以及我的计算作为单个 Excel 文件返回。显然，这可以手动完成（这样可能更安全），但如果可能的话，我想将其自动化。

我一直在使用 openxlsx 包，它非常适合在单个工作簿中阅读，然后附加我在 R 中完成的工作，但我不知道如何将工作表从一个工作簿对象移动到另一个工作簿对象。我试过：

 wb1 <- loadWorkbook("hi.xlsx")
 wb2 <- loadWorkbook("bye.xlsx")
 wb2[[2]] <- wb1[[1]]

还有其他一些事情，但似乎没有任何效果。我注意到：

 names(wb1)

将在 wb1 中给出工作表的名称，但似乎没有办法移动工作表。有任何想法吗？

提前致谢！

编辑：对不起 - 我应该更清楚。我想在工作表中读取其所有原始格式并将其写入新文件。使用 read.xlsx 会丢失所有格式。

Answer 1

使用该xlsx包：

library(xlsx)
wb1 <- read.xlsx("Workbook1.xlsx", sheetIndex = 1)
wb2 <- read.xlsx("Workbook2.xlsx", sheetIndex = 1)
write.xlsx(wb1, "Workbook Joined.xlsx")
write.xlsx(wb2, "Workbook Joined.xlsx", sheetName = "Sheet2", append = T)