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

Question

我有不同的 openxlsx 工作簿，比如说 wb1、wb2 和 wb3，每个工作簿都有不同格式的工作表。我需要一些方法将所有工作表附加到同一个工作簿中，请注意，制作一个工作簿并从头开始添加每个工作表对我来说不是一个选项，因为我需要单独的每个 .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")

^{由reprex package (v0.3.0) 于 2020-07-10 创建}