library(readxl)
setwd('计算机内文件路径’)
getwd() #检查计算机文件夹工作空间路径是否设置正确
files=list.files(getwd(),full.name=T)#获取文件夹下所有文件的绝对路径
first=read_excel('files[1]) #读取文件夹下第一个文件
for (i in (2:length(files)){
readopen=read_excel(files[i])
readrbind=rbind(first,readopen)
}
write.table(readrbind,file='保存路径‘)