getwd()
setwd('C:/Users/libos/Documents/ArcGIS/scratch/2019/shp/100')
files=list.files(getwd(),full.names = T)
library(readxl)
a=readxl::read_excel(files[1])
show(a)
m=data.frame()
for (i in (2:length(files)))
{
  data=read_excel(files[i])
  data2=rbind(a,data)
}
疑惑：怎么修改才能使得合并rbind结果不再只有第一个数据和最后一个数据