R语言 EXCEL文件的批量读取

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

（1）批量读取

批量读取数据，有两种形式，读取一个目录下的所有文件，从数据库中读取多个表。

##读取同一目录下的所有文件install.packages("XLConnect")library("XLConnect")path <- "F:/Rfile/OD-B/Data" ##文件目录fileNames <- dir(path)  ##获取该路径下的文件名filePath <- sapply(fileNames, function(x){                  paste(path,x,sep='/')})   ##生成读取文件路径data <- lapply(filePath, function(x){             readWorksheetFromFile(x, header=T，sheet=1)})  ##读取数据，结果为list##从数据库中读取数据类似上面，获取要数据库里的文件名，写个正则筛选文件名后for循环读取。

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
  

（2）批量输出

对结果批量输出csv文件,其中data为list格式

outPath <- "F:/Rfile/OD-B/Consequence" ##输出路径out_fileName <- sapply(names(data),function(x){                    paste(x, ".csv", sep='')}) ##csv格式out_filePath  <- sapply(out_fileName, function(x){                     paste(outPath ,x,sep='/')}) ##输出路径名##输出文件for(i in 1:length(data)){  write.csv(data[], file=out_filePath, row.name=F) }

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

关键词：EXCEL xcel exce cel R语言

（1）批量读取
批量读取数据，有两种形式，读取一个目录下的所有文件，从数据库中读取多个表。
##读取同一目录下的所有文件
install.packages("XLConnect")library("XLConnect")
path <- "F:/Rfile/OD-B/Data" ##文件目录
fileNames <- dir(path)  ##获取该路径下的文件名
filePath <- sapply(fileNames, function(x){                 
paste(path,x,sep='/')})   ##生成读取文件路径
data <- lapply(filePath, function(x){            
readWorksheetFromFile(x, header=T，sheet=1)})  ##读取数据，结果为list
##从数据库中读取数据类似上面，获取要数据库里的文件名，写个正则筛选文件名后for循环读取。
（2）批量输出
对结果批量输出csv文件,其中data为list格式
outPath <- "F:/Rfile/OD-B/Consequence"
##输出路径
out_fileName <- sapply(names(data),function(x){                  
paste(x, ".csv", sep='')}) ##csv格式
out_filePath  <- sapply(out_fileName, function(x){                     
paste(outPath ,x,sep='/')}) ##输出路径名##输出文件
for(i in 1:length(data)){  
write.csv(data[], file=out_filePath, row.name=F) }