R 将多个excel文件中的多张图纸合并到一个数据框中

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

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

单元格D1、D4和D7需要在活页1上拉动，同时在活页2上拉动B4-F6（矩形）

到目前为止，我可以识别正确的文件夹，也可以提取我需要的数据，但是这一次只针对一个命名文件

我无法同时在多个工作簿的多个工作表中使用read_xlsx

谢谢你的建议

下面是我正在使用的一些代码（未成功）

以下命令将查找该文件夹

---

file.list当您可以指定正在使用的软件包时，它会很有帮助。我假设
read\u excel
来自
readxl
？你的
*应用
功能的“混合成功”是什么？如果您已经在使用
readxl
，我猜您也可以放心地使用其他一些tidyverse软件包—我可能会尝试使用一个工作表编号列表和一个范围列表，然后使用
purr:：map2
混合成功与*apply或者一次从一个工作表生成一列所有数据，或者将每个数据列在一起，但仍然是垂直的（我希望从垂直切换到水平）。软件包有tidyr、xlsx和readxl，但可以下载任何内容。我不确定我是否需要更多，因为readxl应该读和写，这正是我真正想要做的。当您可以指定正在使用的软件包时，这会很有帮助。我假设
read\u excel
来自
readxl
？你的
*应用
功能的“混合成功”是什么？如果您已经在使用
readxl
，我猜您也可以放心地使用其他一些tidyverse软件包—我可能会尝试使用一个工作表编号列表和一个范围列表，然后使用
purr:：map2
混合成功与*apply或者一次从一个工作表生成一列所有数据，或者将每个数据列在一起，但仍然是垂直的（我希望从垂直切换到水平）。软件包有tidyr、xlsx和readxl，但可以下载任何内容。我不确定我是否需要更多，因为readxl应该读写，这是我真正想做的。
file.list <- list.files(path="FILE PATH", pattern="*.xlsx", full.names=TRUE, recursive=FALSE)

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")