无需特定标题即可从基于Excel电子表格的文件夹中合并多个Excel文件

Question

我是R的新手。我要将不同的文件夹中的多个Excel文件提取为一个文件。所有文件在第2行中都包含相同的标题，但有些文件具有额外的标题（层次结构）。我只想取出并合并所有不包含Hierarchy标题的电子表格。

在R中有一种简单的方法吗？

非常感谢您的帮助！

Answer 1

这是一个入门，但是在导入之后，您需要筛选出错误的工作表，但由于条件不够明确，我无法这样做。

library(readxl)
library(data.table)
# Import single sheets for all excel files, which are found in the working directory
import.xlsx <- data.table(read_xlsx(path = list.files(path = ".", pattern = "\\.xlsx$")))

# Import all sheets in an Excel workbook
sheet_list <- lapply(excel_sheets( list.files(path = ".", pattern = "\\.xlsx$")), read_excel, path= list.files(path = ".", pattern = "\\.xlsx$"))