关于R批量导入excel的方法

前言

同在德勤笔试的时候发现这个需求，之前处理数据的时候也遇到过，感觉是很实用的技能，特别研究一下码上来。
网页上简单搜索批量导入excel的方法，目前找到的只有这个链接：
https://www.cnblogs.com/lzllovesyl/p/5170032.html
文章分为三个部分：
1.链接中源代码，读取文件夹下所有子文件夹中的excel文件，并根据分类合并
2.稍加改动后的源代码，读取文件夹下所有子文件夹中的excel文件，切片后汇总
3.进一步改动，读取某文件夹下的所有子文件夹中的excel文件，切片后汇总

1.链接中源代码

作用：读取每个文件夹下的excel，并将其合并成一个文件。

rm(list=ls())                                          #清空工作历史的所有变量
setwd("E:/cnblogs")                                    #设定工作目录【修改】library(xlsx)first_category_name = list.files("APP整理")            #list.files命令得到"APP整理”文件夹下所有文件夹的名称【修改】
dir = paste("./APP整理/",first_category_name,sep="")   #用paste命令构建路径变量dir,第一级目录的详细路径【修改】
n = length(dir)                                       #读取dir长度，也就是：总共有多少个一级目录                                                     n_sub<-rep(0,n)
n_sub<-as.data.frame(n_sub)
n_sub<-t(n_sub)
head(n_sub)                                          #n_sub是每个一级目录(文件夹)下有多少个文件，也就是：有多少个二级目录，初始化为0，用于后面的操作##########
for(i in 1:n){         #对于每个一级目录(文件夹)b=list.files(dir[i]) #b是列出每个一级目录(文件夹)中每个xlsx文件的名称n_sub[i]=length(b)   #得到一级目录(文件夹)下xlsx的文件个数:n_submerge_1<-read.xlsx("E:/cnblogs/APP整理/xlsx文件样例.xlsx",sheetIndex=1,encoding='UTF-8')#dim(merge_1)names(merge_1)<-c('序号','APP','2016-01-11','2016-01-12','2016-01-13','2016-01-14','2016-01-15','2016-01-16','2016-01-17')#我的文件列名，根据你具体情况修改【修改】merge_1$second_category<-'second_category'merge_1$first_category<-'first_category'merge_1<-merge_1[1,-1]    #这一段的目的是读取一个xlsx文件样例，得到一个初始的dataframe(不含数据)，免除了后面重新建立datafram的麻烦，用于后面文件的rbind拼接for(j in 1:n_sub[i]){     #对于每个一级目录(文件夹)下的每个xlsx文件new_1<-read.xlsx(file=paste(dir[i],'/',b[j],sep=''),sheetIndex=1,encoding='UTF-8') #读取xlsx文件names(new_1)<-c('序号','APP','2016-01-11','2016-01-12','2016-01-13','2016-01-14','2016-01-15','2016-01-16','2016-01-17')【修改】new_1<-new_1[-1,-1]     #因为实际数据需要，删除第一行和第一列（根据实际读取xlsx文件的情况进行修改）new_1$second_category<-substr(b[j],1,4)        #二级目录的名称是xlsx的文件名。new_1$first_category<-first_category_name[i]   #一级目录的名称是“文件夹名”merge_1<-rbind(merge_1,new_1)}write.xlsx(merge_1,paste(dir[i],'/merge.xlsx',sep=''),row.names = F,col.names= F)#单独保存在每个文件夹下
}

Tips：
1.是否初始化要看具体情况，但是在大多数情况下都是需要的，这里是一种初始化的方法。
2.关于初始文件列名和导入文件列名的设置是可有可无的，可以根据实际情况添加（line 22 & line 29）
3.在初始化时上面代码添加了一级目录和二级目录，后面导入文件后也输入了相关内容，去掉是可以的，还不清楚有什么具体作用还是作者自行需要添加的（line 23-24 & line 31-32）
4.line7中的 ./ 表达： . 代表的是getwd得到的绝对路径。

2.稍加改动后的源代码

作用：读取每个文件夹下的excel，取出其中的某些数据，合成在一个表在每个文件夹里导出。

#改编了上一个程序，跑通了。实现了
rm(list=ls())                                                  #清空工作历史的所有变量
setwd("/Users/ran/Desktop")                                    #设定工作目录library(xlsx)first_category_name = list.files("Task 1")            #list.files命令得到"APP整理”文件夹下所有文件夹的名称
dir = paste("./Task 1/",first_category_name,sep="")   #用paste命令构建路径变量dir,第一级目录的详细路径
n = length(dir)                                       #读取dir长度，也就是：总共有多少个一级目录                                                     n_sub<-rep(0,n)
n_sub<-as.data.frame(n_sub)
n_sub<-t(n_sub)
head(n_sub)                                          #n_sub是每个一级目录(文件夹)下有多少个文件，也就是：有多少个二级目录，初始化为0，用于后面的操作##########
for(i in 1:n){         #对于每个一级目录(文件夹)b=list.files(dir[i]) #b是列出每个一级目录(文件夹)中每个xlsx文件的名称n_sub[i]=length(b)   #得到一级目录(文件夹)下xlsx的文件个数:n_subdata=as.data.frame(rep(0,5))for(j in 1:n_sub[i]){     #对于每个一级目录(文件夹)下的每个xlsx文件new_1<-read.xlsx(file=paste(dir[i],'/',b[j],sep=''),sheetIndex=1,encoding='UTF-8')  #读取xlsx文件new_1<-new_1[10:14,1]     data=cbind(data,new_1)}write.xlsx(data,paste(dir[i],'/merge.xlsx',sep=''),row.names = F,col.names= F)  #单独保存在每个文件夹下
}

3.读取某文件夹中的所有表格

作用：直接获取某文件名下的所有表格，取出其中的某些数据，合成在一个表在文件夹里导出。
Tips：需要手动更改

#试图直接获取某文件名下的所有表格
rm(list=ls())
setwd("/Users/ran/Desktop/Task 1")
library(xlsx)
library(dplyr)
names = list.files("发债")
n_xlsx=length(names)
data=as.data.frame(rep(0,5))
for(j in 1:n_xlsx){     #对于每个一级目录(文件夹)下的每个xlsx文件new_1<-read.xlsx(file=paste('/Users/ran/Desktop/Task 1/发债/',names[j],sep=''),sheetIndex=1,encoding='UTF-8')new_2<-new_1[10:14,1]     data=cbind(data,new_2)
}
write.xlsx(data,'/Users/ran/Desktop/Task 1/发债/结果.xlsx',row.names = F,col.names= F)  #保存在文件夹下