将多个Excel文件中的多个工作表合并到一个数据框

Question

我想从一个工作簿中分布在两个工作表上的特定单元格中获取数据，将其写入新的“合并”电子表格中的一行中，然后针对该文件夹中的所有工作簿重复该操作。

我正在努力提取特定的单元格并将其写入一行。

单元格D1，D4和D7需要拉到工作表1上，同时还要拉动工作表2上的B4-F6（矩形）。

到目前为止，我可以识别正确的文件夹，也可以提取我需要的数据，但是一次仅适用于一个命名文件。

我无法做的是一次在多个工作簿的多个工作表之间使用read_xlsx。

感谢您的任何建议。

我在下面使用了一些代码（未成功）。

以下内容找到文件夹

file.list <- list.files(path="FILE PATH", pattern="*.xlsx", full.names=TRUE, recursive=FALSE)

以下我一次只能在一个笔记本上工作

理想情况下，我可以使用上述的“ file.list”。此外，我只能拉一个矩形，而不能拉三个特定的单元格，而不必重复三遍代码（如果那是我唯一的解决方案，这不是问题）

Info <- read_xlsx("FILE PATH", sheet = 1, range = "G6:G12",  col_names = FALSE,
col_types = "guess" ,  na = "", trim_ws = TRUE, skip = 0,
# n_max = Inf, guess_max = min(1000, n_max),
progress = readxl_progress(), .name_repair = "unique")

Amount <- read_xlsx("FILE PATH", sheet = 2, range = "D4:G6", col_names = FALSE,
col_types = "numeric" ,  na = "", trim_ws = TRUE, skip = 0,
# n_max = Inf, guess_max = min(1000, n_max),
progress = readxl_progress(), .name_repair = "unique")

我与lapply / sapply混合了成功