Anther option is to use purrr::map_dfr()
library(tidyverse)
library(openxlsx)
list_of_files <- list.files(path = "path/to/your/files",
pattern = "\\.xlsx$",
full.names = TRUE)
df <- list_of_files %>%
set_names() %>%
map_dfr(read.xlsx, .id = "file_name")