通过将多个 Excel 工作簿中的多个工作表合并到一个工作簿中。 R

Question

假设我有两个 Excel 工作簿（例如 A.xlsx 和 B.xlsx），每个工作簿都包含多个工作表（例如 A.xlsx 中的“a1”和“a2”；“b1”、“b2”和“b3” “在 B.xlsx 中）。请注意，这些工作表都有自己的条件格式、过滤、缩放和其他查看选项。

鉴于此设置，是否可以通过生成组合工作簿。 R（例如 C.xlsx）具有来自 A.xlsx 和 B.xlsx 的 5 个工作表（例如 C.xlsx 中的“a1”、“a2”、“b1”、“b2”和“b3”），此外还保留了所有原始条件格式、过滤、缩放和其他查看选项？感谢您的帮助！

Answer 1

我们可以在map2 中同时读取两个数据集。从“A.xlsx”和“B.xlsx”数据中获取工作表名称。使用工作表名称创建文件路径的命名向量，使用imap 循环遍历该向量，使用read_excel 读取工作表，在创建用于标识工作表名称的列后将它们绑定在一起，然后组合来自imap 的list 输出到单个list 和imap

library(purrr)
library(dplyr)
library(readxl)
library(openxlsx)

# // replace the path/to/your - actual path
fileA <- 'path/to/your/A.xlsx'
fileB <- 'path/to/your/B.xlsx'
nmA <- excel_sheets(path = fileA)
nmB <- excel_sheets(path = fileB)
nm1A <- setNames(rep(fileA, length(nmA)), nmA)
nm1B <- setNames(rep(fileB, length(nmB)), nmB)
lstC <- imap(c(nm1A, nm1B), ~ 
              read_excel(.x, sheet = .y) %>%
                  mutate(sheetname = .y))
names(lstC) <- c(nmA, nmB)
write.xlsx(lstC, '/path/to/your/C.xlsx')