使用 openxlsx R 将不同工作簿中的 Append 工作表合并到一个工作簿中（保持格式）

Question

我有不同的 openxlsx 工作簿，比如说 wb1、wb2 和 wb3，每个工作簿都有不同格式的工作表。 我需要一些方法来 append 同一工作簿中的所有工作表，请注意，制作一个工作簿并从一开始就添加每个工作表对我来说不是一个选项，因为我需要单独的 each.xlsx 文件，然后是一个包含所有文件的大文件工作表（保持格式）。

如果您知道如何从不同的 wbs 中克隆工作表，那也可以解决问题。

提前致谢！

Answer 1

尝试这个：

library(openxlsx)
library(xlsx)
library(readxl)
library(purrr)

假设您创建了两个工作簿，每个工作簿都有多个工作表：

我正在使用openxlsx和xlsx包中的示例工作簿

列出我使用示例测试 xlsx 文件的工作簿文件路径，实际上您只需使用your_wb <- "path_to_your_file.xlsx"

# sample workbooks
wb1 <- system.file("extdata", "readTest.xlsx", package = "openxlsx")
wb2 <- system.file("tests", "test_import.xlsx", package = "xlsx")

# vector of workbook paths
wbs <- c(wb1, wb2)

# read worksheet names from both workbooks into a list which becomes the contents of your "cloned" or "big" workbook
sh_nm <- map(wbs, excel_sheets)

# number of sheets in each workbook
sh_nr <- unlist(map(sh_nm, length))

# list of workbook names to match the number of sheets respectively for each workbook
wb_list <- rep(wbs, sh_nr)

# list of all sheet names
sh_list <- unlist(sh_nm)

# combine data from all worksheets and give each list element a unique name
sh_all <- 
  map2(wb_list, sh_list, ~openxlsx::read.xlsx(.x, sheet = .y)) %>% 
  set_names(paste(rep(c("wb1", "wb2"), sh_nr), sh_list, sep = "_")) 

#save data, openxlsx automatically places each list element into a separate worksheet with the list element name as the worksheet name.
openxlsx::write.xlsx(sh_all, "wb_all.xlsx")

^{由代表 package (v0.3.0) 于 2020 年 7 月 10 日创建}