R合并多给格式一样的excel文件

getwd()
setwd('C:/Users/libos/Documents/ArcGIS/scratch/2019/shp/100')
files=list.files(getwd(),full.names = T)
flist = lapply(files, readxl::read_excel)
all_data = do.call('rbind', flist)

非常感谢你给我提供了新的代码思路。