You can break this task up into a few elements. The first is the retrieval of the files. Secondly, the reading of files. Finally, merging them.
library(readxl)
library(dplyr)
library(tidyr)
Data_Files <- data.frame(excel_path =list.files(full.names=TRUE,pattern = ".xlsx$",
path=getwd())) # Find the files in your working directory/path
Data_Files <- Data_Files %>%
mutate(excel_files = lapply(excel_path, read_xlsx)) %>% # Read Each xlsx file.
unnest(excel_files) # Expand the list of excel files by binding rows.